# Generate simulated dataset.
Theta <- list(pdf1 = rep("normal", 2),
theta1.1 = c(10, 20),
theta2.1 = c(3, 2),
pdf2 = rep("normal", 2),
theta1.2 = c(3, 2),
theta2.2 = c(20, 10))
simulated <- RNGMIX(Dataset.name = "simulated",
rseed = -1,
n = c(15, 15),
Theta = Theta)
# Preprocess simulated dataset.
y1y2F <- pemix(x = simulated@Dataset[[1]])
y1y2F
Run the code above in your browser using DataLab