R/print.vda.le.R

In VDA: VDA

print.vda.le <-
function (x, ...)
{
  cat ("\n Call: \n")
  print (x$call)
  
  cat ("# of cases=", x$cases, "\n")
  cat ("# of classes=", x$classes, "\n")
  cat ("# of features=", x$features, "\n")
  
  cat ("\n Lambdas used:", x$lambda, "\n")
  
  cat ("\n Estimated Coefficients: \n")
  print (x$coefficient)  
  
  cat ("\n Predicted classification: \n")
  print (x$predicted)
  
  cat ("\n Training Error: \n")
  print (x$training_error_rate)
  
  cat ("\n Number of Active Variables: \n")
  print (x$nonzeros)
  
  cat ("\n Selected Variables with Nonzero Coefficients: \n")
  print (names(x$feature)[x$selected+1])
}