##
## Example 1
## bpca - 2d
##
# bpca
bp <- bpca(gabriel1971)
summary(bp)
summary(bp,
presentation=TRUE)
##
## Example 2
## bpca - 3d
##
bp <- bpca(gabriel1971,
d=1:3)
# bpca
sm <- summary(bp)
str(sm)
sm
summary(bp,
presentation=TRUE)
Run the code above in your browser using DataLab