Don't use experiment. That is for factorial. Run through each list of parameters with lapply and spades
e.g., (below is not quite right... it is close -- but this should get you in the right direction -- basically, make simLists with correct parameter combinations, the lapply through them)
paramLists = lapply(1:3, function(index) {
out <- list()
out[["spreadprob"]] = runif(1, 0.1, 0.4),
out[["nfires"]] = runif(1, 10, 20))
out
})
bunchOfSimLists <- lapply(paramLists, function(params) {
simInit(modules = modules, ...., params = param))
lapply(bunchOfSimLists, spades)
THe last line can be mclapply if you have many cores.