sample_data <- data.frame(
STUDYID = "STUDY001",
DOSETRT = "Drug",
ANALYTE = "DOSETRT",
USUBJID = c(
# 1. Single IV Dose subject
"Subj-01", "Subj-01",
# 2. Multiple Extravascular Doses subject (identified by TRTRINT)
"Subj-02", "Subj-02",
# 3. Excretion Data subject (identified by positive volume)
"Subj-03", "Subj-03"
),
PCSPEC = "PLASMA",
DOSNOA = c(
1, 1, # Single dose
1, 1, # Appears as single dose...
1, 1 # Single dose
),
ROUTE = c(
"INTRAVENOUS", "INTRAVENOUS",
"extravascular", "extravascular",
"INTRAVENOUS", "INTRAVENOUS"
),
ADOSEDUR = c(
0, 0,
0, 0,
2, 2),
SAMPLE_VOLUME = c(
NA, 0,
NA, 0,
10, 12 # Positive volume indicates excretion
),
TRTRINT = c(
NA, NA,
24, 24, # ...but TRTRINT indicates a multiple-dose regimen
NA, NA
),
METABFL = c(
"N", "N",
"N", "N",
"Y", "Y" # mark last subject as metabolite
)
)
study_summary <- detect_study_types(
data = sample_data,
groups = c("USUBJID", "PCSPEC", "DOSETRT"),
metabfl_column = "METABFL",
route_column = "ROUTE",
volume_column = "SAMPLE_VOLUME"
)
Run the code above in your browser using DataLab