n.sim <- 20