library(BigDataStatMeth)
# Create test matrices
n <- 500
m <- 500
A <- matrix(runif(n*m), nrow = n, ncol = m)
B <- matrix(runif(n), nrow = n)
AS <- A %*% t(A) # Create symmetric matrix
# Solve using bdSolve
X <- bdSolve(A, B)
# Compare with R's solve
XR <- solve(A, B)
all.equal(X, XR, check.attributes=FALSE)
Run the code above in your browser using DataLab