set.seed(1)
df <- data.frame(
x1 = rnorm(10),
x2 = rnorm(10),
g = factor(sample(letters[1:3], 10, TRUE))
)
fit <- gsom_Training(df, grid_rows = 3, grid_cols = 3,
num_iterations = 5, batch_size = 5)
res <- get_bmu_gower(df, codebook = fit$weights,
n_rows = 3, n_cols = 3)
head(res)
Run the code above in your browser using DataLab