powered by
goodness.of.fit(Yobs, Ypred, draw.plot = FALSE)
# 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) goodness.of.fit(obs,sim,draw.plot=TRUE)
Run the code above in your browser using DataLab