R/print.runJagsWrapper.R

Defines functions `print.runJagsWrapper`

`print.runJagsWrapper` <-
function(x, ...){
  
  if (class(x) != "runJagsWrapper")
    stop("'x' must be of class 'runJagsWrapper'")

  print(x$run.jags)
  print(x$summary)
  print(x$diagnostics)
  print(x$doses)
  cat("\nDIC:",x$DIC,"\n")
}

Try the polySegratioMM package in your browser

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

polySegratioMM documentation built on May 2, 2019, 9:49 a.m.