library(repfun)
add_decode <- repfun::ru_groupbyvars(
c("TRTCD", "TRTGRP", "ATOXGRN", "AEDECOD", "AEBODSYS"),
c("TRTCD", "TRTGRP", "ATOXGRN", "ATOXGR"), TRUE)
rem_decode <- repfun::ru_groupbyvars(
c("TRTCD", "TRTGRP", "ATOXGRN", "AEDECOD", "AEBODSYS"),
c("TRTCD", "TRTGRP", "ATOXGRN", "ATOXGR"), FALSE)
Run the code above in your browser using DataLab