data(SKAT.example.ChrX)
Z<-SKAT.example.ChrX$Z
#############################################################
# Compute the P-value of SKAT
# binary trait
obj.x<-SKAT_Null_Model_ChrX(y ~ x1 +x2 + Gender,
SexVar="Gender", out_type="D", data=SKAT.example.ChrX)
# SKAT
SKAT_ChrX(Z, obj.x, kernel = "linear.weighted")
# Burden
SKAT_ChrX(Z, obj.x, kernel = "linear.weighted", r.corr=1)
# SKAT-O
SKAT_ChrX(Z, obj.x, kernel = "linear.weighted", method="SKATO")
#############################################################
# Fit the Y chromosome function
# In this example, since male has only one copy of X (and Y), we reuse X chromosome genotype matrix.
# binary trait
obj.x<-SKAT_Null_Model_ChrX(y ~ x1 +x2 + Gender,
SexVar="Gender", out_type="D", Model.Y=TRUE, data=SKAT.example.ChrX)
SKAT_ChrY(Z, obj.x, kernel = "linear.weighted", method="SKATO")
Run the code above in your browser using DataLab