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)