t <- c(0, 4, 8, 12, 16, 20)
conc <- c(1, 0.51, 0.24, 0.12, 0.07, 0.02)
err <- c(0.02, 0.05, 0.04, 0.04, 0.03, 0.02)
dframe <- data.frame(t, conc)
res <- det_order(dframe)
class(res)
dframe2 <- data.frame(t, conc, err)
res2 <- det_order(dframe2)
res2[[5]] == dframe2
Run the code above in your browser using DataLab