## Not run:
# # All standard haplin runs can be done with haplinStrat.
# # Below is an illustration. See the haplin help page for more
# # examples.
# #
# # Analyzing the effect of fetal genes, including triads with missing data,
# # using a multiplicative response model. The first column of the data file
# # in this example contains the stratification variable.
# result <- haplinStrat("C:/work/data.dat", strata = 1, use.missing = T, response = "mult",
# reference = "ref.cat", winlength = 1)
# # Provide summary of separate results:
# lapply(result, summary)
# # Plot results separately:
# par(ask = T)
# lapply(result, plot)
# #
# # Convert results to table format and stack them over strata:
# haptable(result)
# # Test for interaction between haplotype risk estimates and the strata variable:
# gxe(result)
#
#
#
#
# ## End(Not run)
Run the code above in your browser using DataLab