# Create a simple distance matrix and run the optimization
dist_mat <- matrix(c(0, 2, 3, 2, 0, 4, 3, 4, 0), nrow=3)
result <- create_topolow_map(dist_mat, ndim=2, mapping_max_iter=50,
k0=1.0, cooling_rate=0.001, c_repulsion=0.1,
verbose = FALSE)
# Summarize the result object
summary(result)
Run the code above in your browser using DataLab