Running ‘apply.r’ [0s/0s]
  Running ‘arithmetic.r’ [1s/1s]
  Running ‘as-array.r’ [0s/0s]
  Running ‘colSums.r’ [0s/0s]
  Running ‘copy.r’ [0s/0s]
  Running ‘create.r’ [0s/0s]
Running the tests in ‘tests/create.r’ failed.
Complete output:
  > # Various tests about object creation and manipulation
  > require(houba)
  Loading required package: houba
  > 
  > # float mmatrix ------------------------
  > A <- mmatrix("float", 10, 20)
  > a <- as.matrix(A)
  > stopifnot(typeof(a) == "double")
  > 
  > # set max size
  > houba(max.size = 10)
  $max.size
  [1] 10
  
  > stopifnot( typeof(A[1:10]) == "double" )
  > stopifnot( typeof(A[1:11]) == "S4" )
  > 
  > # assignement and subsetting
  > A[1,1] <- 12
  > A[3,] <- 1.34
  > stopifnot( all(abs(as.matrix(A[1:3, 1:2] - c(12, 0, 1.34, 0, 0, 1.34))) < 1e-6)  )
  > 
  > A[5] <- pi
  > stopifnot( all(abs(as.vector(A[,1] - c(12, 0, 1.34, 0, pi, 0, 0, 0, 0, 0))) < 1e-6) )
  > 
  > # int mmatrix ---------------------------
  > B <- mmatrix("int", 10, 20)
  > b <- as.matrix(B)
  > stopifnot(typeof(b) == "integer")
  > 
  > # assignement and subsetting
  > B[1,1] <- 12
  > B[3,] <- 1.34
  > stopifnot( all(as.matrix(B[1:3, 1:2]) == c(12L, 0L, 1L, 0L, 0L, 1L)) )
  > 
  > B[5] <- 2
  > stopifnot( all(as.vector(B[5, 1:3]) == c(2L, 0L, 0L)) )
  > 
  > # assignement with other mmatrix values
  > houba(max.size = 0) # force non conversion to R 
  $max.size
  [1] 0
  
  > B[2,] <- A[3,]
  > stopifnot( all(as.vector(B[2, 1:4]) == c(1L, 1L, 1L, 1L)) )
  > 
  > B[5] <- A[3]
  > stopifnot( all(as.vector(B[5, 1:3]) == c(1L, 0L, 0L)) )
  > 
  > # double mvector -------------------------
  > V <- mvector("double", 10)
  > v <- as.vector(V)
  > V[1:4] <- pi
  > stopifnot( all(as.vector(V[3:6]) == c(pi, pi, 0, 0)) ) 
  > 
  > # int array --------------------------
  > C <- marray("int", 2:4)
  > C[,,1] <- 7
  > C[,2,] <- B[5]
  Error in `[<-`(`*tmp*`, , 2, , value = new("mvector", ptr = <pointer: 0x7fe5c4e13cf0>,  : 
    argument is missing, with no default
  Calls: [<- -> [<- -> myMissing
  Execution halted