サプリー関数を使用してr内の複数の関数に最適関数を適用する

Question

複数の関数があり、それぞれに関数optimを繰り返すのではなく、複数の関数があります。私はそうするために他の多くの手動機能を試しました。しかし、私自身のすべての機能は動作しません。その後、私はsapply機能を使用しようとしましたが、同じ、それは動作しません。例えば

、

my_fun <- function(x,start=c(0,1),mu=c(0.5,2),sd=c(0.3,0.2)){ 

    ll_1 <- function(mu,sd){ 
    -sum(log(dnorm(x,mu[[1]],sd[[1]])) 
    } 
    ll_2 <- function(mu,sd){ 
    -sum(log(dnorm(x,mu[[2]],sd[[2]])) 
    } 
    ## apply ll to different dnorm functions 
    } 
} 
    optimm_1 <- optim(start,fn=ll_1) 
    optimm_2 <- optim(start,fn=ll_2) 

##私はOPTIM関数が各関数に適用され、私に各1の結果を与えたいです。

x <- rnorm(10,0.5,3) ##to get the data 

私はforループ内で機能するようにしました。だから、私の機能を何度も何度も繰り返すのではなく、また、これらの機能すべてを一度に最適化するのに疲れましたが、各機能ごとに繰り返しました。

Answer 1

@Frankのコメントに同意します。 optim機能によって受け入れられるshuch方法であなたの機能を書き直すべきです。また、この質問（またはあなたがしようとするものに似ているかもしれません）は、このウェブサイトで回答されました。これを見てください：

[[1]：apply an optimal function to a function using a for loop in r。これがあなたを助けることを願っています。