if (FALSE) {
library(BigDataStatMeth)
# Matrix-matrix multiplication
N <- 2500
M <- 400
nc <- 4
set.seed(555)
mat <- matrix(rnorm(N*M, mean=0, sd=10), N, M)
# Parallel block multiplication
result <- bdblockMult(mat, mat,
paral = TRUE,
threads = nc)
# Matrix-vector multiplication
vec <- rnorm(M)
result_mv <- bdblockMult(mat, vec,
paral = TRUE,
threads = nc)
}
Run the code above in your browser using DataLab