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