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