R/RMSE.R

RMSE <- function(object, which = NULL)
{
	if (is.null(which)) which <- 1:length(residuals(object))
    	sqrt(mean(residuals(object)[which]^2, na.rm = TRUE))
}

Try the qpcR package in your browser

Any scripts or data that you put into this service are public.

qpcR documentation built on May 2, 2019, 5:17 a.m.