Test rotation invariance of index functions for selected 2-d data set.

Ideally a projection pursuit index should be roation invariant, we test this explicitly by profiling the index while rotating a distribution.

Usage

profileRotation(d, indexList, indexLabels, n = 200)

Arguments

d

data (2 column matrix containing distribution to be rotated)

indexList

list of index functions to calculate for each entry

indexLabels

labels used in the output

n

number of steps in the rotation (default = 200)

Value

index values for each rotation step

Examples

d <- as.matrix(sinData(2, 30))
#> New names:
#> • `` -> `...1`
#> • `` -> `...2`
indexList <- list(tourr::holes(), scagIndex("stringy"), mineIndexE("MIC"))
indexLabels <- c("holes", "stringy", "mic")
pRot <- profileRotation(d, indexList, indexLabels, n = 50)
plotRotation(pRot)