## Not run: 
# if (require(tmap)) {
#     data(NLD_muni, NLD_prov)
# 
#     # sample points (each point represents 1000 people)
#     NLD_muni_points <- sample_dots(NLD_muni, vars = "population",
#         w=1000, convert2density = TRUE)
# 
#     # dot map
#     tm_shape(NLD_muni_points) + tm_dots()
# 
#     # convert points to raster
#     NLD_rst <- points_to_raster(NLD_muni_points, N = 1e4)
# 
#     # plot raster
#     tm_shape(NLD_rst) +
#     	tm_raster() +
#     tm_shape(NLD_prov) +
#     	tm_borders() +
#     tm_format_NLD() + tm_style_grey()
# }
# ## End(Not run)
Run the code above in your browser using DataLab