Format titer data

library(titer)

head(Year1_Titers)
titer_list <- FormatTiters(Year1_Titers)
lapply(titer_list, head)

Bar plots

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

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)


stefanavey/titer documentation built on Jan. 27, 2023, 3:41 a.m.