## Not run:
#
# mysummarise <- 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
# }
#
# ## End(Not run)
Run the code above in your browser using DataLab