D <- matrix(
c(0.1, 0.2, 0.2, 0.1,
0.3, 0.4, 0.4, 0.3),
nrow = 2,
byrow = TRUE
)
knn_idx <- matrix(
c(2, 1, 4, 3,
3, 4, 2, 1),
nrow = 2,
byrow = TRUE
)
batch_labels <- c(1, 1, 2, 2)
compute_simpson_index(D, knn_idx, batch_labels, perplexity = 2)
Run the code above in your browser using DataLab