mv.shape.test(X, score = "identity", location = "est",
na.action = na.fail, ...)identity, sign, and symmsign.est and origin.sr.sphere.testX <- rmvt(150,diag(1,3))
mv.shape.test(X)
mv.shape.test(X,"sym")Run the code above in your browser using DataLab