Nothing
pc=with(seatpos,princomp(cbind(HtShoes,Ht,Seated,Arm,Thigh,Leg),
scores=T))
summary(pc, loadings=T)
seatpos.lmpc <-lm(hipcenter ~ Age + Weight + pc$scores[,1], seatpos )
###hop:3-9
summary(seatpos.lmpc)
vif(seatpos.lmpc)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.