## Not run:
# x <- simu(5, 100, 0.05, 0.05, delta = 0.15)
# y <- pop_iita(x$implications, 0.05, 0.05, 5, x$dataset, v = 2)
# pop_variance(y$pop.matrix,
# y$selection.set[[which(y$pop.diff == min(y$pop.diff))]],
# y$error.pop[which(y$pop.diff == min(y$pop.diff))], v = 2)
# ## End(Not run)
Run the code above in your browser using DataLab