我想自编程序(暂时不考虑lars及magps包等)
y=xb+e
set.seed(123)
suijishu=runif(1000,-2,2)
zhu=matrix(suijishu,100,10)
x0=zhu[,1:4]
x=zhu[,1:10]
beta0=matrix(c(1,2,3,4),4,1)
y0=x0%*%beta0
ssL=function(beta) #自编Lasso 其中beta[11]为lambda
{tt=y0-x%*%beta[1:10]
s=1/100*log(t(tt)%*%tt)+beta[11]*sum(abs(beta[1:10]))}
stL=nlm(ssL,c(rep(1,11)))
请问:为什么这样吧得不到lasso解?
自编lasso该怎么编?


雷达卡






京公网安备 11010802022788号







