powered by
coo.centpos
coo.centpos(coo)
list
matrix
(x; y)
data(bot) coo <- bot@coo[[1]] coo.plot(coo, cent=FALSE) # we do not plot the centroid cent <- coo.centpos(coo) points(cent[1], cent[2], pch=3, cex=5, col="red")
Run the code above in your browser using DataLab