library(titer) head(Year1_Titers) titer_list <- FormatTiters(Year1_Titers) lapply(titer_list, head)
Bar plots can show the raw data, baseline and day 28 titer values for each subject.
## Bar plot of B strain Barplot(titer_list["A Perth 16 2009"]) ## Bar plot of all strains Barplot(titer_list, groupVar = "AgeGroup")
Bubble Charts show the relationship between baseline titer and fold change. In general, a negative slope is observed.
## Bubble Charts for all strains BubbleChart(titer_list) ## Bubble Chart for B strain BubbleChart(titer_list["A Perth 16 2009"]) ## Add an exponential fit and color by age group BubbleChart(titer_list["A Perth 16 2009"], fit = "exp", colorBy = "AgeGroup", eqSize = 5)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.