test_that("standardize_info", {
skip_if_not_installed("datawizard", minimum_version = "0.12.0")
skip_if_not_installed("nlme")
skip_if_not_installed("lme4")
fm1 <- nlme::lme(mpg ~ cyl, mtcars, random = ~ 1 | gear)
fm2 <- nlme::gls(mpg ~ cyl, mtcars)
i1 <- standardize_info(fm1)
i2 <- standardize_info(fm2)
expect_equal(i1$Deviation_Response_Basic, c(sd(mtcars$mpg), sd(mtcars$mpg)), tolerance = 1e-3)
expect_equal(i2$Deviation_Response_Basic, c(sd(mtcars$mpg), sd(mtcars$mpg)), tolerance = 1e-3)
expect_equal(i1$Deviation_Basic, c(0, sd(mtcars$cyl)), tolerance = 1e-3)
expect_equal(i2$Deviation_Basic, c(0, sd(mtcars$cyl)), tolerance = 1e-3)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.