powered by
simulateData(N, p, theta, sds)
truth <- simulateData(N=2500, p=rep(1/3, 3), theta=c(-1, 0, 1), sds=rep(0.1, 3))
Run the code above in your browser using DataLab