## Not run:
# # IPF among 203 siblings of 100 COPD patients from Liang KY, SL Zeger,
# # Qaquish B. Multivariate regression analyses for categorical data
# # (with discussion). J Roy Stat Soc B 1992, 54:3-40
#
# # the degrees of freedom is 15
# famtest<-c(
# 1, 0, 36,
# 1, 1, 12,
# 2, 0, 15,
# 2, 1, 7,
# 2, 2, 1,
# 3, 0, 5,
# 3, 1, 7,
# 3, 2, 3,
# 3, 3, 2,
# 4, 0, 3,
# 4, 1, 3,
# 4, 2, 1,
# 6, 0, 1,
# 6, 2, 1,
# 6, 3, 1,
# 6, 4, 1,
# 6, 6, 1)
# test<-t(matrix(famtest,nrow=3))
# famp<-pfc(test)
# ## End(Not run)
Run the code above in your browser using DataLab