R/print.bess.one.R

In scrcss319/BeSS: Best Subset Selection in Linear, Logistic and CoxPH Models

Defines functions print.bess.one

Documented in print.bess.one

print.bess.one=function(x, ...)
{
  if(x$family=="bess_gaussian") print(c(Df=sum(x$beta!=0),MSE=x$mse,AIC=x$AIC,BIC=x$BIC,EBIC=x$EBIC))else
    print(c(Df=sum(x$beta!=0),Dev=x$deviance,AIC=x$AIC,BIC=x$BIC,EBIC=x$EBIC))
}