data(SKAT.example)
#############################################################
# Compute the P-value of SKAT with the logistic Weight (par1=0.07, par2=150)
# Use logistic weight
Z<-SKAT.example$Z
obj<-SKAT_Null_Model(y.c ~ X, out_type="C", data=SKAT.example)
weights<-Get_Logistic_Weights(Z, par1=0.07, par2=150)
SKAT(Z, obj, kernel = "linear.weighted", weights=weights)$p.value
# Weights function
MAF<-colMeans(Z)/2
plot(MAF,weights)
Run the code above in your browser using DataLab