# *** High-level settings ***
<- 0L
support_level
# ggplot theme
::theme_set(theme_pmx())
ggplot2<- pmx_palettes(divName="divergentRedGreen",type="divergent")[4]
targetColor <- pmx_palettes(divName="divergentRedGreen",type="divergent")[8]
therapeuticColor
# Seed number
<- 201110
SIMSEED
# Nr of 'populations' (for cases with parameter uncertainty) and
# nr of 'individuals' (for cases with IIV)
<- 200L
n_pop <- 200L
n_ind
# Nr of points to split graphs into (along x axes)
<- 50L
n_points
# Width of CIs / PIs
<- 0.95
CI_width <- 0.90 PI_width
Project details
Project name | DualNP_2 | |
---|---|
Asset(s) | ABC001, ABC002, and ABC003 | |
Stage | Candidate selection |
Date | 04 October, 2024 | |
Responsible | P. Pharmetheusson |
Input data
Pharmacokinetic and exposure-response parameters
Range and criteria variables
Concentration - response
# *** Actual concentration-response functions used in this report ***
<- function(C, EMAX, HILL, EC50) {
emax_fnc return(list(value = EMAX * C**HILL / (EC50**HILL + C**HILL)))
}
<- list(
conc_response_fncs `ABC001` = list( `T1` = emax_fnc, `T2` = emax_fnc ),
`ABC002` = list( `T1` = emax_fnc, `T2` = emax_fnc ),
`ABC003` = list( `T1` = emax_fnc, `T2` = emax_fnc )
)
Median response, including parameter uncertainty
Between-subject variability
Dose - concentration
# *** Actual dose-concentration functions used in this report ***
<- list(
dose_conc_fncs `ABC001` = function(Dose, CL, F, MW, Tau) { return(list(value=F*Dose/CL/Tau/ MW * 1e6)) },
`ABC002` = function(Dose, CL, F, MW, Tau) { return(list(value=F*Dose/CL/Tau/ MW * 1e6)) },
`ABC003` = function(Dose, CL, F, MW, Tau) { return(list(value=F*Dose/CL/Tau/ MW * 1e6)) }
)
Median concentration, including parameter uncertainty
Between-subject variability
Dose - response
# *** Actual dose-response functions used in this report ***
<- list(
dose_response_fncs `ABC001` = list(
`T1` = function(Dose, CL, F, Tau, MW, EMAX, HILL, EC50) {
<- dose_conc_fncs$`ABC001`(Dose=Dose, CL=CL, F=F, Tau=Tau, MW)$value
C <- conc_response_fncs$`ABC001`$T1(C=C, EMAX=EMAX, HILL=HILL, EC50=EC50)$value
resp return( list(value=resp, Conc=C) )
},`T2` = function(Dose, CL, F, Tau, MW, EMAX, HILL, EC50) {
<- dose_conc_fncs$`ABC001`(Dose=Dose, CL=CL, F=F, Tau=Tau, MW)$value
C <- conc_response_fncs$`ABC001`$T2(C=C, EMAX=EMAX, HILL=HILL, EC50=EC50)$value
resp return( list(value=resp, Conc=C) )
}
),`ABC002` = list(
`T1` = function(Dose, CL, F, Tau, MW, EMAX, HILL, EC50) {
<- dose_conc_fncs$`ABC002`(Dose=Dose, CL=CL, F=F, Tau=Tau, MW)$value
C <- conc_response_fncs$`ABC002`$T1(C=C, EMAX=EMAX, HILL=HILL, EC50=EC50)$value
resp return( list(value=resp, Conc=C) )
},`T2` = function(Dose, CL, F, Tau, MW, EMAX, HILL, EC50) {
<- dose_conc_fncs$`ABC002`(Dose=Dose, CL=CL, F=F, Tau=Tau, MW)$value
C <- conc_response_fncs$`ABC002`$T2(C=C, EMAX=EMAX, HILL=HILL, EC50=EC50)$value
resp return( list(value=resp, Conc=C) )
}
),`ABC003` = list(
`T1` = function(Dose, CL, F, Tau, MW, EMAX, HILL, EC50) {
<- dose_conc_fncs$`ABC003`(Dose=Dose, CL=CL, F=F, Tau=Tau, MW)$value
C <- conc_response_fncs$`ABC003`$T1(C=C, EMAX=EMAX, HILL=HILL, EC50=EC50)$value
resp return( list(value=resp, Conc=C) )
},`T2` = function(Dose, CL, F, Tau, MW, EMAX, HILL, EC50) {
<- dose_conc_fncs$`ABC003`(Dose=Dose, CL=CL, F=F, Tau=Tau, MW)$value
C <- conc_response_fncs$`ABC003`$T2(C=C, EMAX=EMAX, HILL=HILL, EC50=EC50)$value
resp return( list(value=resp, Conc=C) )
}
) )
Median response, including parameter uncertainty
Between-subject variability
PoPS - Probability of pharmacological success
Criteria-by-criteria PoPS
For asset 'ABC001':
- The individual exposure target is between 0 nM and 160 nM
- The target for the population is to have between 90% and 100% meet this
- The individual response target for endpoint T1 is between 0.85 - and 1 -
- The target for the population is to have between 50% and 100% meet this
- The individual response target for endpoint T2 is between 0.2 - and 0.4 -
- The target for the population is to have between 50% and 100% meet this
For asset 'ABC002':
- The individual exposure target is between 0 nM and 280 nM
- The target for the population is to have between 90% and 100% meet this
- The individual response target for endpoint T1 is between 0.85 - and 1 -
- The target for the population is to have between 50% and 100% meet this
- The individual response target for endpoint T2 is between 0.2 - and 0.4 -
- The target for the population is to have between 50% and 100% meet this
For asset 'ABC003':
- The individual exposure target is between 0 nM and 330 nM
- The target for the population is to have between 90% and 100% meet this
- The individual response target for endpoint T1 is between 0.85 - and 1 -
- The target for the population is to have between 50% and 100% meet this
- The individual response target for endpoint T2 is between 0.2 - and 0.4 -
- The target for the population is to have between 50% and 100% meet this
Composite PoPS
The final PoPS results by dose are shown in Figure 6.
The final cumulative PoPS results considering the successive ascending dose ranges are shown in Figure 7.
For ABC001 (dosing every 24 h), the PoPS over the doses of interest (8, 13, 18mg) is 83.5%. For ABC002 (dosing every 24 h), the PoPS over the doses of interest (15, 20, 30mg) is 65%. For ABC003 (dosing every 24 h), the PoPS over the doses of interest (15, 25, 35mg) is 40.5%.