#LATTICE DATA
data=matrix(sort(sample(c("a","b","c"), 100, replace=TRUE)), nrow=10)
partition=areapart(data, G=5)
partition=areapart(data, G=5, cell.size=2)
#providing a pre-fixed area partition
data=matrix(sort(sample(c("a","b","c"), 100, replace=TRUE)), nrow=10)
win=square(nrow(data))
GG=cbind(runif(5, win$xrange[1], win$xrange[2]),
runif(5, win$yrange[1], win$yrange[2]))
partition=areapart(data, G=GG)
#POINT DATA
data=ppp(x=runif(100), y=runif(100), window=square(1))
partition=areapart(data, 10)
#with marks
data=ppp(x=runif(100), y=runif(100), window=square(1),
marks=(sample(c("a","b","c"), 100, replace=TRUE)))
GG=cbind(runif(10, data$window$xrange[1], data$window$xrange[2]),
runif(10, data$window$yrange[1], data$window$yrange[2]))
partition=areapart(data, G=GG)
Run the code above in your browser using DataLab