powered by
rmse(a,b)
sqrt( sum((a-b)^2)/length(b) )
rsquare
x <- rnorm(20) y <- 2*x + rnorm(20) plot(x,y) yp <- predict(lm(y~x)) plot(y, yp) abline(a=0,b=1) rmse(y,yp)
Run the code above in your browser using DataLab