# IV bolus example
dat <- data.frame(TIME = c(0.5, 1, 2, 4, 6, 8),
DV = c(12, 8, 5, 3, 2, 1))
getnca(x = dat$TIME, y = dat$DV, dose = 1)
# IV infusion example
dat <- data.frame(TIME = c(0.5, 1, 2, 4, 6, 8),
DV = c(2, 8, 5, 3, 2, 1))
getnca(x = dat$TIME, y = dat$DV, dose = 1, route = "infusion", duration = 1)
# Oral administration example
dat <- data.frame(TIME = c(0, 1, 2, 4, 6, 8),
DV = c(0, 9, 12, 8, 6, 2))
getnca(x = dat$TIME, y = dat$DV, route = "oral")
Run the code above in your browser using DataLab