The R Project SVN R

Rev

Rev 59039 | Rev 68948 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 59039 Rev 61160
Line 40... Line 40...
40
## The variances of the variables in the
40
## The variances of the variables in the
41
## USArrests data vary by orders of magnitude, so scaling is appropriate
41
## USArrests data vary by orders of magnitude, so scaling is appropriate
42
(pc.cr <- princomp(USArrests, cor = TRUE))  # inappropriate
42
(pc.cr <- princomp(USArrests, cor = TRUE))  # inappropriate
43
screeplot(pc.cr)
43
screeplot(pc.cr)
44
 
44
 
45
fit <- princomp(covmat=Harman74.cor)
45
fit <- princomp(covmat = Harman74.cor)
46
screeplot(fit)
46
screeplot(fit)
47
screeplot(fit, npcs=24, type="lines")
47
screeplot(fit, npcs = 24, type = "lines")
48
}
48
}
49
\keyword{multivariate}
49
\keyword{multivariate}