powered by
nse(obs,sim)
rmse
rsquare
SIM <- dbeta(1:40/40, 3, 10) OBS <- SIM + rnorm(20,,0.2) plot(OBS) lines(SIM) nse(OBS, SIM)
Run the code above in your browser using DataLab