所以我有以下代码:
library(semPLS)
data(ECSImobi)
#exponent vector for transformation of the dataset
#model of type plsm
#data
#returns a list of models with length of exponent vector
#list items are of class sempls
CalcModels <- function(exponent,model,data){
#initialize result as list
result <- vector("list")
#estimate models with different distances
for(i in seq_along(exponent)){
result[[i]] <- sempls(model=model, data = data^exponent[i])
}
return(result)
}
#calculate ecsi models with exponent 0.1, 0.2, ..., 2.0
ecsiModels <- CalcModels(c(1:20/10),ECSImobi,mobi)
sempls()函数具有许多其他参数。有什么办法可以将它们提供给CalcModels函数,因此我可以使用sempls函数的附加参数wscheme =“ pw”来调用CalcModels函数。我可以将它们全部写在两个函数的参数中,但是我认为肯定缺少一种更聪明的方法。
所以我想要这样的东西:
library(semPLS)
data(ECSImobi)
#exponent vector for transformation of the dataset
#model of type plsm
#data
#returns a list of models with length of exponent vector
#list items are of class sempls
CalcModels <- function(exponent,model,data,wscheme){
#initialize result as list
result <- vector("list")
#estimate models with different distances
for(i in seq_along(exponent)){
result[[i]] <- sempls(model=model, data = data^exponent[i],wscheme=wscheme)
}
return(result)
}
#calculate ecsi models with exponent 0.1, 0.2, ..., 2.0
ecsiModels <- CalcModels(c(1:20/10),ECSImobi,mobi,"pw")
但不是在两个函数中都写入每个参数,而是在不覆盖函数的情况下对参数进行了某种继承。
您是否要使用省略号(有关更多详细信息,请参见此处)?这是将参数传递给另一个函数的非常有用的技术。您需要做的就是添加...
功能的定义:
CalcModels <- function(exponent,model,data,...){
#initialize result as list
result <- vector("list")
#estimate models with different distances
for(i in seq_along(exponent)){
result[[i]] <- sempls(model=model, data = data^exponent[i],...)
}
return(result)
}
省略号可以传递任意数量的参数。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句