tests/testthat/test-spaMM_glm.R

cat(crayon::yellow("\ntest spaMM_glm:"))
# salamander

x <- c(43.6,46.5,21.7,18.6,17.3,16.7)
y <- c(2420,708,39.6,16.7,46.7,10.8)
res <-  spaMM_glm(y~ x,data=data.frame(x,y),family=Gamma())

testthat::expect_equal(logLik(res)[1],-37.41405,tolerance=1e-5)

Try the spaMM package in your browser

Any scripts or data that you put into this service are public.

spaMM documentation built on June 22, 2024, 9:48 a.m.