hollorol/RBBGCMuso
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixint rmse bug --finaly

Browse Source
This commit is contained in:
Hollos Roland 2021-06-23 09:14:30 +02:00
parent b8d94949df
commit f009a85245
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
RBBGCMuso/R/multiSite.R
View File

@ -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