colprods-package: colprods: Calculate column products of numeric matrices

In dkidney/colprods: Calculate column products of numeric matrices

Description

A lightweight package containing various functions for calculating the column products of numeric matrices. Each function performs essentially the same task but each uses a different implementation under the hood. The main purpose of this package is to provide a simple example to remind myself how to incorporate Rcpp and RcppArmadillo functions within a package.

Functions

colprods_arma
colprods_rcpp
colprods_rcpp_rowwise
colprods_apply
colprods_sapply
colprods_for_loop

Author(s)

Maintainer: Darren Kidney [e-mail]

See Also

Useful links:

• https://github.com/dkidney/colprods

• Report bugs at https://github.com/dkidney/colprods/issues

Examples

## Not run: 

library(colprods)

# simple example -----

x = matrix(1:9, 3)
colprods_for_loop(x)
colprods_sapply(x)
colprods_apply(x)
colprods_rcpp(x)
colprods_rcpp_rowwise(x)
colprods_arma(x)
as.numeric(colprods_arma(x))

# benchmarking -----

library(microbenchmark)

# tall
nr = 1000
nc = 100
x = matrix(rnorm(nr * nc), nr, nc)
microbenchmark(
    colprods_for_loop(x),
    colprods_sapply(x),
    colprods_apply(x),
    colprods_rcpp(x),
    colprods_rcpp_rowwise(x),
    colprods_arma(x),
    as.numeric(colprods_arma(x))
)

# wide
nr = 100
nc = 1000
x = matrix(rnorm(nr * nc), nr, nc)
microbenchmark(
    colprods_for_loop(x),
    colprods_apply(x),
    colprods_sapply(x),
    colprods_rcpp(x),
    colprods_rcpp_rowwise(x),
    colprods_arma(x),
    as.numeric(colprods_arma(x))
)

## End(Not run)

dkidney/colprods documentation built on May 13, 2019, 10:27 a.m.