# NOT RUN {
require(MASS)
m <- new("metadata.metric",
clusters = list(c1 = list(n = 25, mu = c(4,5,4), Sigma=diag(1,3)),
c2 = list(n = 25, mu = c(-1,-2,-2), Sigma=diag(1,3))),
genfunc = mvrnorm)
plot3dMetadata(m)
# }
Run the code above in your browser using DataLab