Plate <- “B13”

Adapt biosensor IDs in “Defining biosensor subsets”

BS_a <- “BS_AB023” BS_b <- “BS_AB024”

Cleaning up data

data <- data_raw %>%
  select (Time, Well.ID, Strain:Replicate, Absorbance.mono.1, Fluorescence.intensity.1) %>%
  rename (BS = Strain, Well = Well.ID, OD = Absorbance.mono.1, FL = Fluorescence.intensity.1) %>%
  mutate (RFU = FL/OD)

data$Nar <- as.factor(data$Nar)
data$Replicate <- as.factor(data$Replicate)

med <- data %>%
  filter (BS == "EZ Rich")

nomed <- data %>%
  filter (BS != "EZ Rich")

Basic plots

All data

Plate reader stopped between 9h and 18h and after 30 hours. Time = 30h seems a good timepoint for stationary phase analysis

Only medium

mean(med$OD)
## [1] 0.1897852
mean(med$FL)
## [1] 60.87891
grid.arrange(m1, m2, nrow = 1)

medium OK.

Without medium

Defining biosensor subsets

control <- nomed %>%
  filter(BS == "Control")
BS_a <- nomed%>%
  filter(BS == "BS_AB023")
BS_b <- nomed %>%
  filter(BS == "BS_AB024")

Check per biosensor strain

Control

BS_a

BS_a per replicate

Replicate 1

Replicate 2

Replicate 3

Replicate 4

BS_b

BS_b per replicate

Replicate 1

Replicate 2

Replicate 3

Replicate 4

Save file