File: summary.RSctr.R

package info (click to toggle)
raschsampler 0.8-6-1
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 320 kB
  • ctags: 15
  • sloc: f90: 400; makefile: 2
file content (12 lines) | stat: -rwxr-xr-x 362 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
 
"summary.RSctr" <-
function(object,...)
{
  cat("\nCurrent sampler control specifications in ",deparse(substitute(object)),":\n", sep="")
  cat("\tburn_in =",object$burn_in,"\n")
  cat("\tn_eff =",object$n_eff,"\n")
  cat("\tstep =",object$step,"\n")
  cat("\tseed =",object$seed,"\n")
  cat("\ttfixed =",object$tfixed,"\n\n")
  invisible(object)
}