Running 'testthat.R' [12s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(mcglm)
  ----------------------------------------------------------------------
    mcglm: Multivariate Covariance Generalized Linear Models
  
    For support, collaboration or bug report, visit: 
      http://mcglm.leg.ufpr.br/
  
    mcglm version 0.7.0 (build on 2021-07-07) is now loaded.
  ----------------------------------------------------------------------
  > 
  > test_check("mcglm")
  [1] "Running test_mc_build_C.R"
  [1] "Testing covariance identity"
  [1] "OK"
  [1] "Testing covariance inverse"
  [1] "OK"
  [1] "Testing covariance expm"
  [1] "OK"
  [1] "Checking computations"
  [1] "Testing variance function: tweedie"
  [1] "OK"
  [1] "Testing variance function: binomialP"
  [1] "OK"
  [1] "Checking Poisson-Tweedie derivatives"
  [1] "Checking binomiaPQ derivatives"
  [1] "test_mc_build.C - OK"
  [1] "test_mc_build_omega.R"
  [1] "test_mc_build_omega.R - OK"
  [1] "test_mc_build_sigma.R"
  [1] "test_mc_build_sigma.R - OK"
  [1] "test_mc_build_sigma_between.R"
  [1] "test_mc_build_sigma_between.R-OK"
  [1] "Testing link functions ..."
  [1] "Testing link functions - Part II"
  [1] "Testing link functions - Part II"
  [1] "Testing Matrix linear predictor..."
  [1] "Testing Matrix linear predictor... OK"
  [1] "Testing variance function ..."
  [1] "Testing variance function ... OK"
  [ FAIL 1 | WARN 1 | SKIP 0 | PASS 370 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test_mc_quasi_score.R:29:1): (code run outside of `test_that()`) ─────
  Error in `(function (classes, fdef, mtable) 
  {
      methods <- .findInheritedMethods(classes, fdef, mtable)
      if (length(methods) == 1L) 
          return(methods[[1L]])
      else if (length(methods) == 0L) {
          cnames <- paste0("\"", vapply(classes, as.character, 
              ""), "\"", collapse = ", ")
          stop(gettextf("unable to find an inherited method for function %s for signature %s", 
              sQuote(fdef@generic), sQuote(cnames)), domain = NA)
      }
      else stop("Internal error in finding inherited methods; didn't return a unique method", 
          domain = NA)
  })(list(structure("dgCMatrix", package = "Matrix"), "logical"), 
      new("standardGeneric", .Data = function (x, uplo) 
      standardGeneric("forceSymmetric"), generic = structure("forceSymmetric", package = "Matrix"), 
          package = "Matrix", group = list(), valueClass = character(0), 
          signature = c("x", "uplo"), default = NULL, skeleton = (function (x, 
              uplo) 
          stop(gettextf("invalid call in method dispatch to '%s' (no default method)", 
              "forceSymmetric"), domain = NA))(x, uplo)), <environment>)`: unable to find an inherited method for function 'forceSymmetric' for signature '"dgCMatrix", "logical"'
  Backtrace:
      ▆
   1. └─mcglm:::mc_pearson(...) at test_mc_quasi_score.R:29:0
   2.   └─mcglm:::mc_sensitivity(product, W = W)
   3.     └─Matrix::forceSymmetric(Sensitivity, uplo = FALSE)
   4.       └─methods (local) `<fn>`(`<list>`, `<stndrdGn>`, `<env>`)
  
  [ FAIL 1 | WARN 1 | SKIP 0 | PASS 370 ]
  Error: Test failures
  Execution halted