if (FALSE) {
# repeat each row 4 times (for cluster computing)
Design <- createDesign(N = c(10, 20),
SD.equal = c(TRUE, FALSE))
Design4 <- expandDesign(Design, 4)
Design4
# match the replication budget. Target is 1000 replications
(replications4 <- expandReplications(1000, 4))
# hence, evaluate each row in Design4 250 times
cbind(Design4, replications4)
####
# Unequal Design intensities
Design24 <- createDesign(SD.equal = c(TRUE, FALSE),
N = c(10, 100, 1000))
# split first two conditions into half rows, next two conditions into quarters,
# while N=1000 condition into tenths
expand <- c(2,2,4,4,10,10)
eDesign <- expandDesign(Design, expand)
eDesign
# target replications is R=1000 per condition
(replications24 <- expandReplications(1000, expand))
cbind(eDesign, replications24)
}
Run the code above in your browser using DataLab