# NOT RUN {
data("gwa_sample")
selected_SNPs <- HQ_filter(data = gwa_sample,
FRQ_val = 0.01,
cal_val = 0.95,
filter_NA = FALSE)
summary(gwa_sample[selected_SNPs, ])
selected_SNPs <- HQ_filter(data = gwa_sample,
FRQ_val = 0.01,
cal_val = 0.95,
filter_NA = FALSE,
ignore_impstatus = TRUE)
summary(gwa_sample[selected_SNPs, ])
# }
Run the code above in your browser using DataLab