# NOT RUN {
data(reunion)
# Smoothing of the variable houhold (households) and phouhold (poor households) for Reunion
# Lissage de la variable houhold(menages) et phouhold(menages pauvres) pour la Reunion
reunionSmooth <- kernelSmoothing(reunion, 200, 800)
# Calculating the poverty rate (Calcul du taux de pauvrete)
reunionSmooth$ratio <- reunionSmooth$phouhold / reunionSmooth$houhold * 100
# Building of the associated basemap (Creation du fond de carte associe)
grid <- smoothingToGrid(reunionSmooth, "32740")
#library(rgdal)
# Export of the basemap in shapefile format (Export du fond de carte au format shapefile)
#writeOGR(grid, "reunion.shp", "reunion", driver = "ESRI Shapefile")
# }
Run the code above in your browser using DataLab