从函数返回数据帧或向量

Question

我根据 -LL 输入计算了模型拟合 (AIC)。我使用了一个矢量化函数，我想返回所有计算值的data.frame 或vector 以供进一步分析。该函数工作正常，但如果我定义一个输出向量，它不会返回这个向量。

这是我的功能：

function.aic <- function(k,LL)   {    
    aic <- (2*(LL)) + (2*k)    
    m <-mean(aic)  
    print(m)    
    print(aic)
    aic_vector <- as.data.frame(aic) }

此外，最好将此向量保存在具有输入变量“LL”名称的对象中，以便为每次计算提供特定对象。但我就是不知道该怎么做，Google 并没有真正提供帮助。

Answer 1

似乎您只是缺少一个退货声明。此外，要给出命名输出，您可以使用deparse 和substitute 来获取变量名。然后，您可以创建一个列表，并为列表元素指定变量的名称。例如：

function.aic <- function(k,LL)
{
  aic <- (2*(LL)) + (2*k)
  m <-mean(aic)
  print(m)
  print(aic) 
  aic_vector <- as.data.frame(aic) 

  mylist=list()
  mylist[[deparse(substitute(LL))]] = aic_vector
  return(mylist)
}

input_1 = 10
input_2 = 10

x = function.aic(input_1,input_2)

x 现在是：

$input_2
  aic
1  40

因此，x$input_2 包含您的 AIC 数据帧。希望这会有所帮助！