The R Project SVN R

Rev

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

Rev 59146 Rev 61160
Line 149... Line 149...
149 
princomp(~ ., data = USArrests, cor = TRUE)
 149 
princomp(~ ., data = USArrests, cor = TRUE)
150 
 
 150 
 
151 
## NA-handling
 151 
## NA-handling
152 
USArrests[1, 2] <- NA
 152 
USArrests[1, 2] <- NA
153 
pc.cr <- princomp(~ Murder + Assault + UrbanPop,
 153 
pc.cr <- princomp(~ Murder + Assault + UrbanPop,
154 
                  data = USArrests, na.action=na.exclude, cor = TRUE)
 154 
                  data = USArrests, na.action = na.exclude, cor = TRUE)
155 
\donttest{pc.cr$scores[1:5, ]}
 155 
\donttest{pc.cr$scores[1:5, ]}
156 
 
 156 
 
157 
## (Simple) Robust PCA:
 157 
## (Simple) Robust PCA:
158 
## Classical:
 158 
## Classical:
159 
(pc.cl  <- princomp(stackloss))
 159 
(pc.cl  <- princomp(stackloss))