## 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")
# ## End(Not run)
## Not run:
#
#
# 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)
# ## End(Not run)
## Not run:
# ## run the shiny app
# shiny::runApp(system.file("shiny/AEdotplot", package="HH"))
# ## End(Not run)
Run the code above in your browser using DataLab