set.seed(1)
data <- matrix(c(NA, NA, 1, 1, NA, NA, NA, NA, NA, NA, 1, 1, NA, NA,
NA, NA, NA, NA, NA, 0, 1, 1, NA, NA, NA, NA, NA, 1, 0, 0, 1,
1, NA, NA, NA, NA, NA, 0, 1, 1, 1, 1, NA, NA, NA, NA, 0, 1, 1,
1, 1, 1, NA, NA, NA, NA, 1, 1, 1, 1, 1, 1, 1, NA, NA, NA, 1,
1, NA, NA, NA, NA, NA, NA, 1, 1, NA, NA, NA, NA, NA), nrow=9, ncol=9)
sset <- generateImage(data, range=c(200, 300), step=1)
clust1 <- spatialKMeans(sset, r=c(1,2), k=c(2,3), method="gaussian")
clust2 <- spatialKMeans(sset, r=c(1,2), k=c(2,3), method="adaptive")
Run the code above in your browser using DataLab