riskRegression (version 2020.12.08)

sliceMultiply_cpp: Apply * by slice

Description

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

Usage

sliceMultiply_cpp(X, M)
sliceMultiplyPointer_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)
sliceMultiply_cpp(x, M) 

# }