R/as.sparseMatrix.simple_sparse_array.R

In liberaldays/TensorSlam: Sparse Tensor Calculation with Slam Package

#' 2-dimensional array(from Slam) -> sparseMatrix(from Matrix)

#'@export
#'@param mat simple_sparse_array (not simple_triplet_matrix)
#'@return sparseMatrix

as.sparseMatrix.simple_sparse_array <- function(mat){

	mat <- sparseMatrix(i = mat$i[,1],j = mat$i[,2],x = mat$v,dims = mat$dim)
	return(mat)
}