# NOT RUN {
# feel free to ignore the following lines<U+2014>they allow {broom} to supply
# examples without requiring the model/data-supplying package to be installed.
if (requireNamespace("cluster", quietly = TRUE)) {
if (requireNamespace("modeldata", quietly = TRUE)) {
library(cluster)
library(modeldata)
library(dplyr)
data(hpc_data)
x <- hpc_data[, 2:5]
fit <- pam(x, k = 4)
tidy(fit)
glance(fit)
augment(fit, x)
}
}
# }
Run the code above in your browser using DataLab