library(tibble)
library(admiral)
library(admiraldev)
library(dplyr)
library(rlang)
input <- tribble(
~USUBJID, ~AVISITN, ~PARAMCD, ~PARAM, ~ISORRES, ~ISSTRESN, ~ISLLOQ, ~ISULOQ,
"ABC-1001", 10, "J0033VN", "J0033VN Antibody", NA, NA, 2, 100,
"ABC-1001", 10, "I0019NT", "I0019NT Antibody", "3", 3.0, 4, 200,
"ABC-1001", 10, "M0019LN", "M0019LN Antibody", ">150", NA, 8, 150,
"ABC-1001", 10, "R0003MA", "R0003MA Antibody", "140.5", 140.5, 4, 120,
"ABC-1001", 30, "J0033VN", "J0033VN Antibody", "2", 2.0, 2, 100,
"ABC-1001", 30, "I0019NT", "I0019NT Antibody", NA, NA, 4, 200,
"ABC-1001", 30, "M0019LN", "M0019LN Antibody", NA, NA, 8, 150,
"ABC-1001", 30, "R0003MA", "R0003MA Antibody", "98.2", 98.2, 4, 120,
"ABC-1001", 10, "J0033VNL", "LOG10 (J0033VN Antibody)", NA, NA, 2, 100,
"ABC-1001", 10, "I0019NTL", "LOG10 (I0019NT Antibody)", "3", 3.0, 4, 200,
"ABC-1001", 10, "M0019LNL", "LOG10 (M0019LN Antibody)", ">150", NA, 8, 150,
"ABC-1001", 10, "R0003MAL", "LOG10 (R0003MA Antibody)", "140.5", 140.5, 4, 120,
"ABC-1001", 30, "J0033VNL", "LOG10 (J0033VN Antibody)", "2", 2.0, 2, 100,
"ABC-1001", 30, "I0019NTL", "LOG10 (I0019NT Antibody)", NA, NA, 4, 200,
"ABC-1001", 30, "M0019LNL", "LOG10 (M0019LN Antibody)", NA, NA, 8, 150,
"ABC-1001", 30, "R0003MAL", "LOG10 (R0003MA Antibody)", "98.2", 98.2, 4, 120,
"ABC-1002", 10, "J0033VN", "J0033VN Antibody", "3", 3.0, 2, 100,
"ABC-1002", 10, "I0019NT", "I0019NT Antibody", NA, NA, 4, 200,
"ABC-1002", 10, "M0019LN", "M0019LN Antibody", NA, NA, 8, 150,
"ABC-1002", 10, "R0003MA", "R0003MA Antibody", "48.9", 48.9, 4, 120,
"ABC-1002", 30, "J0033VN", "J0033VN Antibody", NA, NA, 2, 100,
"ABC-1002", 30, "I0019NT", "I0019NT Antibody", NA, NA, 4, 200,
"ABC-1002", 30, "M0019LN", "M0019LN Antibody", "5", 5.0, 8, 150,
"ABC-1002", 30, "R0003MA", "R0003MA Antibody", "228.1", 228.1, 4, 120
)
derive_var_aval_adis(
dataset = input,
lower_rule = ISLLOQ / 2,
middle_rule = ISSTRESN,
upper_rule = ISULOQ,
round = 2
)
Run the code above in your browser using DataLab