diff --git a/book/listings/pharmacokinetic/adal01.qmd b/book/listings/pharmacokinetic/adal01.qmd index 19660293f8..b4186ef4b4 100644 --- a/book/listings/pharmacokinetic/adal01.qmd +++ b/book/listings/pharmacokinetic/adal01.qmd @@ -55,15 +55,6 @@ adab_f1 <- adab_f %>% select(USUBJID, VISIT, NFRLT, ISTPT, AVAL_pk, R1800000, R1800001, RESULT1, RESULT2, ADASTAT1, ADASTAT2) %>% mutate(ADA = R1800000, NAB = R1800001) %>% select(-R1800000, -R1800001) -# %>% -# rename( -# RES_ADA = `ADA interpreted per sample result`, -# TES_ADA = `Treatment Emergent - Positive`, -# TU_ADA = `Antibody titer units`, -# RES_NAB = `NAB interpreted per sample result`, -# TES_NAB = `Treatment Emergent - Positive, Neutralizing Antibody`, -# TU_NAB = `Neutralizing Antibody titer units` -# ) # Find subject level ADA status adab_s <- adab_f1 %>% select(USUBJID, ADASTAT1, ADASTAT2) %>% filter(!is.na(ADASTAT1), !is.na(ADASTAT2))