R/lassop.R

In MMS: Fixed Effects Selection in Linear Mixed Models

lassop=function(data,Y,z,grp,D,mu,step,fix,rand,penalty.factor,alpha,showit)
{
	q=ncol(z)
if(missing(D)&(q==1)){D=1}
if(missing(D)&(q>1)){D=0}

if(D==0){
out=lassop_nodiag(data,Y,z,grp,mu,step,fix,rand,penalty.factor,alpha,showit)
	}else{
out=lassop_diag(data,Y,z,grp,mu,step,fix,rand,penalty.factor,alpha,showit)
	}
out$call=match.call()

out
}