mygenerate <- function(condition, fixed_objects = NULL){
#require packages/define functions if needed, or better yet index with the :: operator
N1 <- condition$sample_sizes_group1
N2 <- condition$sample_sizes_group2
sd <- condition$standard_deviations
group1 <- rnorm(N1)
group2 <- rnorm(N2, sd=sd)
dat <- data.frame(group = c(rep('g1', N1), rep('g2', N2)), DV = c(group1, group2))
pars <- list(random_number = rnorm(1)) # just a silly example of a simulated parameter
#could just use return(dat) if no parameters should be tracked for Summerise
return(list(dat=dat, parameters=pars))
}
mygenerate2 <- function(condition, fixed_objects = NULL){
mu <- sample(c(-1,0,1), 1)
dat <- rnorm(100, mu)
dat #return simple vector (discard mu information)
}
mygenerate3 <- function(condition, fixed_objects = NULL){
mu <- sample(c(-1,0,1), 1)
dat <- rnorm(100, mu)
attr(dat, 'mu') <- mu # store mu as an attribute 'mu'
dat
}
# in the Analyse function, use attr(dat, 'mu') to pull out the mu object for further use
Run the code above in your browser using DataLab