plot(ChamberConc ~ time, data = ccl4data, xlab = "Time (hours)",
xlim = range(c(0, ccl4data$time)),
ylab = "Chamber Concentration (ppm)", log = "y")
ccl4data.avg <- aggregate(ccl4data$ChamberConc,
by = ccl4data[c("time", "initconc")], mean)
points(x ~ time, data = ccl4data.avg, pch = 16)
Run the code above in your browser using DataLab