R/rrmse.r

rrmse <- function(data){
    rrmse=sqrt(mean((data$obs-data$pred)^2))/mean(data$obs)
    rrmse=round(rrmse,digits=2)
    return(rrmse)
}
palderman/dssatR documentation built on May 24, 2019, 5:59 p.m.