R/plot.ces.R

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

plot.ces <-
function(x, sites=FALSE, graph='X', N=20, sitelist=NULL, col=c('red', 'blue'), ...){

  if( class(x)[1] != 'ces' )
    stop('Not a CES object!')
  
  switch(class(x)[2], 
         plots = plot.ces.plots(x),
         plot.summary = plot.ces.plots(x),
         counts = plot.ces.counts(x, sites=sites),
         data = plot.ces.data(x, N=as.integer(N)),
         glmfit = plot.ces.glmfit(x, graph=graph, ... ),
         markfit = plot.ces.markfit(x),
         ch = plot.ces.ch(x, sitelist=sitelist, col=col, ...),
         res.table = plot.ces.table(x, graph=graph, ...),
         cat('No plot method defined!\n'))
  
}