## Not run:
#
# myanalyse <- function(condition, dat, fixed_objects = NULL){
#
# # require packages/define functions if needed, or better yet index with the :: operator
# require(stats)
# mygreatfunction <- function(x) print('Do some stuff')
#
# #wrap computational statistics in try() statements to control estimation problems
# welch <- t.test(DV ~ group, dat)
# ind <- stats::t.test(DV ~ group, dat, var.equal=TRUE)
#
# # In this function the p values for the t-tests are returned,
# # and make sure to name each element, for future reference
# ret <- c(welch = welch$p.value,
# independent = ind$p.value)
#
# return(ret)
# }
#
# ## End(Not run)
Run the code above in your browser using DataLab