tests/util.R

In slam: Sparse Lightweight Arrays and Matrices

library("slam")

##
.Call(slam:::R_part_index, factor(rep(1L, 4L)))
.Call(slam:::R_part_index, factor(1:4))
.Call(slam:::R_part_index, factor(c(1L,2L,2L,1L)))
.Call(slam:::R_part_index, factor(c(1L,2L,NA,1L)))

##
i <- 1:27
x <- arrayInd(i, .dim = c(3L,3L,3L))
.Call(slam:::R_vector_index, c(3L,3L,3L), x)
x[14L, 2L] <- NA
.Call(slam:::R_vector_index, c(3L,3L,3L), x)

##
v <- c(1L,1L)
p <- matrix(c(1L,2L,3L, 2L,2L,2L), nrow = 2L, byrow = TRUE)
.Call(slam:::R_ini_array, c(3L,3L,3L), p, v, 2L)
.Call(slam:::R_ini_array, c(3L,3L,3L), p, as.logical(v), 2L)
.Call(slam:::R_ini_array, c(3L,3L,3L), p, as.double(v), 2L)
.Call(slam:::R_ini_array, c(3L,3L,3L), p, as.raw(v), 2L)
.Call(slam:::R_ini_array, c(3L,3L,3L), p, as.complex(v), 2L)
.Call(slam:::R_ini_array, c(3L,3L,3L), p, as.character(v), 2L)
.Call(slam:::R_ini_array, c(3L,3L,3L), p, as.list(v), 2L)
.Call(slam:::R_ini_array, c(3L,3L,3L), p, as.expression(v), 2L)

.Call(slam:::R_ini_array, 3L, c(1L,2L), c(1L,1L), 2L)

.Call(slam:::R_split_col, array(c(1L,2L), c(2L, 2L)))

##
x <- matrix(c(1L,1L,1L,1L,1L,2L,1L,3L,1L,2L), 
	    ncol = 2, byrow = TRUE)
x
.Call(slam:::R_match_matrix, x, NULL, NULL)
.Call(slam:::R_match_matrix, x, x[1:3,], 0L)
.Call(slam:::R_match_matrix, x, matrix(0L, 0, 2), 0L)


##
x <- matrix(c(1L,2L,2L,2L,NA,1L,NA,2L,NA,NA), 
	    ncol = 2, byrow = TRUE)
x
.Call(slam:::R_all_row, x > 1L, FALSE)
.Call(slam:::R_all_row, x > 1L, TRUE)

###