# NOT RUN {
# Simulated family data
set.seed(4321)
fam <- simfam(N.fam = 200, design = "pop+", variation = "none", base.dist = "Weibull",
base.parms = c(0.01, 3), vbeta = c(-1.13, 2.35), agemin = 20, allelefreq = 0.02)
# Penetrance model fit for the simulated family data
fit <- penmodel(Surv(time, status) ~ gender + mgene, cluster = "famID",
parms=c(0.01, 3, -1.13, 2.35), data = fam, design = "pop+", base.dist = "Weibull")
# Summary of the model parameter and penetrance estimates from model fit
summary(fit)
# }
# NOT RUN {
Estimates:
Estimate Std. Error t value Pr(>|t|)
log(lambda) -4.531 0.08583 -52.793 0.01206 *
log(rho) 1.113 0.04688 23.737 0.02680 *
gender -1.302 0.19233 -6.768 0.09339 .
mgene 2.349 0.23825 9.859 0.06436 .
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab