- write.table(as.double(res$phi), paste(testFolder,"phi",sep=""), row.names=F,col.names=F)
- write.table(as.double(res$LLF), paste(testFolder,"LLF",sep=""), row.names=F,col.names=F)
+ write.table(as.double(res$phi),paste(testFolder,"phi",sep=""),row.names=F,col.names=F)
+ write.table(as.double(res$LLF),paste(testFolder,"LLF",sep=""),row.names=F,col.names=F)