# 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"
)
tendril_perm <- TendrilPerm(
tendril = data,
PermTerm="AE40",
n.perm = 200,
perm.from.day = 1)
#Do plot
res <- plot(tendril_perm)
res <- plot(tendril_perm, percentile = TRUE)
#To re-do the plot after the first call:
print(res)
# }
Run the code above in your browser using DataLab