require(grDevices)
dat <- rbind(matrix(rnorm(100, mean = 0, sd = 0.3), ncol = 2),
matrix(rnorm(100, mean = 2, sd = 0.3), ncol = 2),
matrix(rnorm(100, mean = 4, sd = 0.3), ncol = 2))
sim <- computeGaussianSimilarityZP(dat, 10)
pal <- colorRampPalette(c("blue", "red"))
image(sim, col = pal(10))
Run the code above in your browser using DataLab