data(bot)
coo <- bot@coo[[1]]
coo.plot(coo, ylim=c(-200, 1200), xlim=c(0, 500), main="A half bottle forced to close")
coo.draw(coo[1:1500,], border="blue", col=NA)
coo.draw(coo.force2close(coo[1:1500, ]), border="red", col=NA)
Run the code above in your browser using DataLab