R/biodyn-diags.R

In laurieKell/biodyn: Biomass Dynamic Model

setMethod('diags',  signature(object='biodyn',method='missing'), function(object,method,...){
  object@diags})

if (!isGeneric('diags<-'))  
  setGeneric('diags<-',   function(object,value)      standardGeneric('diags<-'))
setMethod('diags<-', signature(object='biodyn', value='data.frame'),
          function(object,value){
            object@diags=value
            return(object)})