fix seed for future

[shfischer]

It looks like there is a bug in how the seed argument is passed to future:

mse/R/mp.R

Line 214 in 4f50190

.options.future=list(globals=structure(TRUE, seed=seed)),

If random numbers are generated when run in parallel, future returns a warning, even when seed=TRUE defined in args:

1: UNRELIABLE VALUE: Iteration 1 of the foreach() %dofuture% { ... }, part of chunk #1 (‘doFuture2-1’), unexpectedly generated random numbers without declaring so. There is a risk that those random numbers are not statistically sound and the overall results might be invalid. To fix this, specify foreach() argument '.options.future = list(seed = TRUE)'. This ensures that proper, parallel-safe random numbers are produced via the L'Ecuyer-CMRG method. To disable this check, set option 'doFuture.rng.onMisuse' to "ignore".

I think the seed argument should be outside of structure():
.options.future=list(seed=seed, globals=structure(TRUE))
instead of
.options.future=list(globals=structure(TRUE, seed=seed))
which removes the warning message.