data(SKAT.fam.example)
K = SKAT.fam.example$K
Z = SKAT.fam.example$Z
obj<-SKAT_NULL_emmaX(y ~ X, K=K, data=SKAT.fam.example)
SKAT(Z, obj)$p.value
# SKAT-O
SKAT(Z, obj, method="optimal.adj")$p.value
Run the code above in your browser using DataLab