## Not run:
# # Li FP, Fraumeni JF Jr, Mulvihill JJ, Blattner WA, Dreyfus MG, Tucker MA,
# # Miller RW. A cancer family syndrome in twenty-four kindreds.
# # Cancer Res 1988, 48(18):5358-62.
#
# # family_size #_of_affected frequency
#
# famtest<-c(
# 1, 0, 2,
# 1, 1, 0,
# 2, 0, 1,
# 2, 1, 4,
# 2, 2, 3,
# 3, 0, 0,
# 3, 1, 2,
# 3, 2, 1,
# 3, 3, 1,
# 4, 0, 0,
# 4, 1, 2,
# 5, 0, 0,
# 5, 1, 1,
# 6, 0, 0,
# 6, 1, 1,
# 7, 0, 0,
# 7, 1, 1,
# 8, 0, 0,
# 8, 1, 1,
# 8, 2, 1,
# 8, 3, 1,
# 9, 3, 1)
#
# test<-matrix(famtest,byrow=T,ncol=3)
#
# famp<-pfc.sim(test)
# ## End(Not run)
Run the code above in your browser using DataLab