library("sansSouci")
file <- system.file("DBNR/envelopes/simu.hulk.R", package = "sansSouci", mustWork = TRUE)
source(file)
ms <- 12800
ss <- rev(c(10, 50, 100, 200, 400))
ds <- c(0.5, 0.75, 0.9, 1)
barmus <- c(2, 3, 4, 5)
K1s <- c(1, 4, 8, 16, 32)
groupeds <- c(TRUE, FALSE)
settings <- c("const", "gauss", "poisson", "rgauss")[4]
configs <- expand.grid(
m = ms,
s = ss,
K1 = K1s,
d = ds,
barmu = barmus,
grouped = groupeds,
setting = settings,
stringsAsFactors = FALSE)
repl <- 2 ## number of replications
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.