R/Rsq.ad.r

Rsq.ad <- function(object) 
{
    n <- length(residuals(object))
    p <- length(coef(object))        
    rsq <- Rsq(object)          
    1 - (n - 1)/(n - p) * (1 - rsq)    
}

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.