powered by
opoly_i(pol, nb.pts = 120, reregister = TRUE)npoly_i(pol, nb.pts = 120, reregister = TRUE)
npoly_i(pol, nb.pts = 120, reregister = TRUE)
npoly
opoly
data(olea) o <- olea[5] coo_plot(o) for (i in 2:7){ x <- opoly_i(opoly(o, i)) coo_draw(x, border=col_summer(7)[i], points=FALSE) }
Run the code above in your browser using DataLab