temppopn <- sim.popn(D = 5, expand.grid(
x = c(0,100), y = c(0,100)))
# specify collapse to avoid partial match of col
plot(temppopn, pch = 16, collapse = FALSE, col = "blue")
plot(temppopn, circles = 20, bg = "tan", fg = "white")
plot(temppopn, pch = 16, cex = 0.5, add = TRUE)
Run the code above in your browser using DataLab