FUN入力がrになっている関数を作成する

Question

ユーザは、自分自身のモデル選択関数を入力として使用できるようにするための関数を探しています。適用するファミリによく似た入力とは対照的に、簡単なR関数を作成する方法について検索結果を取得し続けるうちに、答えを見つけるのに問題があります。ここで

は、私が探しています何に似てではなく、かなりの例である：

simple<- function(mod, FUN){ 
    switch(FUN, 
     AIC = AIC(mod), 
     BIC = BIC(mod)) 
} 
simple(lm(rnorm(100) ~ rnorm(100,4)), "AIC") 

上記のコードが実行されますが、私は可能な機能のすべてを計画し、スイッチ内でそれらを記述する必要があります。私はまた、単にAICとは対照的に「AIC」を書くことを余儀なくされています。

私が探している機能をどのように作成できますか？追加情報が必要な場合はお知らせください。

Answer 1

このような何か：

simple<- function(mod, FUN){ 
    FUN <- match.fun(FUN) 
    FUN(mod) 
} 

simple(lm(rnorm(100) ~ rnorm(100,4)),FUN = "BIC") 

match.funは、関数、記号や文字を受け入れ、そうFUN引数が渡される方法にある程度の柔軟性があります。

コメントで述べたように、複数の機能を渡すためのオプション：

simple <- function(mod, FUN){ 
    FUNS <- lapply(FUN,match.fun) 
    lapply(FUNS,function(fun) fun(mod)) 
}