# \donttest{
# Attach packages
library(rearrr)
library(dplyr)
# Set seed
set.seed(1)
# Create three vectors
x <- runif(10)
y <- runif(10)
z <- runif(10)
# Find the data point closest to the centroid
is_most_centered(x, y, z)
# Compare to coordinates for the most centered
most_centered(x, y, z)
#
# For data.frames
#
# Create data frame
df <- data.frame(
"x" = x,
"y" = y,
"z" = z,
"g" = rep(1:2, each = 5)
)
# Filter the data points
# closest to the centroid
df %>%
dplyr::filter(is_most_centered(x, y, z))
# When 'df' is grouped
df %>%
dplyr::group_by(g) %>%
dplyr::filter(is_most_centered(x, y, z))
# Add as column
df %>%
dplyr::group_by(g) %>%
dplyr::mutate(mc = is_most_centered(x, y, z))
# }
Run the code above in your browser using DataLab