Question

我正在尝试从一个函数中保留一个指定的对象（构建一个ts函数来开始模拟一个单变量的过程，我知道这很简单！）。我无法找到一种方法来保持我的工作区中的对象。它只使用for循环工作正常，但我想参数化以下内容：

ts.builder<-function(x,y,z){
  for(i in 9:13){
    assign(paste(x,i,sep="_"),ts(yardstick[1:528,i], freq=24))
    assign(paste(y,i,sep="_"),ts(yardstick[529:552,i], freq=24))
    assign(paste(z,i,sep="_"),ts(yardstick[1:552,i], freq=24))
  }
}

ts.builder("yard.book.training","yard.book.small.valid", "yard.book.valid")

任何指针？我在想它可能需要一个返回声明，但我还没有发现它有用。

Answer 1

未经测试（可重复的示例有很多帮助）：

ts.builder <- function() {
  xd <- list()
  yd <- list()
  zd <- list()

  for (i in 9:13) {
    xd[[i]] <- ts(yardstick[1:528,i], freq=24)
    yd[[i]] <- ts(yardstick[529:552,i], freq=24)
    zd[[i]] <- ts(yardstick[1:552,i], freq=24)
  }
  list(yard.book.training=xd, yard.book.small.valid=yd, yard.book.valid=zd)
}

l <- ts.builder()

然后是返回的值：

l$yard.book.training[[9]]

等

通过函数在工作区中保留已分配的对象

1 个答案: