Skip to content
Prev 25972 / 29559 Next

quadracount on multitype points

Hi Guy,
I only like real pies :-) but, what about something like this:


library(spatstat)
data(lansing)
qs<- quadratcount(split(lansing))
dqs <- dim(qs[[1]])
nr <- dqs[1]
nc <- dqs[2]
le <- length(qs[[1]])
m<- matrix( 1:le, nr=nr, nc=nc, byrow=T)
layout(m, heights=rep(1,nr), widths=rep(1,nc))
#layout.show(25)
par(mar=c(0,0,0,0))
for (i in 1:nc){
 ?? for (j in 1:nr){
 ???? pie(sapply(qs, function(x) x[i,j]), labels=NA )
 ???? box()
 ?}
}

Cheers,
Marcelino




El 13/09/2017 a las 10:21, Ege Rubak escribi?: