- using R Under development (unstable) (2024-06-25 r86831 ucrt)
- using platform: x86_64-w64-mingw32
- R was compiled by
gcc.exe (GCC) 13.2.0
GNU Fortran (GCC) 13.2.0
- running under: Windows Server 2022 x64 (build 20348)
- using session charset: UTF-8
- checking for file 'epigrowthfit/DESCRIPTION' ... OK
- this is package 'epigrowthfit' version '0.15.3'
- package encoding: UTF-8
- checking package namespace information ... OK
- checking package dependencies ... OK
- checking if this is a source package ... OK
- checking if there is a namespace ... OK
- checking for hidden files and directories ... OK
- checking for portable file names ... OK
- checking whether package 'epigrowthfit' can be installed ... OK
See the install log for details.
- used C++ compiler: 'g++.exe (GCC) 13.2.0'
- checking installed package size ... NOTE
installed size is 14.2Mb
sub-directories of 1Mb or more:
libs 13.6Mb
- checking package directory ... OK
- checking DESCRIPTION meta-information ... OK
- checking top-level files ... OK
- checking for left-over files ... OK
- checking index information ... OK
- checking package subdirectories ... OK
- checking code files for non-ASCII characters ... OK
- checking R files for syntax errors ... OK
- checking whether the package can be loaded ... [2s] OK
- checking whether the package can be loaded with stated dependencies ... [1s] OK
- checking whether the package can be unloaded cleanly ... [2s] OK
- checking whether the namespace can be loaded with stated dependencies ... [2s] OK
- checking whether the namespace can be unloaded cleanly ... [2s] OK
- checking loading without being on the library search path ... [2s] OK
- checking whether startup messages can be suppressed ... [2s] OK
- checking use of S3 registration ... OK
- checking dependencies in R code ... OK
- checking S3 generic/method consistency ... OK
- checking replacement functions ... OK
- checking foreign function calls ... OK
- checking R code for possible problems ... [13s] OK
- checking Rd files ... [1s] OK
- checking Rd metadata ... OK
- checking Rd cross-references ... OK
- checking for missing documentation entries ... OK
- checking for code/documentation mismatches ... OK
- checking Rd \usage sections ... OK
- checking Rd contents ... OK
- checking for unstated dependencies in examples ... OK
- checking contents of 'data' directory ... OK
- checking data for non-ASCII characters ... [0s] OK
- checking LazyData ... OK
- checking data for ASCII and uncompressed saves ... OK
- checking line endings in C/C++/Fortran sources/headers ... OK
- checking line endings in Makefiles ... OK
- checking compilation flags in Makevars ... OK
- checking for GNU extensions in Makefiles ... OK
- checking for portable use of $(BLAS_LIBS) and $(LAPACK_LIBS) ... OK
- checking use of PKG_*FLAGS in Makefiles ... OK
- checking pragmas in C/C++ headers and code ... OK
- checking compiled code ... OK
- checking examples ... [35s] OK
- checking for unstated dependencies in 'tests' ... OK
- checking tests ... [306s] ERROR
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
- checking PDF version of manual ... [23s] OK
- checking HTML version of manual ... [9s] OK
- DONE
Status: 1 ERROR, 1 NOTE