Question

我想在另一个R脚本中的一个R脚本中使用一个参数。例如，在第一个用于读取数据的文件中：

wb <- loadWorkbook("adress")
dat <-readWorksheet(wb, sheet=getSheets(wb)[1], startRow=strow, endRow=endrow, startCol=spalte, endCol=spalte,header=FALSE)
datalist<-dat[,1]
while(n<=length(datalist))
{
  m<-strsplit(datalist[n],split=",")
  m<-sapply(m,as.numeric)
  m<-c(m)

  input<-m
  # here I want to set input to another file
  run1 <- parse("~/second.R")

  n<-n+30
}

在second.R我有一个名为input的参数

但此代码不会运行second.R。我该怎么做才能解决这个问题？

更新

第二个.R是：

wbdb <- loadWorkbook("C:\\Adress\\Muster.xls")
datdb <-readWorksheet(wbdb, sheet=getSheets(wb)[1], startRow=1, endRow=35, startCol=1, endCol=2,header=FALSE)
datalistdb<-datdb[,1]

ke<-length(input)
i<-1
near<-1000
position<-0
while(i < 35)
{ 
  m<-strsplit(datalistdb[i],split=",")
  m<-sapply(m,as.numeric)
  m<-c(m)
  alignment<-dtw(input,m)


  if(alignment$distance < near)
  {
    near<-alignment$distance
    position<-i
  }
  i<-i+1
}
position
datdb[position,2]

Answer 1

您需要使用second.R：

致电eval

run1 <- eval(parse("~/second.R"))

Answer 2

你必须使用：

run1 <- source("~/second.R")

如何在其他脚本的脚本中使用参数

2 个答案: