# NOT RUN {
S <- toeplitz(c(1, 0.3, 0.7))
set.seed(123)
x <- mvtnorm::rmvt(100, S, df = 3)
obj_det <- powerShape(x, alpha = 0.85, normalization = 'det')
shape2scatter(obj_det)
obj_tr <- powerShape(x, alpha = 0.85, normalization = 'trace')
shape2scatter(obj_tr)
obj_one <- powerShape(x, alpha = 0.85, normalization = 'one')
shape2scatter(obj_one)
# }
Run the code above in your browser using DataLab