R/SSCPfn.R

Defines functions SSCP.fn

Documented in SSCP.fn

SSCP.fn <- function(fits){
  SS <- summary.manova(fits)$"SS"
  p <- length(SS)-1
  SSCPR <- 0
  for(i in 1:p) SSCPR <- SSCPR + SS[[i]]
  out <- list(SSCPR=SSCPR,SSCPE=SS$Residuals,SSCPTO=SSCPR+SS$Residuals)
  out
}

Try the HoRM package in your browser

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

HoRM documentation built on March 11, 2021, 9:07 a.m.