## Repeated measures design, suppose subjects from 4 independent treatment groups
## measured at 5 different timepoints.
refmean <- 1
treatgroups <- 4
timepoints <- 5
treateff <- 1.5
timeeff <- 0.85
rho <- 0.8
withinf <- "fB"
factors_levels_names <- list(treatment=letters[1:treatgroups], time=1:timepoints)
effects_treat_time <- calculate_mean_matrix(refmean = refmean,
fAeffect = treateff, fBeffect = timeeff,
nlfA = treatgroups, nlfB = timepoints,
rho = rho, withinf = withinf,
label_list = factors_levels_names)
## Inspect plot to check if matrices correspond to design
effects_treat_time$meansplot
n <- 20
repeatedmeasures_experiment <- twoway_simulation_correlated(group_size = n,
matrices_obj = effects_treat_time)
head(repeatedmeasures_experiment, 10)
Run the code above in your browser using DataLab