Apportions outlier scores to composites.

Apportions outlier scores to composites.

apportion_scores_comp(obj)

Arguments

obj

The output of comp_tsout_ens

Value

A list with the following components:

scores_out

The apportioned scores for outliers for timepoints in mv_tsout_ens$outliers or comp_tsout_ens$outliers.

scores_all

The apportioned scores for outliers for timepoints in mv_tsout_ens$all or comp_tsout_ens$all.

Examples

if (FALSE) {
set.seed(1)
n <- 600
x <- sample(1:100, n, replace=TRUE)
x[25] <- 200
x[320] <- 300
x2 <- sample(1:100, n, replace=TRUE)
x3 <- sample(1:100, n, replace=TRUE)
x4 <- sample(1:100, n, replace=TRUE)
X <- cbind.data.frame(x, x2, x3, x4)
X <- X/rowSums(X)
out <- comp_tsout_ens(X, compr=2, fast=FALSE)
apportioned <- apportion_scores_comp(out)
}