# NOT RUN {
fam <- simfam(N.fam=100, design="pop", variation="frailty", depend=1,
frailty.dist="gamma", 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
Frailty distribution: gamma
Number of families: 100
Average number of affected per family: 1.28
Average number of carriers per family: 2.3
Average family size: 16.02
Average age of onset for affected: 39.73
Sampling weights used: 1
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab