n1 <- 10
n2 <- 10
p <- 6
y <- rnorm(n1)
a <- rnorm(n1*p)
a[abs(a) < 0.5] <- 0
A <- matrix(a,n1,p)
A.csr <- as.matrix.csr(A)
b <- rnorm(n2*p)
b[abs(b)<1.0] <- 0
B <- matrix(b,n2,p)
B.csr <- as.matrix.csr(B)
# matrix transposition and multiplication
A.csr%*%t(B.csr)
# kronecker product - via kronecker() methods:
A.csr %x% matrix(1:4,2,2)Run the code above in your browser using DataLab