* using log directory 'd:/Rcompile/CRANpkg/local/3.6/fuser.Rcheck' * using R version 3.6.3 (2020-02-29) * using platform: x86_64-w64-mingw32 (64-bit) * using session charset: ISO8859-1 * checking for file 'fuser/DESCRIPTION' ... OK * this is package 'fuser' version '1.0.1' * 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 'fuser' can be installed ... OK * checking installed package size ... OK * checking package directory ... OK * checking 'build' 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 R files for non-ASCII characters ... OK * checking R files for syntax errors ... OK * loading checks for arch 'i386' ** checking whether the package can be loaded ... OK ** checking whether the package can be loaded with stated dependencies ... OK ** checking whether the package can be unloaded cleanly ... OK ** checking whether the namespace can be loaded with stated dependencies ... OK ** checking whether the namespace can be unloaded cleanly ... OK ** checking loading without being on the library search path ... OK ** checking use of S3 registration ... OK * loading checks for arch 'x64' ** checking whether the package can be loaded ... OK ** checking whether the package can be loaded with stated dependencies ... OK ** checking whether the package can be unloaded cleanly ... OK ** checking whether the namespace can be loaded with stated dependencies ... OK ** checking whether the namespace can be unloaded cleanly ... OK ** checking loading without being on the library search path ... 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 ... [8s] OK * checking Rd files ... 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 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 pragmas in C/C++ headers and code ... OK * checking compiled code ... OK * checking installed files from 'inst/doc' ... OK * checking files in 'vignettes' ... OK * checking examples ... ** running examples for arch 'i386' ... ERROR Running examples in 'fuser-Ex.R' failed The error most likely occurred in: > ### Name: generateBlockDiagonalMatrices > ### Title: Generate block diagonal matrices to allow for fused L2 > ### optimization with glmnet. > ### Aliases: generateBlockDiagonalMatrices > > ### ** Examples > > set.seed(123) > > # Generate simple heterogeneous dataset > k = 4 # number of groups > p = 100 # number of covariates > n.group = 15 # number of samples per group > sigma = 0.05 # observation noise sd > groups = rep(1:k, each=n.group) # group indicators > # sparse linear coefficients > beta = matrix(0, p, k) > nonzero.ind = rbinom(p*k, 1, 0.025/k) # Independent coefficients > nonzero.shared = rbinom(p, 1, 0.025) # shared coefficients > beta[which(nonzero.ind==1)] = rnorm(sum(nonzero.ind), 1, 0.25) > beta[which(nonzero.shared==1),] = rnorm(sum(nonzero.shared), -1, 0.25) > > X = lapply(1:k, + function(k.i) matrix(rnorm(n.group*p), + n.group, p)) # covariates > y = sapply(1:k, + function(k.i) X[[k.i]] %*% beta[,k.i] + + rnorm(n.group, 0, sigma)) # response > X = do.call('rbind', X) > > # Pairwise Fusion strength hyperparameters (tau(k,k')) > # Same for all pairs in this example > G = matrix(1, k, k) > > # Generate block diagonal matrices > transformed.data = generateBlockDiagonalMatrices(X, y, groups, G) > > > > ### *