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)
U <- gsom_Umatrix(fit$weights, n_rows = 3, n_cols = 3)
plot_Umatrix(U)
Run the code above in your browser using DataLab