r - rの独自関数のグループによる最適化

Question

自分の関数にグループによる最適化を適用したいと思います。

ここで再現可能なデータセット:

data <- data.frame(ID=c(1,1,1,2,2,3,3),C=c(1,1,1,2,2,3,4),
                   Lambda=c(0.5),s=c(1:7),   
                   sigma_S=c(0.5,0.4,0.3,0.7,0.4,0.5,0.8),
                   d=c(20,30,40,50,60,70,80), 
                   sigma_B=0.3,t=5,Rec=0.5,r=0.05)

私の関数は次のように定義されています（関数は簡単です。メソッドを理解したいだけです）：

  TestMSE <- function(LR)
  {
    d <- data
    D <- LR + d$s
    mse(d$C, D)   # mse is from the Metrics Package
   }

optimize(TestMSE,lower = 0.1, upper =1.5)

ddply 関数を使用してみました:

test <-  ddply(data,"ID",summarise, optimize(TestMSE,lower = 0.1, upper =1.5))

しかし、サブグループによる違いはありますが、ddply 関数を適用すると、すべてのグループで同じソリューションが得られます。

ありがとう。