data(bot)
coo <- coo.sample(bot@coo[[1]], 100)
coo.plot(coo, points=TRUE, main="Take it not too smooth")
s <- seq(10, 1000, length=10)
cols <- col.summer(10)
for (i in seq(along=s)) {
coo.draw(coo.smooth(coo, s[i]), col=NA, border=cols[i])
}
Run the code above in your browser using DataLab