## Generate and print simulated dataset.
n <- c(75, 100, 125, 150, 175)
Theta <- rbind(pdf1 = rep("normal", 5),
theta1.1 = c(10, 8.5, 12, 13, 7),
theta2.1 = c(1, 1, 1, 2, 3),
pdf2 = rep("normal", 5),
theta1.2 = c(12, 10, 14, 15, 9),
theta2.2 = c(1, 1, 1, 2, 3),
pdf3 = rep("normal", 5),
theta1.3 = c(10, 8.5, 12, 7, 13),
theta2.3 = c(1, 1, 1, 2, 3),
pdf4 = rep("normal", 5),
theta1.4 = c(12, 10.5, 14, 9, 15),
theta2.4 = c(1, 1, 1, 2, 3))
simulated <- RNGMIX(Dataset = paste("simulated_", 1:25, sep = ""),
rseed = -1,
n = n,
Theta = Theta)
## Generate and print simulated dataset.
Theta <- rbind(pdf1 = rep("normal", 5),
theta1.1 = c(10, 8.5, 12, 13, 7),
theta2.1 = c(1, 1, 1, 2, 3),
pdf2 = rep("Weibull", 5),
theta1.2 = c(12, 10, 14, 15, 9),
theta2.2 = c(2, 4.1, 3.2, 7.1, 5.3),
pdf3 = rep("binomial", 5),
theta1.3 = c(10, 8, 12, 7, 13),
theta2.3 = c(0.1, 0.5, 0.9, 0.4, 0.2),
pdf4 = rep("Dirac", 5),
theta1.4 = c(1, 1, 1, 1, 1))
simulated <- RNGMIX(Dataset = paste("simulated_", 1:25, sep = ""),
rseed = -1,
n = n,
Theta = Theta)
simulated
## Generate and print simulated dataset.
Theta <- rbind(pdf = rep("W", 5),
theta1 = c(12, 10, 14, 15, 9),
theta2 = c(2, 4.1, 3.2, 7.1, 5.3))
simulated <- RNGMIX(Dataset = paste("simulated_", 1:2, sep = ""),
rseed = -1,
n = n,
Theta = Theta)
simulated
Run the code above in your browser using DataLab