phen <- data.frame(
CHILD_STATUS = c(0,0),
P1_STATUS = c(1,1),
P2_STATUS = c(0,1),
SIB_STATUS = c(1,0),
NUM_SIBS = c(2,0))
h2 <- 0.5
child_threshold <- 0.7
parent_threshold <- 0.8
estimate_gen_liability_ltfh(h2, phen, child_threshold, parent_threshold)
Run the code above in your browser using DataLab