R/print.summary.nlda.R

In wilsontom/FIEmspro: Flow In-jection Electrospray Mass Spectrometry Processing: \\ data processing, classification modelling and variable selection in metabolite fingerprinting

`print.summary.nlda` <-
function (x, ...) {
  print.nlda(x)
  
  ## cat("\nNumber of Classes: ", length(x$lev), "\n\n")
  ## cat("Levels:", if(is.numeric(x$lev)) "(as integer)", "\n", x$lev)
  ## cat("\n\n")
}