# NOT RUN {
set.seed(4321)
fam <- simfam(N.fam = 50, design = "pop", variation = "none", base.dist = "Weibull",
base.parms = c(0.01, 3), vbeta = c(-1.13, 2.35))
summary(fam)
# }
# NOT RUN {
Study design: pop
Baseline distribution: Weibull
Number of families: 50
Average number of affected per family: 1.24
Average number of carriers per family: 1.3
Average family size: 17.02
Average age of onset for affected: 40.08
Sampling weights used: 1
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab