data(boneData)
blm1 <- pcAlign(boneLM[,,1],boneLM[,,2])
if (FALSE) {
require(rgl)
spheres3d(boneLM[,,1])#original position
spheres3d(blm1,col=2)#aligned configuration
spheres3d(boneLM[,,2],col=3)#target
}
Run the code above in your browser using DataLab