### $Id: Tetra.R,v 1.1 1999/10/21 22:55:32 bates Exp $
Tetra <-
  data.frame(time = c(1, 2, 3, 4, 6, 8, 10, 12, 16),
             conc = c(0.7, 1.2, 1.4, 1.4, 1.1, 0.8, 0.6, 0.5, 0.3))
attr(Tetra, "reference") <- "A1.14, p. 281"