我使用以下代码创建了一个非常简单的多元回归计量经济学模型：
regression<-lm(y ~ q1 + spread + home + ff, mraf8)
这个简单的计量经济学模型有 49 个季度观测值。接下来，我想做一个 7 折的交叉验证。所以，我输入以下代码：
cvFit(regression, data = mraf8, y = "y", cost = rmse, K = 7, R = 1, foldType = c("consecutive"))
而且，我收到以下错误：
Error in cvFit.call(call, data = data, x = x, y = y, cost = cost, K = K, : = 'data' must have 49 observations
不知何故，cvFit() 似乎无法识别我的数据名称 mraf8。因此，接下来我将我的数据名称放在引号中，如下所示：
cvFit(regression, data = "mraf8", y = "y", cost = rmse, K = 7, R = 1, foldType = c("consecutive"))
而且，我收到以下错误：
Error in cvFolds(n, K, R, type = foldType) : 'K' outside allowable range
K 折 7 怎么会超出具有 49 个观测值的模型的范围？
你能帮我完成这个特定的编码吗？