# \donttest{
# Simple example (deprecated - use euclidean_embedding() instead)
dist_mat <- matrix(c(0, 2, 3, 2, 0, 4, 3, 4, 0), nrow=3)
# This will generate a deprecation warning
result <- create_topolow_map(
dist_mat,
ndim = 2,
mapping_max_iter = 100,
k0 = 1.0,
cooling_rate = 0.001,
c_repulsion = 0.01,
verbose = FALSE
)
# Recommended approach with new function:
result_new <- euclidean_embedding(
dissimilarity_matrix = dist_mat,
ndim = 2,
mapping_max_iter = 100,
k0 = 1.0,
cooling_rate = 0.001,
c_repulsion = 0.01,
verbose = FALSE
)
# }
Run the code above in your browser using DataLab