diff --git a/RBBGCMuso/R/multiSite.R b/RBBGCMuso/R/multiSite.R
index 71a64a0..0fb7929 100644
--- a/RBBGCMuso/R/multiSite.R
+++ b/RBBGCMuso/R/multiSite.R
@@ -262,9 +262,9 @@ multiSiteCalib <- function(measurements,
                                                                  nameGroupTable = nameGroupTable, mean)
     res[["likelihood"]] <- results[bestCase,ncol(results)-2]
     comp <- res$comparison
-    res[["originalMAE"]] <-mean(abs((comp[,1]-comp[,3])))
+    res[["originalMAE"]] <- mean(abs((comp[,1]-comp[,3])))
     res[["MAE"]] <- mean(abs((comp[,2]-comp[,3])))
-    res[["RMSE"]] <- results[bestCase,ncol(results)-1]
+    res[["RMSE"]] <- results[bestCase,ncol(results)-2]
     res[["originalRMSE"]] <- sqrt(mean((comp[,1]-comp[,3])^2))
     res[["originalR2"]] <- summary(lm(measured ~ original,data=res$comparison))$r.squared
     res[["R2"]] <- summary(lm(measured ~ calibrated, data=res$comparison))$r.squared