# NOT RUN {
library(data.table)
struc_preparation2(Rmx=10, af=c(0.01,0.8), epis=0, dom=c(1,0.3))
#simdata[,"repetition":=1]
#simdata[,"simcycle":=1]
#setcolorder(simdata, c(c("repetition", "simcycle"),
#colnames(simdata)[!(colnames(simdata) %in%
#c("simulation_run", "repetition", "simcycle"))]))
#prosp_ob <- prosper(simstruc = c(5,10), loci=2, simData = simdata)
#intern_SimData(prosp_ob)
# }
Run the code above in your browser using DataLab