powered by
threshold.measures(Yobs, Ypred, p, d, units = "")
# observed and simulated values obs<-c(78,110,92,75,110,108,113,155,150) sim<-c(126,126,126,105,105,105,147,147,147) threshold.measures(obs,sim,80,1.0)
Run the code above in your browser using DataLab