R/hcsrt.r

hcsrt <- function (M){
  RES2 <- residuals(M)^2
  FITTED <- fitted.values(M) 
  M.hcsrt <- lm(RES2 ~ FITTED)
  RESULT <- anova(M.hcsrt)
  RESULT
}

Try the inecolr package in your browser

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

inecolr documentation built on June 8, 2025, 11:26 a.m.