# \donttest{
n <- 250 ## create artificial data
set.seed(1)
y <- c(rnorm(n,-5), rnorm(n,0), rnorm(n,5))
yclass <- c(rep(1,n), rep(2,n), rep(3,n))
yModel <- Mclust(y)
mclust1Dplot(y, parameters = yModel$parameters, z = yModel$z,
what = "classification")
mclust1Dplot(y, parameters = yModel$parameters, z = yModel$z,
what = "error", truth = yclass)
mclust1Dplot(y, parameters = yModel$parameters, z = yModel$z,
what = "density")
mclust1Dplot(y, z = yModel$z, parameters = yModel$parameters,
what = "uncertainty")
# }
Run the code above in your browser using DataLab