如何使用R平方确定R中的变差函数模型？

Question

我制作了绘制变异函数的代码。 我想知道哪种变差函数模型最合适。 所以我想计算R-Squared。 如何使用R平方确定R中的变差函数模型？

这是数据链接

https://drive.google.com/file/d/0B58l7t8QjmcnTlNFcnYweEpBSnM/view?usp=sharing

library(sp)
library(gstat)
library(rgdal)

jeju<-read.csv('C:/Program Files/R/Input_jeju.csv')
jeju<-na.omit(jeju)

coordinates(jeju)<-~LONG+LAT
proj4string(jeju) =  "+proj=longlat +datum=WGS84"
jeju<-spTransform(jeju, CRS("+proj=utm +north +zone=52 +datum=WGS84"))

jeju.var<-variogram(log(OUT)~1,data=jeju,cutoff=80000, width=8000)
jeju.var

plot(jeju.var)

s1 <- vgm(psill=1.2,model="Sph",range=18000,nugget=0.04)
e1 <- vgm(psill=1.2,model="Exp",range=18000,nugget=0.04)
g1 <- vgm(psill=1.2,model="Gau",range=18000,nugget=0.04)

s1a<- fit.variogram(jeju.var,s1)
e1a<- fit.variogram(jeju.var,e1)
g1a<- fit.variogram(jeju.var,g1)

s1a
e1a
g1a

plot(jeju.var,s1a)
plot(jeju.var,e1a)
plot(jeju.var,g1a)