`print.runJags` <-
function(x, ... )

  if (class(x) != "runJags")
    stop("'x' must be of class 'runJags'")

##  cat("'jagsControl':", deparse(substitute(jags.control)), "\n")
  cat("CMD File:", x$cmd.file,"\nJAGS started at",x$start.time,"\n")
  if (x$exit==0) {
    cat("JAGS run completed successfully at", x$end.time,"\n")
  } else {
    cat("Error: JAGS run failed at", x$end.time,"\n")

 if (length(x$elapsed.time)>0){
   cat("Elapsed times:\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, 4:41 p.m.