riskRegression (version 2020.02.05)

rowCenter_cpp: Apply - by row

Description

Fast computation of sweep(X, MARGIN = 2, FUN = "-", STATS = center)

Usage

rowCenter_cpp(X, center)

Arguments

X

A matrix.

center

a numeric vector of length equal to the number of rows of x

Value

A matrix of same size as X.

Examples

# NOT RUN {
x <- matrix(1,6,5)
sweep(x, MARGIN = 2, FUN = "-", STATS = 1:5)
rowCenter_cpp(x, 1:5 )

rowCenter_cpp(x, colMeans(x) )
# }