# NOT RUN {
data(boneData)
proc <- procSym(boneLM)
pls <- pls2B(proc$orpdata[1:4,,],proc$orpdata[5:10,,])
commShape <- getPLSCommonShape(pls)
## get common shape for first latent dimension at +-2 sd of the scores
pred <- plsCoVarCommonShape(pls,1,2)
# }
# NOT RUN {
deformGrid3d(pred[,,1],pred[,,2])
# }
Run the code above in your browser using DataLab