R版本3.3.2，Windows 10:gstat软件包：使用'；拟合变异函数'；功能

我对

gstat

软件包的

fit.variagram

功能有一些问题。我的代码、数据、错误消息和

traceback（）

消息可以在下面找到。任何解决这个问题的建议都将不胜感激

library(gstat)
mydf<-as.data.frame(read.table("Sample_data.xlsx",header = TRUE,sep = 
",",na.strings = "EMPTY"))
coordinates(mydf) = ~x+y
c.vgm.exp<-variogram(z~1,data=mydf,cutoff=60000, width = 60000/15)
c.vgm.fit<-fit.variogram(c.vgm.exp,vgm(nugget=1000000,psill=6000000,model 
="Exp",range = 40000),fit.method = 7)

库（gstat）
mydfI曾尝试通过将x、y和z除以千来重新缩放数据，但也没有帮助。我曾尝试通过将x、y和z除以千来重新缩放数据，但也没有帮助。
c.vgm.fit<-fit.variogram(c.vgm.exp,vgm(nugget=1000000,psill=6000000,model 
="Exp",range = 40000),fit.method = 7)
Error in switch(model, exponential = fit.exponential(v.object, c0 = nugget,: 
EXPR must be a length 1 vector

traceback()
1: fit.variogram(c.vgm.exp, vgm(nugget = 1e+06, psill = 6e+06, model = 
"Exp", range = 40000), fit.method = 7)