* using log directory ‘/srv/hornik/tmp/CRAN_pretest/rjaf.Rcheck’
* using R Under development (unstable) (2024-09-15 r87152)
* using platform: x86_64-pc-linux-gnu
* R was compiled by
Debian clang version 18.1.8 (9)
Debian flang-new version 18.1.8 (9)
* running under: Debian GNU/Linux trixie/sid
* using session charset: UTF-8
* checking for file ‘rjaf/DESCRIPTION’ ... OK
* this is package ‘rjaf’ version ‘0.1.0’
* package encoding: UTF-8
* checking CRAN incoming feasibility ... [3s/6s] NOTE
Maintainer: ‘Xinyi Zhang <zhang.xinyi@nyu.edu>’
New submission
Possibly misspelled words in DESCRIPTION:
Ladhania (28:139)
Spiess (28:149)
Ungar (28:157)
* 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 executable files ... OK
* checking for hidden files and directories ... OK
* checking for portable file names ... OK
* checking for sufficient/correct file permissions ... OK
* checking whether package ‘rjaf’ can be installed ... [17s/17s] OK
* used C++ compiler: ‘Debian clang version 18.1.8 (11)’
* checking package directory ... OK
* checking for future file timestamps ... 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 ... [1s/1s] OK
* checking whether the package can be loaded with stated dependencies ... [0s/0s] OK
* checking whether the package can be unloaded cleanly ... [0s/0s] OK
* checking whether the namespace can be loaded with stated dependencies ... [0s/0s] OK
* checking whether the namespace can be unloaded cleanly ... [1s/1s] OK
* checking loading without being on the library search path ... [1s/1s] 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 ... [3s/3s] OK
* checking Rd files ... [0s/0s] OK
* checking Rd metadata ... OK
* checking Rd line widths ... 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/0s] OK
* checking LazyData ... OK
* checking data for ASCII and uncompressed saves ... OK
* checking line endings in C/C++/Fortran sources/headers ... OK
* checking pragmas in C/C++ headers and code ... OK
* checking compilation flags used ... OK
* checking compiled code ... OK
* checking examples ... [2s/2s] ERROR
Running examples in ‘rjaf-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: rjaf
> ### Title: Regularized Joint Assignment Forest with Treatment Arm
> ### Clustering
> ### Aliases: rjaf
>
> ### ** Examples
>
> sim.data <- function(n, K, gamma, sigma, prob=rep(1,K+1)/(K+1)) {
+ require(dplyr)
+ require(MASS)
+ # K: number of treatment arms
+ options(stringsAsFactors=FALSE)
+ data <- left_join(data.frame(id=1:n,
+ trt=sample(0:K, n, replace=TRUE, prob),
+ mvrnorm(n, rep(0,3), diag(3))),
+ data.frame(trt=0:K, prob), by="trt")
+ data <- mutate(data, tmp1=10+20*(X1>0)-20*(X2>0)-40*(X1>0&X2>0),
+ tmp2=gamma*(2*(X3>0)-1)/(K-1),
+ tmp3=-10*X1^2,
+ Y=tmp1+tmp2*(trt>0)*(2*trt-K-1)+tmp3*(trt==0)+rnorm(n,0,sigma))
+ # Y: observed outcomes
+ Y.cf <- data.frame(sapply(0:K, function(t) # counterfactual outcomes
+ mutate(data, Y=tmp1+tmp2*(t>0)*(2*t-K-1)+tmp3*(t==0))$Y))
+ names(Y.cf) <- paste0("Y",0:K)
+ return(mutate(bind_cols(dplyr::select(data, -c(tmp1,tmp2,tmp3)), Y.cf),
+ across(c(id, trt), as.character)))
+ }
>
> n <- 200; K <- 3; gamma <- 10; sigma <- 10
> Example_data <- sim.data(n, K, gamma, sigma)
Loading required package: dplyr
Attaching package: ‘dplyr’
The following objects are masked from ‘package:stats’:
filter, lag
The following objects are masked from ‘package:base’:
intersect, setdiff, setequal, union
Loading required package: MASS
Attaching package: ‘MASS’
The following object is masked from ‘package:dplyr’:
select
> Example_trainest <- Example_data %>% slice_sample(n = floor(0.5 * nrow(Example_data)))
> Example_valid <- Example_data %>% filter(!id %in% Example_trainest$id)
> id <- "id"; y <- "Y"; trt <- "trt"
> vars <- paste0("X", 1:3)
> forest.reg <- rjaf(Example_trainest, Example_valid, y, id, trt, vars, ntrt = 4,
+ clus.tree.growing = FALSE, setseed = TRUE)
Error: Mat::operator(): index out of bounds
Execution halted
* checking for unstated dependencies in ‘tests’ ... OK
* checking tests ... [3s/2s] ERROR
Running ‘testthat.R’ [2s/2s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(rjaf)
>
> test_check("rjaf")
[ FAIL 1 | WARN 0 | SKIP 0 | PASS 1 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-rjaf.R:9:3'): rjaf function computes correctly ─────────────────
<std::out_of_range/C++Error/error/condition>
Error: Mat::operator(): index out of bounds
Backtrace:
▆
1. └─rjaf::rjaf(...) at test-rjaf.R:9:3
2. └─base::lapply(...)
3. └─rjaf (local) FUN(X[[i]], ...)
4. ├─stats::kmeans(...)
5. │ └─base::as.matrix(x)
6. ├─base::t(...)
7. ├─base::do.call(...)
8. └─base::lapply(...)
9. └─rjaf (local) FUN(X[[i]], ...)
10. └─rjaf:::rjaf_cpp(...)
[ FAIL 1 | WARN 0 | SKIP 0 | PASS 1 ]
Error: Test failures
Execution halted
* checking PDF version of manual ... [3s/2s] OK
* checking HTML version of manual ... [0s/0s] OK
* checking for non-standard things in the check directory ... OK
* checking for detritus in the temp directory ... OK
* DONE
Status: 2 ERRORs, 1 NOTE