# 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
plot_timeseries(data, term="AE33")
plot_timeseries(data, term=c("AE33","AE40"))
plot_timeseries(data, term=NULL)
# }
Run the code above in your browser using DataLab