Defines functions enet.selection.A.b

enet.selection.A.b <-
function(y, X, lambda, alpha=1, mu){
  n = length(y)
  enet.fit = fit.enet.fixed.lambda(y=y, X=X, lambda=lambda*n, alpha=1, mu=mu)
  Ab.obj = enet.selection.A.b.from.enet(enet.fit)
  list(which.col=Ab.obj$which.col, A=Ab.obj$A, b=Ab.obj$b)

Try the prototest package in your browser

Any scripts or data that you put into this service are public.

prototest documentation built on May 2, 2019, 4:02 p.m.