def.par <- par(no.readonly = TRUE)
layout(matrix(1:2, 1, 2))
data(bot)
coo <- bot@coo[[1]]
coo.plot(coo, main="A shape")
coo.plot(coo.align(coo), border="red", col=NA, main="An aligned shape")
par(def.par)
Run the code above in your browser using DataLab