降维中的BIC准则

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位大牛你们好，我写了一个程序，折腾好多天了，可是老是不出正确的结果。
其中以下的BX就是图片中的X,  M就是途中delta_n矩阵，lm1就是参数Lambda
里面涉及到的(ln), 都是已经包含在以下的参数里面了。

道理就是不同的ln算出一个bic的值，然后选取bic最小的ln.我找了半天都是在ln=0时最小，显然不对，所以，想让各位帮忙看下，这个bic的算法是否有问题。

先谢谢各位了。
    BX<-matrix(rep(0,dm^3),ncol=dm)

     for(i in 1:dm)
     {
      BX[,i]<-as.vector(Et1[,i]%*%t(Et1[,i]))
     }
     BY<-as.vector(M)
     BL<-diag(w/abs(lm1))
     BL[BL == Inf] <- 0
     BP<-BX%*%(solve(t(BX)%*%(BX)+dm^2*BL))%*%t(BX)
     Btr<-sum(diag(BP))
     BN<-BY-BX%*%lm1
     bic<-log((norm(BN,"F"))^2)+log(dm^2)/dm^2*Btr

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：BIC Lambda Delta lamb Lam 图片 程序

自己顶一下

帮顶

再顶一下。

同问啊~~~求解答

研究了一下，发现程序过程没错啊，楼主，是不是你前面的程序有误啊，或者是本人眼拙，没看出来错误，求高手解答~~~

还有人看这贴吗？求助！！！！

有人回复吗？