Monthly Archives: October 2013

Wo ist die Ente?

p <- xyplot(enten.y ~ enten.x | group, groups = origin, data = enten,
            as.table = TRUE, auto.key = TRUE, asp = "iso",
            xlim = c(483930, 483955), ylim = c(5629240, 5629265))
corners[5, ] <- corners[1, ]
l <- xyplot(corners$y ~ corners$x, type = "l", asp = "iso")
p + as.layer(l)

plot of chunk unnamed-chunk-2