Funcțiile experimentale sunt o nouă clasă de funcții, etichetate cu insigna „Experimental”. Acesta este modul nostru de a adăuga funcționalități noi, țintite, pe care le putem îmbunătăți/modifica rapid, fără a ne încălca angajamentul față de stabilitate. Insigna va fi eliminată odată ce echipa de dezvoltatori consideră că funcția este stabilă și nu vor fi transmise utilizatorului niciun mesaj de depreciere dacă sunt implementate modificări nerespective înainte de a elimina insigna experimentală. Cu toate acestea, {amiral} va documenta ultima modificare în Jurnalul de modificări. Odată ce insigna „Experimental” este eliminată, vom continua cu ciclul normal de depreciere, dacă este necesar.
Primele noastre funcții experimentale ajută la derivarea variabilelor pentru analiza punctului de timp. O astfel de variabilă este NFRLT (Timp relativ nominal de la prima doză), care este utilizat pe scară largă în analiza farmacocinetică. Aceasta este variabila omonimă pentru derive_var_nfrlt(). Această funcție poate fi utilizată pentru a deriva direct NFRLT în concentrațiile farmacocinetice (PC) și în domeniul Expunere (EX) domeniu. Aceste domenii sunt de obicei combinate pentru a forma datele de analiză a concentrațiilor farmacocinetice (ADPC). Sub capota acestei funcții se află convert_xxtpt_to_hours()care convertește variabile punct de timp, cum ar fi PCTPT la ore numerice folosind expresii regulate. Orele calculate din convert_xxtpt_to_hours() sunt combinate cu zilele dintr-o variabilă de vizită precum VISITDY a deriva NFRLT. Rețineți că variabila unitate FRLTU pot fi, de asemenea, derivate și există mai multe opțiuni de unități de ieșire (ore, zile, săptămâni, minute).
install.packages("admiral", repos = "https://cloud.r-project.org")
Installing package into '/usr/local/lib/R/site-library' (as 'lib' is unspecified)
also installing the dependency 'admiraldev'
library(admiral)
library(tibble)
adpc_nfrlt <- tribble(
~USUBJID, ~VISITDY, ~PCTPT, ~PCSTRESN,
"001", 1, "Pre-dose", 0.0,
"001", 1, "30M Post-dose", 5.2,
"001", 1, "1H Post-dose", 8.4,
"001", 1, "2H Post-dose", 12.1,
"001", 1, "4H Post-dose", 10.3,
"001", 1, "8H Post-dose", 6.8,
"001", 1, "24H Post-dose", 2.1
)
adpc_nfrlt %>%
derive_var_nfrlt(
new_var = NFRLT,
new_var_unit = FRLTU,
out_unit = "HOURS",
tpt_var = PCTPT,
visit_day = VISITDY
)
# A tibble: 7 × 6 USUBJID VISITDY PCTPT PCSTRESN NFRLT FRLTU1 001 1 Pre-dose 0 0 HOURS 2 001 1 30M Post-dose 5.2 0.5 HOURS 3 001 1 1H Post-dose 8.4 1 HOURS 4 001 1 2H Post-dose 12.1 2 HOURS 5 001 1 4H Post-dose 10.3 4 HOURS 6 001 1 8H Post-dose 6.8 8 HOURS 7 001 1 24H Post-dose 2.1 24 HOURS
Funcțiile pot funcționa cu orice variabilă punct de timp din alte domenii, cum ar fi LB, VS sau „EG”. Există, de asemenea, o opțiune de durată a tratamentului în cazul perfuziilor și o opțiune pentru intervale de timp, cum ar fi „4-8H DUPĂ sfârșitul perfuziei”.
