R/print.ces.R

In btorobrob/cesr: Trend analysis of Constant Effort Site ringing data

Defines functions print.ces

Documented in print.ces

print.ces <-
function(x, ...){
  
  if( !class(x)[1] == 'ces' )
    print(x)
  else 
    switch( class(x)[2],
            res.table = summary.ces.table(x),
            markfit = print(x$model$results$real),
            print(as.data.frame(x)))

}