From ba799848dab1a08dc841b2c8c6f81fe3c3055b5b Mon Sep 17 00:00:00 2001 From: Stefan Date: Fri, 21 Aug 2015 15:34:28 -0500 Subject: [PATCH] fixed issue with placing confidence intervals for multiple QTL --- R/process_mappings.R | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/R/process_mappings.R b/R/process_mappings.R index b1a83cb..15196a2 100644 --- 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)