From da6e74cade3601277439713ca256a67d6fec95f4 Mon Sep 17 00:00:00 2001 From: Pariksheet Nanda Date: Tue, 7 Feb 2017 20:53:43 -0500 Subject: [PATCH] BUG: Apply plate 504 controls to all plates. --- analysis-only_overlap.R | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/analysis-only_overlap.R b/analysis-only_overlap.R index 47ff2f2..b0dcd3c 100644 --- a/analysis-only_overlap.R +++ b/analysis-only_overlap.R @@ -14,7 +14,7 @@ files_plate <- "plates/DRSC_TF_Library_Distribution.xls" ## reflected in the Excel spreadsheet provided by the core facility. ## Therefore below is the list of added wells, which we will later ## merge with the spreadsheet data: -wells_control_plate504 <- tibble::tribble( +wells_control <- tibble::tribble( ~well, ~symbol, ##---|------ "I04", "BROWN", @@ -29,8 +29,7 @@ wells_control_plate504 <- tibble::tribble( "F14", "G07", "G18", "H09", "H16", "I09", "I16", "J07", "J18", "K11", "K14", "L05", "L20", "M12", "M13", "N03", "N22"))) %>% - rename(symbol_504 = symbol) %>% # Prepare for join. - mutate(plate = 504) %>% + rename(symbol_control = symbol) %>% # Prepare for join. arrange(well) ## FIXME: Need to confirm what type of control Thread is. wells_layout <- @@ -40,9 +39,9 @@ wells_layout <- rename(symbol = `symbol(s)`, fbgn = `fbgn(s)`) %>% arrange(plate, well) wells_layout %<>% - left_join(wells_control_plate504) %>% - mutate(symbol = ifelse(is.na(symbol_504), symbol, symbol_504)) %>% - select(-symbol_504) %>% + left_join(wells_control) %>% + mutate(symbol = ifelse(is.na(symbol_control), symbol, symbol_control)) %>% + select(-symbol_control) %>% mutate(control = ifelse( symbol %in% c("CAL1", "FACT", "Rho1"), ## Rho1 gives binucleates "positive", NA)) %>%