R/pv.R

pv<-
function(index,optm){
  rms<-function(actual,predicted){
    return(sqrt(mean((actual-predicted)^2)))
  }
  return(1-rms(index,optm))
}
Zongzheng/forestSAS documentation built on May 10, 2019, 1:59 a.m.