# 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
# Increase NAs to 70%
sparse_mat <- increase_na_percentage(dist_mat, 0.7)
Run the code above in your browser using DataLab