# 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