# 500 bootstrap iterations (nsim) in the example below
# are for quick demonstration only --
# we recommended setting nsim to 10000 (default) or bigger
test1 <- pvlrt(statin46, test_zi = TRUE, nsim = 500)
extract_AE_names(test1)
extract_Drug_names(test1)
set_AE_names(test1, old = "Rhabdomyolysis", new = "Rhabdo")
set_Drug_names(test1, old = "Other", new = "Other-Drugs")
## can be chained with pipes `%>%`:
test2 <- test1 %>%
set_AE_names(old = "Rhabdomyolysis", new = "Rhabdo") %>%
set_Drug_names(old = "Other", new = "Other-Drugs")
# see the summary for changed labels
summary(test2)
Run the code above in your browser using DataLab