# NOT RUN {
# Create tendril
tendril <- 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"
)
# Compute permutations
perm.data <- TendrilPerm(tendril = tendril,
PermTerm="AE40",
n.perm = 200,
perm.from.day = 1)
# Plot results
plot(perm.data)
plot(perm.data, percentile = TRUE)
# }
Run the code above in your browser using DataLab