write.table(paste(testFolder,"phi",sep=""), construct$phi, sep=delimiter)
write.table(paste(testFolder,"lvraisemblance",sep=""), construct$lvraisemblance, sep=delimiter)
write.table(paste(testFolder,"phi",sep=""), construct$phi, sep=delimiter)
write.table(paste(testFolder,"lvraisemblance",sep=""), construct$lvraisemblance, sep=delimiter)