https://github.com/cran/spatstat
Tip revision: 32c71f729fcc5baedb85ada4c2133b6cd0a878f4 authored by Adrian Baddeley on 17 January 2011, 08:12:31 UTC
version 1.21-3
version 1.21-3
Tip revision: 32c71f7
data.R
if(dev.cur() <= 1) {
dd <- getOption("device")
if(is.character(dd)) dd <- get(dd)
dd()
}
oldpar <- par(ask = interactive() && dev.interactive(orNone=TRUE))
oldoptions <- options(warn=-1)
data(amacrine)
plot(amacrine)
data(anemones)
plot(anemones, markscale=0.5)
data(ants)
ants.extra$plot()
data(bei)
plot(bei.extra$elev, main="Beilschmiedia")
plot(bei, add=TRUE, pch=16, cex=0.3)
data(betacells)
plot(betacells)
data(bramblecanes)
plot(bramblecanes, cols=1:3)
plot(split(bramblecanes))
data(bronzefilter)
plot(bronzefilter,markscale=1)
data(cells)
plot(cells)
data(chorley)
chorley.extra$plotit()
data(copper)
plot(copper$Points, main="Copper")
plot(copper$Lines, add=TRUE)
data(demopat)
plot(demopat)
data(finpines)
plot(finpines, which.marks="diameter", main="Finnish pines (diameter)")
plot(finpines, which.marks="height", main="Finnish pines (height)")
data(hamster)
plot(hamster)
data(heather)
plot(heather)
data(humberside)
plot(humberside)
data(japanesepines)
plot(japanesepines)
data(lansing)
plot(lansing)
plot(split(lansing))
data(longleaf)
plot(longleaf)
data(murchison)
plot(murchison$greenstone, main="Murchison data", col="lightgreen")
plot(murchison$gold, add=TRUE, pch="+",col="blue")
plot(murchison$faults, add=TRUE, col="red")
data(nbfires)
plot(nbfires, use.marks=FALSE, pch=".")
plot(split(nbfires), chars=".")
a <- plot(split(nbfires)$"2000", which.marks="fire.type",
main=c("New Brunswick fires 2000", "by fire type"),
cols=c("red", "blue", "green", "cyan"))
legend("bottomleft", title="Fire type",
legend=names(a), pch=a, col=c("red", "blue", "green", "cyan"))
data(nztrees)
plot(nztrees)
enable3d <- ("scatterplot3d" %in% row.names(installed.packages()))
if(enable3d) {
data(osteo)
plot(osteo[1:10,], tick.marks=FALSE, xlab="", ylab="", zlab="")
}
data(ponderosa)
ponderosa.extra$plotit()
data(redwood)
plot(redwood)
data(redwoodfull)
redwoodfull.extra$plot()
data(residualspaper)
plot(residualspaper$Fig1)
plot(residualspaper$Fig4a)
plot(residualspaper$Fig4b)
plot(residualspaper$Fig4c)
data(shapley)
shapley.extra$plotit(main="Shapley")
data(simdat)
plot(simdat)
data(spruces)
plot(spruces, maxsize=min(nndist(spruces))/2)
data(swedishpines)
plot(swedishpines)
data(urkiola)
a <- plot(urkiola, cex=0.5, cols=2:3)
legend("bottomleft", legend=names(a), pch=a, col=2:3)
par(oldpar)
options(oldoptions)