data(bot)
coo <- coo.center(bot@coo[[1]]) # centering is almost mandatory for rfourier family
coo.plot(coo)
rf <- rfourier(coo, 12)
rf
rfi <- rfourier.i(rf)
l2m(rfi)
coo.draw(rfi, border="red", col=NA) # it works since coo.draw and coo.plot retrieve "x" and "y" components (through l2m when passed with a list.
Run the code above in your browser using DataLab