R/xy2SpatialPolygon.r

In jae0/emaf: Package that interacts with stmv.

xy.to.SpatialPolygon = function( xy, id=1, crs=NA ) {
  #\\Convert xy matrix of coordinates (lon,lat) to a spatialpolygon
  SpatialPolygons( list( 
    Polygons( list( Polygon( coords=xy)), id ) ), proj4string=sp::CRS(crs) )
}