dengue <-
structure(list(condition = c("vaccine", "vaccine", "vaccine", 
"vaccine", "vaccine", "vaccine", "vaccine", "vaccine", "vaccine", 
"vaccine", "vaccine", "vaccine", "vaccine", "vaccine", "vaccine", 
"vaccine", "vaccine", "vaccine", "vaccine", "vaccine", "vaccine", 
"placebo", "placebo", "placebo", "placebo", "placebo", "placebo", 
"placebo", "placebo", "placebo", "placebo", "placebo", "placebo", 
"placebo", "placebo", "placebo", "placebo", "placebo", "placebo", 
"placebo", "placebo"), virus_in_blood = c("no", "no", "no", "no", 
"no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", 
"no", "no", "no", "no", "no", "no", "yes", "yes", "yes", "yes", 
"yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", 
"yes", "yes", "yes", "yes", "yes", "yes", "yes"), develop_rash = c("no", 
"no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", 
"no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", 
"no", "no", "yes", "yes", "yes", "yes", "yes", "yes", "yes", 
"yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes"
)), class = "data.frame", row.names = c(NA, -41L))