- Interpolación espacial
- Clasificación de la interpolación espacial.
- Proximidad por poligonos de Voronoi.
- KNN.
- Distancia inversa.
- Spline de placa delgada (Thin plate spline).
- Kriging
Las técnicas de interpolación pueden clasificarse en las siguientes cinco clases principales:
Trabajaremos con los datos de Precipitacion de California.
library(readr)
d <- read_csv("~/Desktop/curso_glm_utb/geo-estadistica/pres.geo/sec_4_geo/precipitacion.csv")
Precipitacion anual por estaciones
d$prec <- rowSums(d[, c(6:17)])
plot(sort(d$prec), ylab=expression(paste("Precipitación (", mm/año, ")")), las=1, xlab='Estaciones')
library(sp)
dsp <- SpatialPoints(d[,c(4,3)], proj4string=CRS("+proj=longlat +datum=NAD83"))
dsp <- SpatialPointsDataFrame(dsp, d)
CAcoor <- readRDS("~/Desktop/curso_glm_utb/geo-estadistica/pres.geo/sec_4_geo/counties.rds")
# definimos los grupos
clases <- c(0,200,300,500,1000,3000)
# colores
colores <- colorRampPalette(c("yellow", 'orange', 'blue', 'dark blue'))
pols <- list("sp.polygons", CAcoor, fill = "lightgray")
spplot(dsp, "prec", cuts=clases, col.regions=colores(5), key.space = list(x = 1, y = .7), sp.layout=pols, pch=20, cex=2, main = expression(paste("Precipitación en California (", mm/año, ")")))
TAcoor <- CRS("+proj=aea +lat_1=34 +lat_2=40.5 +lat_0=0 +lon_0=-120 +x_0=0 +y_0=-4000000 +datum=NAD83 +units=m +ellps=GRS80 +towgs84=0,0,0")
library(rgdal)
dta <- spTransform(dsp, TAcoor)
cata <- spTransform(CAcoor, TAcoor)
EMCM <- function(observado, predicho) {
sqrt(mean((predicho - observado)^2, na.rm=TRUE))
}
mod.bas <- EMCM(mean(dsp$prec), dsp$prec)
Definición