diff --git a/R/as.mcmc.hmsc.R b/R/as.mcmc.hmsc.R index acb1468..7eabe59 100755 --- a/R/as.mcmc.hmsc.R +++ b/R/as.mcmc.hmsc.R @@ -151,7 +151,7 @@ function(x, parameters = NULL, burning = FALSE, ...){ paramBurnMCMC <- x$results$burning[[parameters]] rownames(paramBurnMCMC) <- rownames(x$results$burning[[parameters]]) colnames(paramBurnMCMC) <- colnames(x$results$burning[[parameters]]) - paramMCMCMat <- rbind(paramBurnMCMCMat,paramMCMCMat) + paramMCMCMat <- rbind(paramBurnMCMC,paramMCMCMat) } }