谢谢你的回复,您对弹性网了解吗,最近在看弹性网,它的R程序用penalized包怎么写呢?这是我尝试写的弹性网程序,您给看看吧。我这样写对不对,没找到关于弹性网的包
#Cox:弹性网
# Finding an optimal cross-validated likelihood
opt1 <- optL1(surv, penalized = X, fold = 10,data=simcox)
fit2<-profL2(surv,penalized=X,minl=0.01,maxl=100000,fold=opt1$fold,steps=20)
lambda22<-fit2$lambda[fit2$cvl==max(fit2$cvl)] ###返回最大cvl值对应的lambda2
fit1<-profL1(surv,penalized=X,lambda2=lambda22,fold=opt1$fold,steps=20)
lambda11<-fit1$lambda[fit1$cvl==max(fit1$cvl)] ###返回最大cvl值对应的lambda1
pen<-penalized(surv,penalized=X,data=simcox,lambda1=lambda11,lambda2=lambda22)


雷达卡

京公网安备 11010802022788号







