In BozemanDiseaseLab/BKA.PREEMPT: What the Package Does (One Line, Title Case)

``` {r,include = FALSE}

source('/Users/dancrowley/BKA.PREEMPT/R/soft.max.clean.R') file_path = '~/Box Sync/Research NSF Bat1Health Collaboration/bat_immunoassays/Evelyn_Data/' file.list <- list.files(file_path, pattern = '.xlsx') file.list

for (i in 1:length(file.list)) { file <- paste(file_path, file.list[i], sep = "") assign(file.list[i], soft.max.clean(file_path = file, num_of_time_points = 7)) }

dfs <- Filter(function(x) is(x, "data.frame"), mget(ls())) bka.merge <- do.call(rbind, dfs) rm(list=(ls()[ls()!="bka.merge"]))

bka.merge$sample <- tolower(bka.merge$sample) bka.merge$sample <- gsub(" ", "", bka.merge$sample)

bka.merge$measure <- as.numeric(bka.merge$measure)

#BKA Results

##Bacteria Only
###Data Untransformed
``` {r,echo = FALSE}
bka.merge %>%
  filter(experiment_id == '4.26.19_Evelyn Benson') %>%
  unite(well, c(which_row, column)) %>%
  ggplot(aes(x=time, y= (as.numeric(measure)))) +
  #ggplot(aes(x=time, y= log(as.numeric(measure)))) +
  #ggplot(aes(x=time, y= boot::inv.logit(as.numeric(measure)))) +
  geom_point(aes(group = well, col = bacteria)) +
  geom_line(aes(group = well, col = bacteria)) +
  #ylim(.9,2)+
  #xlim(0,.6)+
  facet_wrap(~experiment_id)

BozemanDiseaseLab/BKA.PREEMPT documentation built on May 29, 2019, 7:20 a.m.