# NOT RUN {
# }
# NOT RUN {
statusvalues <- list(
"ongoing" = c("Recruiting", "Active", "Ongoing",
"Active, not recruiting", "Enrolling by invitation"),
"completed" = c("Completed", "Prematurely Ended", "Terminated"),
"other" = c("Withdrawn", "Suspended",
"No longer available", "Not yet recruiting"))
dfMergeTwoVariablesRelevel(result, c("Recruitment", "x5_trial_status"), statusvalues)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab