/usr/share/doc/r-cran-adegraphics/tests/nbgraph.R is in r-cran-adegraphics 1.0-9-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | library(ade4)
library(adegraphics)
library(spdep)
library(lattice)
pdf("nbgraph.pdf")
data(elec88, package = "ade4")
coords <- coordinates(elec88$Spatial)
xyplot(coords[, 2] ~ coords[, 1],
panel = function(...) {adeg.panel.nb(elec88$nb, coords)})
g1 <- s.label(coords, nb = elec88$nb, porigin.include = F, plabels.cex = 0.7,
ppoints.cex = 2, Sp = elec88$Spatial, pSp.col = "red", pSp.alpha = 0.5)
|