R/anovapin.R

anovapin <- function (obj, index) 
{
    M <- maM(obj)[, index]
    pin <- gl(maNgc(obj)* maNgr(obj), maNsc(obj)*maNsr(obj))
    s <- summary(ano <- lm(M ~ pin - 1))
}
##############################################################

Try the OLIN package in your browser

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

OLIN documentation built on Nov. 8, 2020, 7:44 p.m.