if (FALSE) {
data(Pupfish)
Pupfish$logSize <- log(Pupfish$CS)
fit1 <- lm.rrpp(coords ~ logSize, data = Pupfish,
print.progress = FALSE)
fit2 <- lm.rrpp(coords ~ Pop, data = Pupfish,
print.progress = FALSE)
fit3 <- lm.rrpp(coords ~ Sex, data = Pupfish,
print.progress = FALSE)
fit6 <- lm.rrpp(coords ~ logSize + Sex * Pop, data = Pupfish,
print.progress = FALSE)
Mod.C <- model.comparison(fit1, fit2, fit3, fit6,
pc.no = 4, type = "Z", verbose = TRUE)
res <- pairwise.model.Z(Mod.C)
summary(res, stats.table = TRUE)
summary(res, stats.table = FALSE)
}
Run the code above in your browser using DataLab