## Test disabled
quit()
## testing subset
require(robustlmm)
fit1 <- rlmer(Yield ~ (1 | Batch), Dyestuff, subset=Batch != "F")
fit2 <- rlmer(Yield ~ (1 | Batch), subset(Dyestuff, Batch != "F"))
stopifnot(all.equal(getInfo(fit1)[-1], getInfo(fit2)[-1]))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.