library("psych")
scree(bfi[,1:25])
# principal component extraction
principal(bfi[,1:25], nfactors=5, rotate="none")
# principal axis extraction
fa(bfi[,1:25], nfactors=5, rotate="none", fm="pa")
# maximum likelihood extraction
fa(bfi[,1:25], nfactors=5, rotate="none", fm="ml")
# unweighted least squares extraction
fa(bfi[,1:25], nfactors=5, rotate="none")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.