library(tidyverse)
load("data/bactcountr_example_data/CFU_data.rda")
cfu_data <- CFU_data %>%
filter(organ == "Spleen") %>%
select(-organ) %>%
mutate(replicate = paste(group, replicate, sep = "-"))
write_csv(cfu_data, file = "data/bactcountr_example_data/cfu_data.csv")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.