# NOT RUN {
## formula method. See ?AEdotplot.data.frame for other methods.
data(AEdata)
head(AEdata)
AEdotplot(AE ~ nAE/nTRT, groups = TRT, data = AEdata) ## sort by Relative Risk
AEdotplot(AE ~ nAE/nTRT | OrgSys, groups = TRT, data = AEdata) ## conditioned on Organ System
# }
# NOT RUN {
AEdotplot(AE ~ nAE/nTRT, groups = TRT, data = AEdata, sortbyVar="PCT") ## PCT A
AEdotplot(AE ~ nAE/nTRT, groups = TRT, data = AEdata, sortbyVar="PCT", sortbyVarBegin=2) ## PCT B
AEdotplot(AE ~ nAE/nTRT, groups = TRT, data = AEdata, sortbyRelativeRisk=FALSE) ## levels(AE)
AEdotplot(AE ~ nAE/nTRT | OrgSys, groups = TRT, data = AEdata, sortbyVar="ase.logrelrisk")
# }
# NOT RUN {
# }
# NOT RUN {
<!-- %% AEdotplot(AE ~ nAE/nTRT | OrgSys, groups = TRT, -->
<!-- %% data = AEdata[c(AEdata$OrgSys %in% c("GI","Resp")),]) -->
AEdotplot(AE ~ nAE/nTRT | OrgSys, groups = TRT,
data = AEdata[c(AEdata$OrgSys %in% c("GI","Resp")),])
## test sortbyRelativeRisk=FALSE
ABCD.12345 <- AEdata[1:12,]
head(ABCD.12345)
AEdotplot(AE ~ nAE/nTRT | OrgSys, groups=TRT, data=ABCD.12345)
AEdotplot(AE ~ nAE/nTRT | OrgSys, groups=TRT, data=ABCD.12345, sort=FALSE)
## suppress third panel
tmp <- AEdotplot(AE ~ nAE/nTRT, groups = TRT, data = AEdata)
print(tmp, AEtable=FALSE)
# }
# NOT RUN {
# }
# NOT RUN {
## run the shiny app
if (interactive()) shiny::runApp(system.file("shiny/AEdotplot", package="HH"))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab