Writing a reclassification program using the {RASTER} package in R language