Displaying 1 result from an estimated 1 matches for "cmaxss".
2010 May 02
2
Calculation error
....pt # compute k (hr^-1)
cave <- round((twhi - twlo)/log(twhi/twlo),2)
doserate <- (cl.pt * cave)/F
# maintenance dose (Dm)
total_dose_tau <- round(doserate * tau,0)
Cmax <- total_dose_tau/vd.pt
Cmin <- Cmax * exp(-k * tau)
AR <- 1/(1 - exp(-k * tau))
Cmaxss <- Cmax * AR
Cminss <- Cmin * AR
Cfluctss <- (Cmaxss - Cminss)
Ct <- (Cmaxss * exp(-k * t))
dose_loading_vd <- round(Cmaxss * vd.pt,0)
dose_loading_dm <- round(total_dose_tau * AR,0)
options(digits=2)
c("Ther. Win. (mg)"=twlo,"to"=twhi,&quo...