Some R functions about Multivariate Statistical Analysis