使用for循环在R中使用paste()函数进行打印

时间:2017-03-08 20:23:55

标签: r for-loop cross-validation

我编写了一个自定义函数,将数据框划分为k个折叠以进行k折交叉验证,并希望打印出折叠的起始和结束索引,以检查分割是否正确完成。我在paste()循环中使用for函数。当我运行该函数时,我没有得到任何错误但没有打印出来。当我只将paste()行复制到终端时,它会正确打印最后一个索引,这表明该函数已正确执行。那么为什么不从函数中打印paste()行呢?对此我有任何建议,我将不胜感激。

fold_index_counter = function(k, data){

  n = nrow(data)

  for (i in 1:k){
    start = (n*i)/k
    end = (n*(i+1))/k-1
    paste("Fold no. ", i, " starts at row ", start, " and ends at row ", end, sep = "")
  }  
}

fold_index_counter(10, dat.cor.trim)

0 个答案:

没有答案