powered by
pcaplot3d(x, ...)## S3 method for class 'symproc': pcaplot3d(x, pcshow = c(1, 2, 3), mag = 3, color = 4, lwd = 1, sym = TRUE, ...)## S3 method for class 'nosymproc': pcaplot3d(x, pcshow = c(1, 2, 3), mag = 3, color = 4, lwd = 1, ...)
## S3 method for class 'symproc': pcaplot3d(x, pcshow = c(1, 2, 3), mag = 3, color = 4, lwd = 1, sym = TRUE, ...)
## S3 method for class 'nosymproc': pcaplot3d(x, pcshow = c(1, 2, 3), mag = 3, color = 4, lwd = 1, ...)
procSym
data(nose) #make a tiny sample nosearr <- bindArr(longnose.lm, shortnose.lm, along=3) proc <- procSym(nosearr) pcaplot3d(proc,pcshow=1,mag=-3)#only one PC available
Run the code above in your browser using DataLab