R/RSS.R

RSS <- function(object)
{
  w <- object$weights
  r <- residuals(object)
  if (is.null(w)) w <- rep(1, length(r))
  sum(w * residuals(object)^2)    	
} 

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.