Performing a kriging
Thank you Saman and Paulo, Certainly , I use Awkwardly the example advised by Paulo. I don't understand the code :var(Humidity) and 0.05*max(dist(cbind(X,Y))). However, after the change of my data to geodata, I have not an error message but the result is a black plot (useless). The followed code was used:
library(geoR) tab<-as.geodata(tab,coords.col=1:2,data.col=3,data.names=NULL) ml <- likfit(tab, ini = c(1,0.5), fix.nugget =T) pred.grid <- expand.grid(seq(0,1, l=51), seq(0,1, l=51)) kc <- krige.conv(tab, loc = pred.grid, krige = krige.control(obj.m = ml)) image(kc, loc = pred.grid, col=gray(seq(1,0.1,l=30)))
Thank you in advance for your advice. Komine Komine wrote
Dear,
I use the data (.csv) shown below for performing a kriging.
X Y Humidity
1 719134.1 1433671 90
2 736867.3 1431585 50
3 751471.1 1422197 32
4 749384.8 1414895 75
5 732694.8 1413851 12
6 719134.1 1412808 65
I use this code retreived from internet and adapted with my data.
tab<-read.table("C:\\Users\\Kriging.csv",sep=";",dec=",",header=TRUE)
tab
library(geoR)
ml <- likfit(Kriging, ini = c(1,0.5), fix.nugget =T)
pred.grid <- expand.grid(seq(0,1, l=51), seq(0,1, l=51))
kc <- krige.conv(Kriging, loc = pred.grid, krige = krige.control(obj.m =
ml))
image(kc, loc = pred.grid, col=gray(seq(1,0.1,l=30))
When I run the code, I have an error message from the fourth command line. Thank you in advance for your advice, I am not familiar with in spatial statistics. Komine
-- View this message in context: http://r-sig-geo.2731867.n2.nabble.com/Performing-a-kriging-tp7583773p7583775.html Sent from the R-sig-geo mailing list archive at Nabble.com.