R/get.poly.R

get.poly <-
function (x) 
    {
        poly <- slot(x, "polygons")
        t(sapply(poly, function(i) slot(i, "labpt")))
    }

Try the SciencePo package in your browser

Any scripts or data that you put into this service are public.

SciencePo documentation built on May 2, 2019, 5:53 p.m.