# multitype point pattern
data(amacrine)
GG <- alltypes(amacrine, "G")
plot(GG)
# select the row corresponding to cells of type "on"
Gon <- GG["on", ]
plot(Gon)
# extract the G function for i = "on", j = "off"
Gonoff <- GG["on", "off", drop=TRUE]
# Fisher variance stabilising transformation
GGfish <- eval.fasp(asin(sqrt(GG)))
plot(GGfish)
Run the code above in your browser using DataLab