# Create sample distance matrix
dist_mat <- matrix(runif(100), 10, 10)
dist_mat[lower.tri(dist_mat)] <- t(dist_mat)[lower.tri(dist_mat)]
diag(dist_mat) <- 0
# Generate noisy versions
noisy_variants <- add_noise_bias(dist_mat)
Run the code above in your browser using DataLab