# Example with snakeHS data
data(snakeHS)
fitS <- lm.rrpp(HS ~ SVL, data = snakeHS,
iter = 0)
fitSR <- lm.rrpp(HS ~ SVL + Region, data = snakeHS,
iter = 0)
fitSxR <- lm.rrpp(HS ~ SVL * Region, data = snakeHS,
iter = 0)
CVS <- looCV(fitS)
CVSR <- looCV(fitSR)
CVSxR <- looCV(fitSxR)
summary(CVS)
summary(CVSR)
summary(CVSxR)
looCV_table(CVS, CVSR, CVSxR)
Run the code above in your browser using DataLab