set.seed(1)
df <- data.frame(
x1 = rnorm(20),
x2 = rnorm(20),
g = factor(sample(letters[1:3], 20, TRUE))
)
fit <- gsom_Training(df, grid_rows = 3, grid_cols = 3,
num_iterations = 5, batch_size = 4)
# Map observations to BMUs
pred <- gsom_predict(fit, df)
head(pred)
Run the code above in your browser using DataLab