Compute range of axes for a tour

compute_half_range(.data, center = TRUE)

Arguments

.data	A numeric matrix
center	Subtract `colMeans(.data)` from each column in `.data`? Default is TRUE.

Value

A numeric vector of length 1.

Details

This function computes the maximum squared Euclidean distance of rows in a matrix like object. Mostly used internally for setting up xy-axis ranges for a tour animation.

Examples

mv <- matrix(rnorm(300), ncol = 3)

compute_half_range(mv)
#> [1] 3.190088

compute_half_range(mv, center = FALSE)
#> [1] 3.354381