# Example from Nedelman et al. (1995)
conc <- c(2790, 3280, 4980, 7550, 5500, 6650, 2250, 3220, 213, 636)
time <- c(1, 1, 2, 2, 4, 4, 8, 8, 24, 24)
obj <- auc(conc=conc, time=time, method=c('z', 't'), design='ssd')
estimator(obj,TRUE)
Run the code above in your browser using DataLab