R函数输出为对象

Question

我试图设置一个功能，其输出必须在另一个功能中可用。我的意思是：

`setObj<-function(argument){
  list(a=argument$a,
       b=argument$b,
       c=argument$c,
       d=argument$d)
}`    

这是一个带有参数argument的函数，它是一个包含4个字段（a，b，c，d）的列表。

`f<-function(x){
  setObj(argument=x)
  (a+b+c+d)/4
}`

x的某些字段为argument。因此，在函数f()中，我需要提供对象a，b，c，d而不从列表中获取对象。

谢谢