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

profile_rotation(d, index_list, index_labels, n = 200)

Arguments

d

data (2 column matrix containing distribution to be rotated)

index_list

list of index functions to calculate for each entry

index_labels

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(sin_data(30, 2))
index_list <- list(tourr::holes(), scag_index("stringy"), mine_indexE("MIC"))
index_labels <- c("holes", "stringy", "mic")
pRot <- profile_rotation(d, index_list, index_labels, n = 50)
plot_rotation(pRot)