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.

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

# \donttest{
d <- as.matrix(sinData(2, 1000))
#> New names:
#> * `` -> ...1
#> * `` -> ...2
indexList <- list(tourr::holes(), scagIndex("Skinny"), mineIndexE("MIC"))
indexLabels <- c("holes", "skinny", "mic")
pRot <- profileRotation(d, indexList, indexLabels)
plotRotation(pRot)
# }