dfped (version 1.1)

doseRange: Dose-range for the paediatric population according to adult clearance, adult doses and paediatric clearance.

Description

This function gives the dose-range for paediatrics, given the adult apparent clearance, the paediatric apparent clearance (known or estimated) and the adult doses. The paediatric apparent clearance can be estimated using the maturation adjustment (through the function Clch.Mat), allometric adjustment (through the function Clch.Allo) or linear adjustment (through the function Clch.Linear).

Usage

doseRange(Clch, Clad, doseAd)

Arguments

Clch

The paediatric apparent clearance which can be calculated using the maturation (Clch.Mat) or allocation (Clch.Allo) or linear adjustment (Clch.Linear) functions for a specific age.

Clad

The clearance of adult.

doseAd

The dose which is given to adult.

References

Petit, C., et al, (2016) Unified approach for extrapolation and bridging of adult information in early phase dose-finding paediatric studies, Statistical Methods in Medical Research, <doi:10.1177/0962280216671348>.

See Also

skeleton

Examples

# NOT RUN {
    ########
    # Note: For this example we are using a paediatric database that we have including data of 
    # children from 0 to 19 years old.
    ########


    # Doses of adults
    doseAd <- data.frame("d1" = 100, "d2" = 150,"d3" = 200,"d4"= 250,"d5" =300)
    
    Cl_ad <- 3.95
    children <- read.csv("/Users/artemistoumazi/paediatric_data_p3m/children_0_19.csv")
    AGE <- children$Age
    W <- children$Weight
    W_ad <- 70
    Cl_ad <- 3.95
    F_ad <- 0.6
    Eg <- 0
    Eh <- 0.058
    f_abs <- F_ad/((1 - Eh)*(1-Eg))
    fu_ad <- 1
    perc_CYPh <- data.frame("CYP3A4_5" = 0.7, "CYP1A2" = 0.3)
    perc_CYPg <- data.frame("CYP3A4_5" = 1)
    perc_alb <- 1
    perc_alpha1AG <- 0 

    data_molecule <- list(F_ad, f_abs, Eg, Eh, fu_ad, perc_CYPg, perc_CYPh, perc_alb, 
                          perc_alpha1AG)

    # Compute the clearance of children using maturation adjustment via 
    # the function Clch.Mat().
    Clch_mat <- Clch.Mat(AGE, W, Cl_ad, W_ad, data_molecule)
    
    doseRange(Clch_mat, Cl_ad, doseAd)
# }