Error in fit.variogram(variogram, vgm("Sph", range = 50000, nugget = 0.5)) : object should be of class gstatVariogram or variogramCloud

这个错误提示可能是因为 `variogram` 函数返回的 `variogram` 对象不是 `gstatVariogram` 类型的对象，而 `fit.variogram` 函数要求输入的对象必须是 `gstatVariogram` 或 `variogramCloud` 类型的对象。为了解决这个问题，可以尝试在调用 `variogram` 函数时设置参数 `cloud = TRUE`，使其返回 `variogramCloud` 类型的对象，然后再使用 `variogramCloudToGstatVariogram` 函数将其转换为 `gstatVariogram` 类型的对象，具体实现如下：

# 计算半变异函数
variogram <- variogram(z ~ 1, data = data_m, width = 100000, cutoff = 300000, cloud = TRUE)
vario.gstat <- variogramCloudToGstatVariogram(variogram)

# 拟合半变异函数模型
fit <- fit.variogram(vario.gstat, vgm("Sph", range = 50000, nugget = 0.5))

# 绘制拟合结果
plot(vario.gstat, fit.variogram = fit)

在上面的代码中，调用 `variogram` 函数时设置参数 `cloud = TRUE`，使其返回 `variogramCloud` 类型的对象，然后使用 `variogramCloudToGstatVariogram` 函数将其转换为 `gstatVariogram` 类型的对象 `vario.gstat`。接着使用 `fit.variogram` 函数拟合半变异函数模型，并使用 `plot` 函数绘制拟合结果。