Allow vector input for calc_derived_3cpt()

[billdenney]

Here is what I was trying to do (except my real data had 26k rows):

library(pmxTools)
#> Loading required package: patchwork
mydata <-
  data.frame(
    CL = c(0.25, 0.25),
    Vcentral = c(1, 1),
    Vperiph1 = c(0.25, 0.25),
    Vperiph2 = c(0.25, 0.25),
    Qcp1 = c(0.25, 0.25),
    Qcp2 = c(0.25, 0.25),
    Ka = c(0, 0)
  )

with(
  mydata,
  calc_derived_3cpt(
    CL=CL, V1=Vcentral,
    V2=Vperiph1, Q2=Qcp1,
    V3=Vperiph2, Q3=Qcp2,
    ka=Ka,
    sigdig=Inf
  )
)
#> Error in while (tend < guess_tmax) {: the condition has length > 1

^{Created on 2023-09-07 with reprex v2.0.2}