predict.princomp fails if princomp was called with a matrix covmat= (see also #3682 ) (PR#6452)

Dear all,

predict.princomp seems to expect non-NA component $center which is not set
by princomp.default.


Best regards



Jens Oehlschl?gel

x <- matrix(rnorm(400), ncol=4)
predict(princomp(x, covmat=cov(x)), newdata=x[1:10, ])

Error in if (center) { : missing value where TRUE/FALSE needed
In addition: Warning message: 
the condition has length > 1 and only the first element will be used in: if
(center) {

version

_              
platform i386-pc-mingw32
arch     i386           
os       mingw32        
system   i386, mingw32  
status                  
major    1              
minor    8.1            
year     2003           
month    11             
day      21             
language R

Bis 31.1.: TopMail + Digicam f?r nur 29 EUR http://www.gmx.net/topmail