R 拟合变异函数

我创建了一个这样的数据框

 head(df)
DISTBin   MSDBin
1       0  4.301515
2      20  5.599879
3      40  5.883236
4      60  6.430584
5      80  7.396374
6     100  7.561652

其中，第一列是距离向量（bined），第二列是给定量的均方差向量

然后我想用高斯模型拟合df$MSDBin~df$DISTBin

我不能使用

gstat

或类似的工具，因为我没有变差函数对象（我必须自己计算变差函数，以丢弃来自同一ID的对）

---

有什么帮助吗？

我自己找到了答案

Gau <- function(h,tau,sigma.sq,range){
    return(tau + sigma.sq * (1-exp(-(h*h)/(range*range))))
}

Gau_Fit <- nls(MSDBin ~ Gau(DISTBin,tau,sigma.sq,range),
                 data = df,
                 start = list(tau = 0, sigma.sq = 10, range = 1000))

Gau