typhoid-controls

library(serocalculator)

library(ggplot2)
typhoid_controls |> 
  ggplot(aes(x = Age, y = elisa, col = antigen_iso)) +
   geom_point() + 
   geom_smooth()
#> `geom_smooth()` using method = 'loess' and formula = 'y ~ x'