tests/testthat/test-fitPoisGlm-output.R

In SPsimSeq: Semi-parametric simulation tool for bulk and single-cell RNA sequencing data

context("Fast fitting a Poisson glm")
y = rpois(20, 2)
x = rnorm(20)
offs = log(runif(20,1,2))
test_that("fitGlmPois does the same as glm",{
    expect_equivalent(fitPoisGlm(y, x, 2, offs)$coef,
                    glm(y~x+I(x^2), family = "poisson", offset = offs)$coef,
                    tolerance = 1e-5)
  expect_equivalent(fitPoisGlm(y, x, 3, offs)$coef,
                    glm(y~x+I(x^2)+I(x^3), family = "poisson", offset = offs)$coef,
                    tolerance = 1e-5)
          })