Remove useless code chunks

choisy · choisy · commit 0f722ff40a6e · 2020-02-07T15:30:42.000+07:00
diff --git a/prophylactic.Rmd b/prophylactic.Rmd
@@ -1049,18 +1049,6 @@ tmp <- run_plan(pipeline6, viparc, filtering = 1:3, watching = 1:3,
   dplyr::rename(class = antimicrobials)
 ```
 
-```{r}
-tmp <- names(tmp$antimicrobials)
-```
-
-
-```{r}
-cs <- tmp$clinical_signs
-sel <- sapply(tmp$clinical_signs, length)
-cs[which(sel > 1)] <- "all"
-```
-
-
 We can the split this output by the durations of the initial, filtering and
 watching periods, and spread the data to show antimicrobials classes in rows and
 clinical signs in columns:
