powered by
dist.dudi(dudi, amongrow = TRUE)
data (meaudret) pca1 <- dudi.pca(meaudret$mil, scan = FALSE) sum((dist(scalewt(meaudret$mil)) - dist.dudi(pca1))^2) #[1] 4.045e-29 the same thing
Run the code above in your browser using DataLab