Running 'coef.R' [5s]
  Running 'confint.R' [53s]
  Running 'datetime.R' [2s]
  Running 'egf.R' [5s]
  Running 'egf_enum.R' [2s]
  Running 'egf_eval.R' [1s]
  Running 'egf_examples_day_of_week.R' [2s]
  Running 'egf_examples_excess.R' [2s]
  Running 'egf_examples_fixed.R' [2s]
  Running 'egf_examples_random.R' [62s]
  Running 'egf_link.R' [1s]
  Running 'egf_misc.R' [6s]
  Running 'egf_options.R' [2s]
  Running 'egf_utils.R' [6s]
  Running 'epidemic.R' [2s]
  Running 'extract.R' [5s]
  Running 'fitted.R' [5s]
  Running 'gi.R' [2s]
  Running 'include.R' [89s]
  Running 'language.R' [2s]
  Running 'prior.R' [1s]
  Running 'profile.R' [39s]
  Running 'summary.R' [5s]
  Running 'utils.R' [2s]
  Running 'validity.R' [2s]
  Running 'zzz.R' [2s]
Running the tests in 'tests/include.R' failed.
Complete output:
  > library(epigrowthfit)
  > options(warn = 2L, error = if (interactive()) recover)
  > 
  > src <- "src"
  > src. <- system.file("tests", src, package = "epigrowthfit", mustWork = TRUE)
  > file.copy(c(src, src.), tempdir(), recursive = TRUE)
  [1] TRUE TRUE
  > setwd(file.path(tempdir(), src))
  > Sys.setenv(R_TESTS = "") # startup.Rs does not exist here
  > 
  > dll <- "test"
  > cpp <- paste0(dll, ".cpp")
  > TMB::compile(cpp)
  using C++ compiler: 'g++.exe (GCC) 13.2.0'
  make[1]: Entering directory '/d/temp/Rtmpwfpu2m/src'
  g++ -std=gnu++17  -I"D:/RCompile/recent/R/include" -DNDEBUG -I"D:/RCompile/CRANpkg/lib/4.5/TMB/include" -I"D:/temp/RtmpEptzx9/RLIBS_216947b8d1339/RcppEigen/include"  -DTMB_SAFEBOUNDS -DTMB_EIGEN_DISABLE_WARNINGS -DLIB_UNLOAD=R_unload_test  -DTMB_LIB_INIT=R_init_test  -DCPPAD_FRAMEWORK    -I"d:/rtools44/x86_64-w64-mingw32.static.posix/include"     -pedantic -O2 -Wall  -mfpmath=sse -msse2 -mstackrealign  -c test.cpp -o test.o
  g++ -std=gnu++17 -shared -s -static-libgcc -o test.dll tmp.def test.o -Ld:/rtools44/x86_64-w64-mingw32.static.posix/lib/x64 -Ld:/rtools44/x86_64-w64-mingw32.static.posix/lib -LD:/RCompile/recent/R/bin/x64 -lR
  make[1]: Leaving directory '/d/temp/Rtmpwfpu2m/src'
  make[1]: Entering directory '/d/temp/Rtmpwfpu2m/src'
  make[1]: Leaving directory '/d/temp/Rtmpwfpu2m/src'
  [1] 0
  > dyn.load(paste0(dll, .Platform[["dynlib.ext"]]))
  > 
  > getReport <- local({
  + 	tt <- readLines(cpp)
  + 	tt <- paste(tt, collapse = "\n")
  + 	tt <- chartr("\t\r\n", "   ", tt)
  + 	tt <- sub("^.*?enum +test *\\{(.*?)\\} *;.*$", "\\1", tt)
  + 	tt <- gsub(" ", "", tt)
  + 	enum. <- strsplit(tt, ",")[[1L]]
  + 
  + 	function(enum, ...)
  + 		TMB::MakeADFun(data = list(flag = match(enum, enum., 0L) - 1L, ...),
  + 		               parameters = list(),
  + 		               type = "Fun",
  + 		               checkParameterOrder = FALSE,
  + 		               DLL = dll)[["report"]]()[["ans"]]
  + })
  > 
  > mvlgamma <- function(x, p)
  +     0.25 * p * (p - 1) * log(pi) + rowSums(lgamma(outer(x, seq.int(0, by = 0.5, length.out = p), `-`)))
  > 
  > dlkj <- function(x, eta, log = FALSE) {
  + 	n <- 0.5 * (1 + sqrt(1 + 8 * length(x)))
  + 	R <- diag(n)
  + 	R[upper.tri(R)] <- x
  + 	log.ans <- (eta - 1) * (-sum(log(colSums(R * R))))
  + 	if (log) log.ans else exp(log.ans)
  + }
  > 
  > dwishart <- function(x, df, scale, log = FALSE) {
  + 	n <- 0.5 * (-1 + sqrt(1 + 8 * length(x)))
  + 	X <- theta2cov(x)
  + 	S <- theta2cov(scale)
  + 	log.ans <- -0.5 * (df * log(det(S)) + (-df + n + 1) * log(det(X)) + n * df * log(2) + 2 * mvlgamma(0.5 * df, n) + sum(diag(solve(S, X))))
  + 	if (log) log.ans else exp(log.ans)
  + }
  > 
  > dinvwishart <- function(x, df, scale, log = FALSE) {
  + 	n <- 0.5 * (-1 + sqrt(1 + 8 * length(x)))
  + 	X <- theta2cov(x)
  + 	S <- theta2cov(scale)
  + 	log.ans <- -0.5 * (-df * log(det(S)) + (df + n + 1) * log(det(X)) + n * df * log(2) + 2 * mvlgamma(0.5 * df, n) + sum(diag(solve(X, S))))
  + 	if (log) log.ans else exp(log.ans)
  + }
  > 
  > 
  > ## list_of_vectors_t
  > x <- list(rnorm(10L), seq_len(5L), TRUE, double(0L))
  > ans <- getReport("list_of_vectors_t", x = x)
  Error in isNullPointer(ADFun$ptr) : 
    R_ExternalPtrAddr: argument of type NILSXP is not an external pointer
  Calls: getReport -> <Anonymous> -> f -> isNullPointer
  Execution halted