# NOT RUN {
data(co)
v = evgram(Al ~ 1, co, ~ easting + northing)
if (requireNamespace("lattice")) {
lattice::xyplot(v)
}
v2 = evgram(Al ~ 1, co, ~ easting + northing, angle = 22.5, ndir = 4)
if (requireNamespace("lattice")) {
lattice::xyplot(v2)
# show how attributes can be changed using different
# arguments available in lattice::xyplot.
lattice::xyplot(v2, col = 2:5)
lattice::xyplot(v2, col = 2:5, pch = 1:4)
lattice::xyplot(v2, col = 2:5, pch = 1:4, lty = 2:5, type = "b")
lattice::xyplot(v2, col = 2:5, pch = 1:4, lty = 2:5, type = "b",
key=list(text=list(levels(as.factor(v2$semi$angle))),
space='right', points=list(pch=1:4, col=2:5),
lines=list(col=2:5, lty = 2:5)))
lattice::xyplot(v2, split = TRUE)
}
# }
Run the code above in your browser using DataLab