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

R2 add

Browse Source
This commit is contained in:
Hollos Roland 2021-04-07 14:41:17 +02:00
parent 760020fdd1
commit 701ef4ba9b
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
RBBGCMuso/R/multiSite.R
View File

@ -167,6 +167,9 @@ multiSiteCalib <- function(measurements,
res[["MAE"]] <- mean(abs((comp[,2]-comp[,3]))) res[["MAE"]] <- mean(abs((comp[,2]-comp[,3])))
res[["RMSE"]] <- results[bestCase,ncol(results)] res[["RMSE"]] <- results[bestCase,ncol(results)]
res[["originalRMSE"]] <- sqrt(mean((comp[,1]-comp[,3])^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
saveRDS(res,"results.RDS")
png("calibRes.png") png("calibRes.png")
opar <- par(mar=c(5,5,4,2)+0.1, xpd=FALSE) opar <- par(mar=c(5,5,4,2)+0.1, xpd=FALSE)
with(data=res$comparison, { with(data=res$comparison, {