riskRegression (version 2020.02.05)

sliceScale_cpp: Apply / by slice

Description

Fast computation of sweep(X, MARGIN = 1:2, FUN = "/", STATS = scale)

Usage

sliceScale_cpp(X, M)
sliceScalePointer_cpp(X, M)

Arguments

X

An array.

M

A matrix with the same number of row and columns as X.

Value

An array of same size as X.

Examples

# NOT RUN {
x <- array(1, dim = c(2,6,5))
M <- matrix(1:12,2,6)
sweep(x, MARGIN = 1:2, FUN = "/", STATS = M)
sliceScale_cpp(x, M) 

# }