inst/snippet/seatpos05.R
In rpruim/fastR2: Foundations and Applications of Statistics Using R (2nd Edition)
pc <- with(seatpos,
princomp(cbind(HtShoes, Ht, Seated, Arm, Thigh, Leg),
scores = TRUE))
msummary(pc, loadings = TRUE)
seatpos.lmpc <-lm(hipcenter ~ Age + Weight + pc$scores[, 1], data = seatpos)
msummary(seatpos.lmpc)
faraway::vif(seatpos.lmpc)
rpruim/fastR2 documentation built on Nov. 11, 2023, 7:32 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
pc <- with(seatpos,
princomp(cbind(HtShoes, Ht, Seated, Arm, Thigh, Leg),
scores = TRUE))
msummary(pc, loadings = TRUE)
seatpos.lmpc <-lm(hipcenter ~ Age + Weight + pc$scores[, 1], data = seatpos)
msummary(seatpos.lmpc)
faraway::vif(seatpos.lmpc)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.