remove pJ_org and mlog10pJ from conditional results in RDS; #27

ht-diva · Nov 5, 2024 · 09920a5 · 09920a5
1 parent 09c9778
commit 09920a5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/workflow/scripts/funs_locus_breaker_cojo_finemap_all_at_once.R b/workflow/scripts/funs_locus_breaker_cojo_finemap_all_at_once.R
@@ -273,7 +273,7 @@ cojo.ht=function(D=dataset_gwas
       #### Add back top SNP, removed from the data frame with the conditioning step
       step2.res <- plyr::rbind.fill(
         step2.res,
-        ind.snp %>% dplyr::select(-bJ,-bJ_se,-pJ,-LD_r)
+        ind.snp %>% dplyr::select(-bJ,-bJ_se,-pJ,-LD_r,-pJ_org,-mlog10pJ)
       )
 
       step2.res$cojo_snp <- ind.snp$SNP