osx <- tryCatch( { si <- Sys.info() if (!is.null(si["sysname"])) { si["sysname"] == "Darwin" || grepl("^darwin", R.version$os) } else { FALSE } }, error = function(e) { FALSE } ) if (!osx && requiet("mgcv") && requiet("gamm4") && requiet("rstanarm")) { data <- iris data$g <- data$Species data$Xr <- data$Species test_that("find_random - mgcv::gamm", { model <- mgcv::gamm(Petal.Length ~ Petal.Width + s(Sepal.Length), random = list(Species = ~1), data = iris) expect_equal(insight::find_random(model, flatten = TRUE), "Species") model <- mgcv::gamm(Petal.Length ~ Petal.Width + s(Sepal.Length), random = list(g = ~1), data = data) expect_equal(insight::find_random(model, flatten = TRUE), "g") }) test_that("find_random - gamm4::gamm4", { model <- gamm4::gamm4(Petal.Length ~ Petal.Width + s(Sepal.Length), random = ~ (1 | Species), data = iris) expect_equal(insight::find_random(model, flatten = TRUE), "Species") model <- gamm4::gamm4(Petal.Length ~ Petal.Width + s(Sepal.Length), random = ~ (1 | Xr), data = data) expect_equal(insight::find_random(model, flatten = TRUE), "Xr") }) .runStanTest <- Sys.getenv("RunAllinsightStanTests") == "yes" if (.runStanTest) { test_that("find_random - rstanarm::gamm4", { model <- suppressWarnings(rstanarm::stan_gamm4( Petal.Length ~ Petal.Width + s(Sepal.Length), random = ~ (1 | Species), data = iris, iter = 100, chains = 1, refresh = 0 )) expect_equal(insight::find_random(model, flatten = TRUE), "Species") }) } }
Generated by dwww version 1.15 on Sat May 18 07:59:29 CEST 2024.