Time Endpoint.Value PlasmaConc Group AnimalID
 0        120          .8        1      1
 2        140          .4        1      1
 4        115          .2        1      1
 8        108          .1        1      1
 24       100          .0        1      1
 0        115          .9        1      2
 2        130          .7        1      2
 4        112          .4        1      2
 8        110          .3        1      2
 24       107          .1        1      2
 ...
 0        112          .6        1      12
 2        104          .5        1      12
 4        98           .2        1      12
 8        78           .15       1      12
 24       58           .08       1      12



endpointPlot <- ggplot(data = allData, aes(x = Time, y = Endpoint.Value, group = Group, color = Group)) + geom_point()+
  stat_summary(geom = "point", fun.y = mean, shape = 17, size = 7)+
  stat_smooth(aes(fill = Group))+
  ggtitle("Endpoint (Glucose) vs Time with smoothed standard errors by Group")

concentrationPlot <- ggplot(data = allData, aes(x = Time, y = PlasmaConc, group = Group, color = Group)) + geom_point()+
  stat_summary(geom = "point", fun.y = mean, shape = 17, size = 7)+
  stat_smooth(aes(fill = Group))+
  ggtitle("Plasma Concentration vs Time with smoothed standard errors by Group")