diff --git a/DESCRIPTION b/DESCRIPTION index c6a2baf..e33a0ba 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: MungeSumstats Type: Package Title: Standardise summary statistics from GWAS -Version: 1.13.4 +Version: 1.13.5 Authors@R: c(person(given = "Alan", family = "Murphy", diff --git a/R/check_allele_flip.R b/R/check_allele_flip.R index 0914423..86cf1da 100644 --- a/R/check_allele_flip.R +++ b/R/check_allele_flip.R @@ -96,7 +96,6 @@ check_allele_flip <- function(sumstats_dt, path, sumstats_dt[is.na(ref_gen_allele), match_type := TRUE] sumstats_dt[A1 == ref_gen_allele, match_type := TRUE] sumstats_dt[A2 == ref_gen_allele, match_type := FALSE] - print(sumstats_dt) # drop cases that don't match either if (allele_flip_drop && nrow(sumstats_dt[A1 != ref_gen_allele &