inst/examples/R/data/pca/component_choice/scree.R
In sigbertklinke/shinyExample: Create and run simple (interactive) programs as Shiny apps
library("foreign")
library("psych")
x <- read.spss("BANK2.sav", to.data.frame=T)
pdf("scree.pdf", width=10, height=7, bg="transparent")
par(mfrow=c(1,2))
pc <- prcomp(x, scale=T, center=T)
plot(pc$sdev^2, type="b", ylim=c(0, max(pc$sdev^2)), main="Scree plot (handmade)")
scree(x, main="Scree plot (psych)")
dev.off()
sigbertklinke/shinyExample documentation built on May 26, 2019, 4: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.
library("foreign")
library("psych")
x <- read.spss("BANK2.sav", to.data.frame=T)
pdf("scree.pdf", width=10, height=7, bg="transparent")
par(mfrow=c(1,2))
pc <- prcomp(x, scale=T, center=T)
plot(pc$sdev^2, type="b", ylim=c(0, max(pc$sdev^2)), main="Scree plot (handmade)")
scree(x, main="Scree plot (psych)")
dev.off()
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.