Concentration predictions for 1-compartmental PK model after single or multiple bolus doses

Usage

pk_1cmt_bolus(t = c(0:24), dose = 100, tau = 12, CL = 3, V = 30, ruv = NULL)

Arguments

t: vector of time
dose: dose
tau: dosing interval
CL: clearance
V: volume of distribution
ruv: residual error (list)

Examples

pk_1cmt_bolus(dose = 500, tau = 12, CL = 5, V = 50)
#>     t        dv
#> 1   0 10.000000
#> 2   1  9.048374
#> 3   2  8.187308
#> 4   3  7.408182
#> 5   4  6.703200
#> 6   5  6.065307
#> 7   6  5.488116
#> 8   7  4.965853
#> 9   8  4.493290
#> 10  9  4.065697
#> 11 10  3.678794
#> 12 11  3.328711
#> 13 12 13.011942
#> 14 13 11.773692
#> 15 14 10.653277
#> 16 15  9.639484
#> 17 16  8.722166
#> 18 17  7.892142
#> 19 18  7.141105
#> 20 19  6.461539
#> 21 20  5.846642
#> 22 21  5.290261
#> 23 22  4.786826
#> 24 23  4.331299
#> 25 24 13.919122
pk_1cmt_bolus(dose = 500, tau = 12, CL = 5, V = 50, t = 24)
#>    t       dv
#> 1 24 13.91912
pk_1cmt_bolus(
  dose = 500, tau = 12, CL = 5, V = 50,
  ruv = list(prop = 0.1, add = 0.1))
#>     t        dv
#> 1   0 10.141865
#> 2   1  7.450407
#> 3   2  8.945515
#> 4   3  7.288663
#> 5   4  6.554063
#> 6   5  6.094157
#> 7   6  5.495307
#> 8   7  5.431324
#> 9   8  3.601303
#> 10  9  5.231222
#> 11 10  3.601531
#> 12 11  3.344905
#> 13 12 14.520928
#> 14 13 10.729404
#> 15 14 11.824432
#> 16 15  9.445841
#> 17 16  7.656880
#> 18 17  7.164405
#> 19 18  8.007984
#> 20 19  6.651490
#> 21 20  6.128516
#> 22 21  4.439822
#> 23 22  4.250098
#> 24 23  4.418937
#> 25 24 15.875189