if (FALSE) {
param <- data.frame(pop.param=c(1.5, 0.5, 0.02, 0.4, 0.15, 0.2, 0.7),
sd=c(0.2, 0.05, 0.004, 0.05, 0.02, 0.02, 0.05),
trans=c('N','N','N','L','L','L','N'))
pop <- simpopmlx(n=3, parameter=param)
}
Run the code above in your browser using DataLab