if (FALSE) {
summarise <- function(condition, results, fixed_objects) {
    #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
}
}
Run the code above in your browser using DataLab