# NOT RUN {
# generate data using Tendril()
data <- Tendril(mydata = TendrilData,
rotations = Rotations,
AEfreqThreshold = 9,
Tag = "Comment",
Treatments = c("placebo", "active"),
Unique.Subject.Identifier = "subjid",
Terms = "ae",
Treat = "treatment",
StartDay = "day",
SubjList = SubjList,
SubjList.subject = "subjid",
SubjList.treatment = "treatment"
)
#Do plot
res <- plot(data, coloring = "Terms")
res <- plot(data, coloring = "p.adj")
#To re-do the plot after the first call:
print(res)
# }
Run the code above in your browser using DataLab