Como fazer o Kriging Ordinário usando o gstat predict

Eu estou tentando escrever um código em R que usa a biblioteca gstat para criar uma interpolação. Eu já li o manual do gstat e com base em alguns exemplos na internet eu consegui escrever esse código (isso é apenas uma parte):

 g <- gstat(id="tec", formula=TEC ~ 1, data=data)  ##I create an object
 v <- variogram(g) # plot the empirical variogram
 plot(v)
 mod<-vgm(sill=var(data$TEC),model="Sph",range=200,nugget=200) #create the variogram model

v.fit <- fit.variogram(v, model=mod,fit.method=1)  #fit the empirical variogram 
Theor_variogram=plot(variogram(g),v.fit,main="WLS Model") #plot the theoretical variogram
plot(Theor_variogram)
 ## Kriging interpolation
 p <- predict.gstat(g, model=v.fit, newdata=predGrid)

Meu problema é que, quando executo o último comando (predizer) em vez de obter um resultado com interpolação de krigagem comum, obtenho um com distância inversa ponderada (IDW). Eu li no manual do gstat que: "Quando nenhum variograma é especificado, a interpolação ponderada da distância inversa é a ação padrão. Quando os variogramas são especificados, o método de predição padrão é a krigagem comum."

Mas, como você pode ver no meu código, especifico o variograma empírico e teórico. Você sabe por que eu continuo recebendo IDW em vez de krigagem comum? Pode estar relacionado com o tipo de coordenadas que tenho? Se por exemplo eu tenho coordenadas próximas umas das outras, ou se a região de interesse é muito grande? Qualquer ajuda seria realmente útil.

Agradecemos antecipadamente Dimitris

questionAnswers(1)

yourAnswerToTheQuestion