# NOT RUN {
proportion <- c(0.4, 0.6)
pi <- c(0.8, 0.75)
mu <- matrix(c(1, 2, 3, 4, 4, 2, 1, 3), nrow = 2, byrow = TRUE)
# simulate a data set with declared parameters.
data <- rbind(simulISR(proportion[1] * 100, pi[1], mu[1,]),
simulISR(proportion[2] * 100, pi[2], mu[2,]))
pval <- khi2(data, proportion, mu, pi)
# }
Run the code above in your browser using DataLab