R/showMaxControl.R

Defines functions showMaxControl

showMaxControl <- function(object) {
   cat("A 'MaxControl' object with slots:\n")
   for(s in slotNames(object)) {
      if(s == "sann_cand") {
         ## This is a function or NULL, handle with care:
         if(is.null(slot(object, s))) {
            cat("sann_cand = <default Gaussian Markov kernel>\n")
         }
         else {
            cat("sann_cand =\n")
            print(str(slot(object, s)))
         }            
      }
      else {
         ## Just print
         cat(s, "=", slot(object, s), "\n")
      }
   }
}

setMethod("show", "MaxControl", showMaxControl)

Try the maxLik package in your browser

Any scripts or data that you put into this service are public.

maxLik documentation built on May 29, 2024, 2:32 a.m.