# NOT RUN {
summarise <- function(condition, results, fixed_objects = NULL) {
#find results of interest here (alpha < .1, .05, .01)
lessthan.05 <- EDR(results, alpha = .05)
# return the results that will be appended to the design input
ret <- c(lessthan.05=lessthan.05)
ret
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab