From 760bbaef9a61323711d6a8ec18a1c3c61cfc3bcb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roland=20Holl=C3=B3s?= Date: Fri, 8 Mar 2019 14:07:01 +0100 Subject: [PATCH] fix the changeMuso order bug --- RBBGCMuso/R/changeMuso.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/RBBGCMuso/R/changeMuso.R b/RBBGCMuso/R/changeMuso.R index 6e3e1f5..714e6da 100644 --- a/RBBGCMuso/R/changeMuso.R +++ b/RBBGCMuso/R/changeMuso.R @@ -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)