## 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, c("houhold", "phouhold"))
#
# # 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")
# ## End(Not run)
Run the code above in your browser using DataLab