Lines Matching refs:repetitions
66 RunMultipleTests <- function(title, fun, repetitions, ...) { argument
71 if(repetitions == 1) {
77 pb <- txtProgressBar(min = 0, max = repetitions,
80 results <- vector(mode = "list", repetitions)
81 for(i in 1:repetitions) {
100 CheckEstimatesAndStds <- function(repetitions, title, params, map, pdf, total) { argument
114 results <- RunMultipleTests(title, CheckEstimatesAndStdsHelper, repetitions,
127 (ave_stds / repetitions^.5) * 5),
130 checkTrue(!any(observed_stds > ave_stds * (1 + 5 * repetitions^.5)),
133 checkTrue(!any(observed_stds < ave_stds * (1 - 5 * repetitions^.5)),
155 CheckEstimatesAndStds(repetitions = 1000, "Testing estimates and stds (1/3)",
159 CheckEstimatesAndStds(repetitions = 1000, "Testing estimates and stds (2/3)",
173 CheckEstimatesAndStds(repetitions = 100, "Testing estimates and stds (3/3)",