Nothing
library(MCMCpack)
library(dostats)
library(plyr)
foreach::registerDoSEQ()
context("Grafting")
test_that("graft is reproducible", {
results <-
replicate(2, simplify=F, {
datasets <- farm(gather(3, seed = 20120604), {
x1 <- rnorm(100)
x2 <- rnorm(100)
y <- rbinom(100, 1, p=plogis(x1 + x2))
data.frame(y, x1, x2)
}, .progress='none', .parallel=FALSE)
substreams <- llply(datasets, graft, 10)
subchains <- harvest(substreams[[1]], MCMCregress
, formula=y~x1+x2, n=100, .progress='none', .parallel=FALSE)
})
expect_identical(noattr(results[[1]]), noattr(results[[2]]))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.