R功能，输出可在功能外使用

Question

所以我想使用一个我称之为setupdata的函数在R中创建一个数据矩阵。基本上，getSymbols获取给定符号的库存数据，但是从一个懒散的时间。我希望选择最近60个交易日，因此设计了以下代码。

getSymbols(c("GOOG","RBS.L","AAPL","FB"),src="yahoo")

setupdata<- function (x){
data2<-x[(dim(x)[1]-59):dim(x)[1],1:6]
print(data2)
}

setupdata(AAPL)

我的问题是我希望能够使用“data2”而无需在运行一次后再调用该函数。我错过了什么？

如果您想亲自尝试，可能需要quantmod库

install.packages("quantmod")
library("quantmod")

Answer 1

您只需从函数返回data2：

setupdata<- function (x){
    data2 <- x[(dim(x)[1]-59):dim(x)[1],1:6]
    return(data2)
}

data2_outside_function = setupdata(AAPL)