A <- array(c(1,3,0,0,0,0,0,4,0,2,0,5,
0,0,1,0,0,0,1,0,0,0,1,0),
dim=c(3,4,2))
#' array to sparse array
B <- as.sparse3Darray(A) # positive extent
#' list of matrices to sparse array
B <- as.sparse3Darray(list(A[,,1], A[,,2]))
#' matrix to sparse array
B1 <- as.sparse3Darray(A[,,1])
#' vector to sparse array
B11 <- as.sparse3Darray(A[,1,1])
Run the code above in your browser using DataLab