# NOT RUN {
# Generates data from K = 3 classes.
data <- generate_intraclass(n = 3:5, p = 5, rho = seq(.1, .9, length = 3),
mu = c(0, 3, -2))
data$x
data$y
# Generates data from K = 4 classes. Notice that we use specify a variance.
data <- generate_intraclass(n = 3:6, p = 4, rho = seq(0, .9, length = 4),
mu = c(0, 3, -2, 6), sigma2 = 1:4)
data$x
data$y
# }
Run the code above in your browser using DataLab