fix the changeMuso order bug

This commit is contained in:
Roland Hollós 2019-03-08 14:07:01 +01:00
parent a116873ac4
commit 760bbaef9a

View File

@ -27,7 +27,7 @@ changemulline <- function(filePaths, calibrationPar, contents, fileOut, fileToCh
if(fileToChange == "epc" | fileToChange == "ini"){
parMat<-cbind(calibrationPar, contents)
parMat[order(parMat[,1]),]
parMat<- parMat[order(parMat[,1]),]
changeMusoC(inFile = filePaths[selectFileToWrite(filePaths, fileToChange)],
outFile = fileOut[selectFileToWrite(filePaths, fileToChange)],
parMat)