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)