Nothing
library(buildmer)
library(testthat)
test_that('build.formula',{
form1 <- Reaction ~ Days + (Days|Subject)
terms <- tabulate.formula(form1)
form2 <- build.formula(dep='Reaction',terms)
library(lme4)
check <- function (f) resid(lmer(f,sleepstudy))
expect_equal(check(form1),check(form2))
})
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.