# NOT RUN {
require(MASS)
a = new("metadata.metric",
clusters = list(c1 = list(n = 25, mu = c(4,5), Sigma=diag(1,2)),
c2 = list(n = 25, mu = c(-1,-2), Sigma=diag(1,2))),
genfunc = mvrnorm)
b = new("metadata.metric",
clusters = list(c1 = list(n = 44, mu = c(1,2), Sigma=diag(1,2)),
c2 = list(n = 66, mu = c(-5,-6), Sigma=diag(1,2))),
genfunc = mvrnorm)
# }
# NOT RUN {
saveSetup(name="doe2002.R", author="John Dow", mail="john.doe@edu.com",
inst="Example University", cit="Simple Data, pp. 23-24", objects=list(a, b),
table=data.frame(n = c(50, 110), k = c(2,2), shape = c("spherical", "spherical")))
unlink("doe2002.R")
# }
Run the code above in your browser using DataLab