OpenBLAS includes not-only BLAS (multithreaded) but also LAPACK (copy from Netlib).
git clone git://github.com/xianyi/OpenBLAS.git
cd OpenBLAS/
git checkout develop # Dev branch, usually stable. 'master' branch is release branch
| require(foreach) | |
| require(itertools) | |
| # block matrix multiplication | |
| bmm <- function(x, y, chunkSize=max(1, floor(nrow(x)/6)), verbose=FALSE, | |
| writeBlock=FALSE, returnResult=TRUE, filePrefix="block.", writeDir="", | |
| projectionBlocks=FALSE) { | |
| if (ncol(x) != nrow(y)) | |
| stop("Non-conformable matrices") | |
| if (verbose) { |
| recode <- function(df, ..., match = c("first", "last")) { | |
| match <- match.arg(match) | |
| cases <- lapply(list(...), as.case) | |
| if (identical(match, "last")) cases <- rev(cases) | |
| n <- nrow(df) | |
| out <- rep(NA, length(n)) # logical will be upcast as needed | |
| # Simple loop-y implementation |
| // Use Gists to store code you would like to remember later on | |
| console.log(window); // log the "window" object to the console |