Last updated on 2021-05-27 12:54:11 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 1.3.1 | 509.76 | 70.03 | 579.79 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 1.3.1 | 314.38 | 58.34 | 372.72 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 1.3.1 | 914.78 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 1.3.1 | 769.85 | ERROR | |||
| r-devel-windows-x86_64 | 1.3.1 | 561.00 | 103.00 | 664.00 | NOTE | |
| r-devel-windows-x86_64-gcc10-UCRT | 1.3.1 | NOTE | ||||
| r-patched-linux-x86_64 | 1.3.1 | 379.86 | 75.16 | 455.02 | NOTE | |
| r-patched-solaris-x86 | 1.3.1 | 607.50 | NOTE | |||
| r-release-linux-x86_64 | 1.3.1 | 373.45 | 75.32 | 448.77 | NOTE | |
| r-release-windows-ix86+x86_64 | 1.3.1 | 774.00 | 117.00 | 891.00 | NOTE | |
| r-oldrel-macos-x86_64 | 1.3.1 | NOTE | ||||
| r-oldrel-windows-ix86+x86_64 | 1.3.1 | 789.00 | 110.00 | 899.00 | OK |
Version: 1.3.1
Check: LazyData
Result: NOTE
'LazyData' is specified without a 'data' directory
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-x86_64, r-devel-windows-x86_64-gcc10-UCRT, r-patched-linux-x86_64, r-patched-solaris-x86, r-release-linux-x86_64, r-release-windows-ix86+x86_64
Version: 1.3.1
Check: examples
Result: ERROR
Running examples in 'fusedest-Ex.R' failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: fusedest_normal
> ### Title: The block splitting algorithm for linear regression estimation
> ### with the fused group lasso penalty function
> ### Aliases: fusedest_normal
>
> ### ** Examples
>
>
> library(fusedest)
> library(igraph)
Attaching package: 'igraph'
The following objects are masked from 'package:stats':
decompose, spectrum
The following object is masked from 'package:base':
union
>
> ####### Functions for data generation #########
>
>
> generating_normal_data <- function(beta.true, N, m, sigma2.y){
+
+ p <- dim(beta.true)[2]
+ M <- dim(beta.true)[1]
+
+ label.list <- sample(c(1:M), m, replace = TRUE)
+ n.list <- rpois(m, N)
+ X <- matrix(rnorm(sum(n.list)*p, 0, 1), nrow = sum(n.list), ncol = p)
+
+ ind.strt <- c(1, cumsum(n.list[1:(m-1)])+1)
+ ind.end <- cumsum(n.list)
+ label.dc <- rep(c(1:m), n.list)
+
+ y <- as.numeric(unlist(sapply(c(1:m),
+ function(i){
+ X[ind.strt[i]:ind.end[i],]%*%as.numeric(beta.true[label.list[i],]) +
+ rnorm(n.list[i], 0, sqrt(sigma2.y))
+ })))
+
+ label.true <- rep(label.list, n.list)
+
+ results <- list(X, y, n.list, label.dc, label.true)
+ names(results) <- c("X", "y", "n.list", "label.dc", "label.true")
+ return(results)
+ }
>
> generatingEdgelistID03 <- function(m, deg){
+
+ c1 <- NULL
+ c2 <- NULL
+
+ if(deg < m-deg){
+
+ c1 <- rep(0, (m-deg)*deg)
+ c2 <- rep(0, (m-deg)*deg)
+
+ for(i in 1:(m-deg)){
+
+ ind.i <- c(((i-1)*deg+1):(i*deg))
+
+ c1[ind.i] <- rep(i, deg)
+ c2[ind.i] <- c((i+1):(i+deg))
+ }
+
+ if(deg > 1){
+ c3 <- rep(0, deg*(deg-1)/2)
+ c4 <- rep(0, deg*(deg-1)/2)
+ l <- 0
+ for(i in (m-deg+1):(m-1)){
+
+ c3[c((l+1):(l+m-i))] <- rep(i, m-i)
+ c4[c((l+1):(l+m-i))] <- c((i+1):m)
+ l <- l + (m-i)
+ }
+
+ }
+ }
+
+ return(cbind(c(c1,c3),c(c2,c4)))
+ }
>
>
>
> RcppInvGram <- function(X, w, lambda) {
+ .Call('_fusedest_RcppInvGram', PACKAGE = 'fusedest', X, w, lambda)
+ }
>
> RcppXtwy <- function(X, y, w) {
+ .Call('_fusedest_RcppXtwy', PACKAGE = 'fusedest', X, y, w)
+ }
>
> RcppWolsSolver03 <- function(invXtwX, Xtwy, b) {
+ .Call('_fusedest_RcppWolsSolver03', PACKAGE = 'fusedest', invXtwX, Xtwy, b)
+ }
>
>
>
> ############ Setting true parameters ##########
>
> p.star <- 10
>
> beta.true <- t(matrix(
+ c(rep(c(-2,2), p.star),
+ rep(c(2,-2), p.star),
+ c(rep(2, p.star),rep(-2,5)),
+ c(rep(-2,p.star),rep(2,5)),
+ rep(c(-1,3), p.star)), nrow = p.star, ncol = 5
+ ))
Error in matrix(c(rep(c(-2, 2), p.star), rep(c(2, -2), p.star), c(rep(2, :
data length differs from size of matrix: [90 != 10 x 5]
Calls: t -> matrix
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Version: 1.3.1
Check: installed package size
Result: NOTE
installed size is 29.8Mb
sub-directories of 1Mb or more:
libs 29.7Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-oldrel-macos-x86_64
Version: 1.3.1
Check: examples
Result: ERROR
Running examples in ‘fusedest-Ex.R’ failed
The error most likely occurred in:
> ### Name: fusedest_normal
> ### Title: The block splitting algorithm for linear regression estimation
> ### with the fused group lasso penalty function
> ### Aliases: fusedest_normal
>
> ### ** Examples
>
>
> library(fusedest)
> library(igraph)
Attaching package: ‘igraph’
The following objects are masked from ‘package:stats’:
decompose, spectrum
The following object is masked from ‘package:base’:
union
>
> ####### Functions for data generation #########
>
>
> generating_normal_data <- function(beta.true, N, m, sigma2.y){
+
+ p <- dim(beta.true)[2]
+ M <- dim(beta.true)[1]
+
+ label.list <- sample(c(1:M), m, replace = TRUE)
+ n.list <- rpois(m, N)
+ X <- matrix(rnorm(sum(n.list)*p, 0, 1), nrow = sum(n.list), ncol = p)
+
+ ind.strt <- c(1, cumsum(n.list[1:(m-1)])+1)
+ ind.end <- cumsum(n.list)
+ label.dc <- rep(c(1:m), n.list)
+
+ y <- as.numeric(unlist(sapply(c(1:m),
+ function(i){
+ X[ind.strt[i]:ind.end[i],]%*%as.numeric(beta.true[label.list[i],]) +
+ rnorm(n.list[i], 0, sqrt(sigma2.y))
+ })))
+
+ label.true <- rep(label.list, n.list)
+
+ results <- list(X, y, n.list, label.dc, label.true)
+ names(results) <- c("X", "y", "n.list", "label.dc", "label.true")
+ return(results)
+ }
>
> generatingEdgelistID03 <- function(m, deg){
+
+ c1 <- NULL
+ c2 <- NULL
+
+ if(deg < m-deg){
+
+ c1 <- rep(0, (m-deg)*deg)
+ c2 <- rep(0, (m-deg)*deg)
+
+ for(i in 1:(m-deg)){
+
+ ind.i <- c(((i-1)*deg+1):(i*deg))
+
+ c1[ind.i] <- rep(i, deg)
+ c2[ind.i] <- c((i+1):(i+deg))
+ }
+
+ if(deg > 1){
+ c3 <- rep(0, deg*(deg-1)/2)
+ c4 <- rep(0, deg*(deg-1)/2)
+ l <- 0
+ for(i in (m-deg+1):(m-1)){
+
+ c3[c((l+1):(l+m-i))] <- rep(i, m-i)
+ c4[c((l+1):(l+m-i))] <- c((i+1):m)
+ l <- l + (m-i)
+ }
+
+ }
+ }
+
+ return(cbind(c(c1,c3),c(c2,c4)))
+ }
>
>
>
> RcppInvGram <- function(X, w, lambda) {
+ .Call('_fusedest_RcppInvGram', PACKAGE = 'fusedest', X, w, lambda)
+ }
>
> RcppXtwy <- function(X, y, w) {
+ .Call('_fusedest_RcppXtwy', PACKAGE = 'fusedest', X, y, w)
+ }
>
> RcppWolsSolver03 <- function(invXtwX, Xtwy, b) {
+ .Call('_fusedest_RcppWolsSolver03', PACKAGE = 'fusedest', invXtwX, Xtwy, b)
+ }
>
>
>
> ############ Setting true parameters ##########
>
> p.star <- 10
>
> beta.true <- t(matrix(
+ c(rep(c(-2,2), p.star),
+ rep(c(2,-2), p.star),
+ c(rep(2, p.star),rep(-2,5)),
+ c(rep(-2,p.star),rep(2,5)),
+ rep(c(-1,3), p.star)), nrow = p.star, ncol = 5
+ ))
Error in matrix(c(rep(c(-2, 2), p.star), rep(c(2, -2), p.star), c(rep(2, :
data length differs from size of matrix: [90 != 10 x 5]
Calls: t -> matrix
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc