# Generating random parameters for a 3x4 design:
# par <- pargen(lev = c(3,4), s.range = c(0,20))
# Computing the responses:
# R <- averaging(param=par, lev=c(3,4), sd=0) ; R
# R <- averaging(param=par, lev=c(3,4), sd=1, trials=10, range=c(0,20)) ; RRun the code above in your browser using DataLab