nls模型的cvFit（）交叉验证错误：“错误：'符号'类型的对象不是子表”

Question

我让这个nls()模型运行得非常顺利，我希望能够使用cvTools包进行交叉验证，但是当我运行{{1}时出现此错误功能：

  

错误：类型＆＃39;符号＆＃39;的对象不是子集表格

RStudio自动打开调试器，我在源查看器中得到了这个：

cvFit()

我在.csv格式的以下链接中包含了我的数据框的摘录：https://www.sendspace.com/file/ec1aoa

以下是我使用的代码：

function (x, env = parent.frame(), ...) 
{
    notAtomic <- !is.atomic(x)
    notnull <- function(z) notAtomic && !is.null(z)
    if (notnull(x$formula)) #this part is hightlited in the source viewer for some reason
        eval(x$formula)
    else if (notnull(x$terms)) {
        z <- x$terms
        oldClass(z) <- "formula"
        z
    }
    else if (notnull(x$call$formula)) 
        eval(x$call$formula)
    else if (!is.null(attr(x, "formula"))) 
        attr(x, "formula")
    else {
        form <- switch(mode(x), `NULL` = structure(NULL, class = "formula"), 
            character = formula(eval(parse(text = x)[[1L]])), 
            call = eval(x), stop("invalid formula"))
        environment(form) <- env
        form
    }
}