if (FALSE) {
generate <- function(condition, fixed_objects) {
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))
# just a silly example of a simulated parameter
pars <- list(random_number = rnorm(1))
list(dat=dat, parameters=pars)
}
# similar to above, but using the Attach() function instead of indexing
generate <- function(condition, fixed_objects) {
Attach(condition)
N1 <- sample_sizes_group1
N2 <- sample_sizes_group2
sd <- 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))
dat
}
generate2 <- function(condition, fixed_objects) {
mu <- sample(c(-1,0,1), 1)
dat <- rnorm(100, mu)
dat #return simple vector (discard mu information)
}
generate3 <- function(condition, fixed_objects) {
mu <- sample(c(-1,0,1), 1)
dat <- data.frame(DV = rnorm(100, mu))
dat
}
}
Run the code above in your browser using DataLab