r：从其他脚本

Question

我有两个文件svm.R和usefulFunc.R。 我已经为第二个脚本中的功能规范化编写了这个自定义函数，并从第一个脚本调用它。

这是我的功能

featureNormalize <- function(datax, startCol, endCol, meanSd)
{
  n <- endCol - startCol + 1
  print(n)
  for(x in c(1:n))
  {
    print(x)
    datax[, startCol + x - 1]<- (datax[, startCol + x - 1] - meanSd[x,1])/meanSd[x,2]
    head(datax[, startCol + x -1])
  }
  print('here')
  datax
}

当我用以下代码调用它时

> trainer <- featureNormalize(trainer,1,10, meanSd)
[1] 10
[1] 1
[1] 2
[1] 3
[1] 4
[1] 5
[1] 6
[1] 7
[1] 8
[1] 9
[1] 10

它既不会打印head的{​​{1}}，也不会打印for循环之外的datax。

当我把它带进svm.R时它工作得很好。但它不能从其他脚本工作，而该脚本中的其他功能正常工作。 我无法弄清楚发生了什么事？

其他信息：

'here'