print-mcmcabn.R 470 Bytes
Newer Older
Gilles Kratzer's avatar
Gilles Kratzer committed
1
############################################################################### print.mcmcabn.R --- Author : Gilles Kratzer Last modified : 05/02/2019 :
Gilles Kratzer's avatar
Gilles Kratzer committed
2

Gilles Kratzer's avatar
Gilles Kratzer committed
3
print.mcmcabn <- function(x, ...) {
Reinhard Furrer's avatar
details    
Reinhard Furrer committed
4
5
    cat("Posterior Bayesian network score estimated using MCMC:\n")
    cat("Number of burn-in steps: ", (x$burnin), "\n", sep = "")
Gilles Kratzer's avatar
Gilles Kratzer committed
6
7
    cat("Number of MCMC steps: ", (x$iterations), "\n", sep = "")
    cat("Thinning: ", (x$thinning), "\n\n", sep = "")
Gilles Kratzer's avatar
typos    
Gilles Kratzer committed
8

Gilles Kratzer's avatar
Gilles Kratzer committed
9
    invisible(x)
Gilles Kratzer's avatar
typos    
Gilles Kratzer committed
10

Gilles Kratzer's avatar
Gilles Kratzer committed
11
}  #EOF