Hola,
# Hacemos el KED. Ver función "krige()":
KED.rad <- krige(
formula=pluvPcp~layer, # covariable -> radar
locations=lluvia.rad.pluv.spdf,
newdata=radarGrid, # podrÃa ser cualquier objeto Spatial
model=v.fit, # modelo de semivariograma.
maxdist=Inf
)
Esta es la función que me interpola los datos de lluvia. El error que me da es:
"solve.c", line 88: singular matrix in function Usolve()
"lufactor.c", line 208: singular matrix in function m_inverse()
Error in predict.gstat(g, newdata = newdata, block = block, nsim = nsim, :
m_inverse
In addition: Warning message:
In fit.variogram(vg.aux, model = vgm(psill = 0.1, model = "Gau", :
Warning: singular model in variogram fit
Mi función del variograma es :
v.fit <- fit.variogram(vg.aux, model=vgm(psill=0.15, model='Gau', range=5000,
nugget=0.05))
¿Alguien me podrÃa ayudar?
Gracias de antemano.
Un saludo,