Function for generating a random Laboratory Data Analysis Dataset for a given Subject-Level Analysis Dataset.
radlb(
adsl,
lbcat = c("CHEMISTRY", "CHEMISTRY", "IMMUNOLOGY"),
param = c("Alanine Aminotransferase Measurement", "C-Reactive Protein Measurement",
"Immunoglobulin A Measurement"),
paramcd = c("ALT", "CRP", "IGA"),
paramu = c("U/L", "mg/L", "g/L"),
aval_mean = c(18, 9, 2.9),
visit_format = "WEEK",
n_assessments = 5L,
n_days = 5L,
max_n_lbs = 10L,
lookup = NULL,
seed = NULL,
na_percentage = 0,
na_vars = list(LOQFL = c(NA, 0.1), ABLFL2 = c(1234, 0.1), ABLFL = c(1235, 0.1), BASE2 =
c(NA, 0.1), BASE = c(NA, 0.1), CHG2 = c(1235, 0.1), PCHG2 = c(1235, 0.1), CHG =
c(1234, 0.1), PCHG = c(1234, 0.1)),
cached = FALSE
)
data.frame
(data.frame
)
Subject-Level Analysis Dataset (ADSL).
(character vector
)
LB category values.
(character vector
)
Parameter values.
(character vector
)
Parameter code values.
(character vector
)
Parameter unit values.
(numeric vector
)
Mean values corresponding to each parameter.
(character
)
Type of visit. Options are "WEEK" and "CYCLE".
(integer
)
Number of weeks or cycles.
(integer
)
Number of days in each cycle (only used if visit_format
is "CYCLE").
(integer
)
Maximum number of labs per patient. Defaults to 10.
(data.frame
)
Additional parameters.
(numeric
)
Seed to use for reproducible random number generation.
(proportion
)
Default percentage of values to be replaced by NA
.
(list
)
A named list where the name of each element is a column name of ds
. Each
element of this list should be a numeric vector with two elements:
seed
(numeric
)
The seed to be used for this element - can be NA
.
percentage
(proportion
)
Percentage of elements to be replaced with NA
.
If NA
, na_percentage
is used as a default.
boolean whether the cached ADLB data cadlb
should be returned or new data
should be generated. If set to TRUE
then the other arguments to radlb
will be ignored.
tomlinsj, npaszty, Xuefeng Hou
One record per subject per parameter per analysis visit per analysis date.
Keys: STUDYID
, USUBJID
, PARAMCD
, BASETYPE
, AVISITN
, ATPTN
, DTYPE
, ADTM
, LBSEQ
, ASPID
adsl <- radsl(N = 10, seed = 1, study_duration = 2)
adlb <- radlb(adsl, visit_format = "WEEK", n_assessments = 7L, seed = 2)
adlb
adlb <- radlb(adsl, visit_format = "CYCLE", n_assessments = 2L, seed = 2)
adlb
Run the code above in your browser using DataLab