Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
19 lines (13 sloc) 579 Bytes
kkj2 <- "+init=epsg:2392"
files <- list.files(pattern="*[.shp]$")
sp.kunnat <- ReadShape(files=files, proj4string=kkj2)
# TODO 1: read in the additional information form the csv's
# TODO 2: use spChFIDS on the distrcit codes to change the fids <- sp.kunnat$Helsinki_aanestysalueet
sp.espoo <- sp.kunnat$Espoo_aanestysalueet
sp.espoo$KUNTA <- "092"
sp.pks <- spRbind(, sp.espoo)
spplot(, "KUNTA")
spplot(sp.espoo, "KUNTA")
Something went wrong with that request. Please try again.