tci_pd(pdresp = c(80,70,70), tms = c(2,4,6), pkmod = pkmod2cpt, pdmod = emax,
pars_pk = c(CL = 15, V1 = 10, Q2 = 10, V2 = 20),
pars_pd = c(c50 = 1.5, gamma = 1.47, e0 = 100, emx = 100),
pdinv = inv_emax)
Run the code above in your browser using DataLab