set.seed(12345)
data(rareGEgeno)
data(rareGEpheno)
# quantitative traits - testing for gene-BMI interactions
JOINT(rareGEpheno$y1, rareGEgeno, rareGEpheno[, c("bmi", "age", "sex")],
B = 1000)
# dichotomous traits - testing for gene-BMI interactions
JOINT(rareGEpheno$y2, rareGEgeno, rareGEpheno[, c("bmi", "age", "sex")],
family = "binomial", B = 1000)
Run the code above in your browser using DataLab