# NOT RUN {
# set the timeline
data("timeline_2000_2017")
# set the start and end dates
start_date <- lubridate::ymd("2002-08-29")
end_date <- lubridate::ymd("2013-08-13")
# define the input shapefile
shpfile <- system.file ("extdata/shapefiles/cerrado_forested.shp", package = "sits")
# define the output csv file
csvfile <- paste0("cerrado_forested.csv")
# define the label
label <- "Cerrado_Forested"
# read the points in the shapefile and produce a CSV file
sits_shp_to_csv(shpfile, csvfile, label, timeline_2000_2017, start_date, end_date)
# }
Run the code above in your browser using DataLab