Displaying 1 result from an estimated 1 matches for "total_dose_tau".
2010 May 02
2
Calculation error
...convert lbs to kg
vd.pt <- wtkg * vd # compute weight-based vd (L)
cl.pt <- wtkg * cl # compute CL (L/hr)
k <- cl.pt/vd.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 *...