fixed issue with placing confidence intervals for multiple QTL

AndersenLab · Aug 21, 2015 · ba79984 · ba79984
1 parent 4e134e5
commit ba79984
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/process_mappings.R b/R/process_mappings.R
@@ -302,6 +302,8 @@ identify_CI <- function( processed_mapping_df,
 
     peak_list[[i]]$trait <- as.character(peak_list[[i]]$trait)
 
+    peak_list[[i]] <- dplyr::distinct(peak_list[[i]], pID)
+
     # FILTER TO LOOK AT ONE PHENOTYPE AT A TIME
     # FILTER APPROPRIATE INTERVAL INDICIES AND CHROMOSOMES FOR THAT PHENOTYPE
     trait_i <- unique(peak_list[[i]]$trait)
@@ -602,6 +604,8 @@ process_mappings <- function(mapping_df,
 
     peak_list[[i]]$trait <- as.character(peak_list[[i]]$trait)
 
+    peak_list[[i]] <- dplyr::distinct(peak_list[[i]], pID)
+
     # FILTER TO LOOK AT ONE PHENOTYPE AT A TIME
     # FILTER APPROPRIATE INTERVAL INDICIES AND CHROMOSOMES FOR THAT PHENOTYPE
     trait_i <- unique(peak_list[[i]]$trait)