R/xfit.R

In mlesnoff/rnirs: Dimension reduction, Regression and Discrimination for Chemometrics

Defines functions xfit

Documented in xfit

xfit <- function(T, P, xmeans = rep(0, dim(P)[1])) {

    T <- .matrix(T)
    P <- .matrix(P)

    .center(tcrossprod(T, P), -xmeans)

    }