Calculate massive covariance matrix in parallel

Speed up covariance calculation for large matrices. The default behavior is the same as cov ('pearson', no NA handling).

Usage

fast_cov(x, y = NULL, col_x = NULL, col_y = NULL, df = NA)

Arguments

x

a numeric vector, matrix or data frame; a matrix is highly recommended to maximize the performance

y

NULL (default) or a vector, matrix or data frame with compatible dimensions to x; the default is equivalent to y = x

col_x

integers indicating the subset indices (columns) of x to calculate the covariance, or NULL to include all the columns; default is NULL

col_y

integers indicating the subset indices (columns) of y to calculate the covariance, or NULL to include all the columns; default is NULL

df

a scalar indicating the degrees of freedom; default is nrow(x)-1

Value

A covariance matrix of x and y. Note that there is no NA handling. Any missing values will lead to NA in the resulting covariance matrices.

Examples

# Set ncores = 2 to comply to CRAN policy. Please don't run this line
ravetools_threads(n_threads = 2L)

x <- matrix(rnorm(400), nrow = 100)

# Call `cov(x)` to compare
fast_cov(x)
#>             [,1]         [,2]         [,3]         [,4]
#> [1,]  0.87759723 -0.128257860 -0.075712577  0.119666051
#> [2,] -0.12825786  1.084758209 -0.036538313  0.008415218
#> [3,] -0.07571258 -0.036538313  0.806204867 -0.004651537
#> [4,]  0.11966605  0.008415218 -0.004651537  1.034028315

# Calculate covariance of subsets
fast_cov(x, col_x = 1, col_y = 1:2)
#>           [,1]       [,2]
#> [1,] 0.8775972 -0.1282579

# \donttest{

# Speed comparison, better to use multiple cores (4, 8, or more)
# to show the differences.

ravetools_threads(n_threads = -1)
x <- matrix(rnorm(100000), nrow = 1000)
microbenchmark::microbenchmark(
  fast_cov = {
    fast_cov(x, col_x = 1:50, col_y = 51:100)
  },
  cov = {
    cov(x[,1:50], x[,51:100])
  },
  unit = 'ms', times = 10
)
#> Unit: milliseconds
#>      expr      min       lq     mean   median       uq      max neval
#>  fast_cov 1.368665 1.382892 1.579724 1.386925 1.398332 3.293530    10
#>       cov 5.349238 5.384775 5.438398 5.457756 5.488229 5.506402    10

# }