library(raster)
library(ExtractTrainData)
img<-brick(system.file("extdata","ras.tif",package = "ExtractTrainData"))
poly.shp<-shapefile(system.file("extdata","poly_shp.shp",package = "ExtractTrainData"))
Out.colName<-In.colName<-"Id"
ExtractByPoly(img,poly.shp,In.colName,Out.colName)
Run the code above in your browser using DataLab