if (FALSE) ## Stress testing.
t1 <- stresstest_exercise("tstat.Rnw", n = 100)
t2 <- stresstest_exercise("tstat2.Rnw", n = 100)
## Plotting.
plot(t1, type = "overview")
plot(t1, type = "solution")
plot(t1, type = "solution", threshold = 30)
plot(t2, type = "rank")
plot(t2, type = "runtime")
## For custom inspection, object can be
## transformed to a data.frame.
head(as.data.frame(t2))
## Multiple testing.
files <- list(
"boxplots",
c("tstat", "ttest", "confint"),
c("regression", "anova"),
"scatterplot",
"relfreq"
)
t3 <- stresstest_exercise(files, n = 100)
plot(t3)
Run the code above in your browser using DataLab