R GRNN模型需要很长时间才能预测

Question

我想使用GRNN包在R中应用一般回归神经网络模型。我不知道问题是什么，但运行此代码需要很长时间。循环完成需要永远。

我的系统有4 GB内存并且有一个i5第一代处理器（我知道它已经很老了，但我现在就拥有它）。是因为我的系统配置还是代码有问题？

训练数据有1273个变量的3673个观测值，测试有12个变量的1225个观测值。所有变量都是数字

nn <- learn(training, variable.column=length)
nn <- smooth(nn, sigma = 0.9)


for(i in 1:nrow(testing))
{   
  vec <- as.matrix(testing[i,])
  res <- guess(nn, vec)

  if(is.nan(res))
  {
    cat("Entry ",i," Generated NaN result!\n")
  }
  else
  {
    result$predict[i] <- res
  }
  i = i+1
}