# Bramble Canes data.
data(bramblecanes)
X.G <- alltypes(bramblecanes,type="G",dataname="Bramblecanes",verb=TRUE)
plot(X.G)
plot(X.G,subset="r<=0.2")
plot(X.G,formule=cbind(asin(sqrt(km)),
asin(sqrt(theo))) ~ asin(sqrt(theo)))
plot(X.G,fo=cbind(km-theo,0)~r,"r<=0.2")
# Swedish pines.
data(swedishpines)
X <- allstats(swedishpines,dataname="Swedish Pines")
plot(X,subset=list("r<=20","r<=20","r<=20","r<=50"))
# Simulated data.
pp <- runifpoint(350, owin(c(0,1),c(0,1)))
pp$marks <- factor(c(rep(1,50),rep(2,100),rep(3,200)))
X.K <- alltypes(pp,type="K",verb=TRUE,dataname="Fake Data")
plot(X.K,fo=cbind(border,theo)~theo,"theo<=0.75")
Run the code above in your browser using DataLab