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