# Create a gen_tibble
bed_file <-
system.file("extdata", "related", "families.bed", package = "tidypopgen")
example_gt <- gen_tibble(bed_file,
backingfile = tempfile("families"),
quiet = TRUE,
valid_alleles = c("1", "2")
)
loci_report <- example_gt %>% qc_report_loci()
# Plot the QC report overview
autoplot(loci_report, type = "overview")
# Plot the QC report all
autoplot(loci_report, type = "all")
# Plot missing data
autoplot(loci_report, type = "missing")
# Plot missing with low maf
autoplot(loci_report, type = "missing low maf", maf_threshold = 0.05)
# Plot missing with high maf
autoplot(loci_report, type = "missing high maf", maf_threshold = 0.05)
# Plot maf
autoplot(loci_report, type = "maf", maf_threshold = 0.05)
# Plot hwe
autoplot(loci_report, type = "hwe", hwe_p = 0.01)
# Plot significant hwe
autoplot(loci_report, type = "significant hwe", hwe_p = 0.01)
Run the code above in your browser using DataLab