Calculate the variation explained by a PARAFAC model.

Calculate the variation explained by a PARAFAC model.

Usage

calculateVarExp(Fac, X)

Arguments

Fac

Fac object output from the parafac() function.

X

Input data of the PARAFAC model.

Value

The variation explained by the model, expressed as a fraction (between 0-1).

Examples

X = Fujita2023$data
model = parafac(X, nfac=1, nstart=1, verbose=FALSE)
calculateVarExp(model$Fac, X)
#> [1] 0.7372695