From 909bf118b7c7b3e28547926f7613202389928442 Mon Sep 17 00:00:00 2001
From: Venelin Mitov <venelin.mitov@bsse.ethz.ch>
Date: Wed, 13 Feb 2019 10:06:11 +0100
Subject: [PATCH] Setting names to columns explicitly (trying to fix broken
 build for commit ac38295 . This is after merging pull-request
 https://github.com/venelin/POUMM/pull/2 .

---
 R/summaryPOUMM.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/R/summaryPOUMM.R b/R/summaryPOUMM.R
index aa8ca27..157ea64 100644
--- a/R/summaryPOUMM.R
+++ b/R/summaryPOUMM.R
@@ -288,14 +288,14 @@ plot.summary.POUMM <- function(
       if(!is.null(.chain)) {chain %in% .chain} else TRUE 
     }, { MAX = length(unlist(mcmc))  # 'value=' below is longest item
       ans <- list(
-      rep(N, length=MAX),
-      rep(MLE, length=MAX),
-      rep(samplePriorMCMC,length=MAX), 
+      N = rep(N, length=MAX),
+      MLE = rep(MLE, length=MAX),
+      samplePriorMCMC = rep(samplePriorMCMC,length=MAX), 
       HPDLower = rep(sapply(HPD, function(.) .[1]), length=MAX),
       HPDUpper = rep(sapply(HPD, function(.) .[2]), length=MAX),
       HPD50Lower = rep(sapply(HPD50, function(.) .[1]), length=MAX),
       HPD50Upper = rep(sapply(HPD50, function(.) .[2]), length=MAX), 
-      rep(ESS, length=MAX),
+      ESS = rep(ESS, length=MAX),
       value = unlist(mcmc),   # this is the longest (MAX) 
       it = rep(seq(x$startMCMC, by = x$thinMCMC, along.with = mcmc[[1]]), length=MAX))
       #  if (.GRP==13) print(ans)