From 510e3d392be19b68144480336e120041c0ccc424 Mon Sep 17 00:00:00 2001
From: Gerko Vink <g.vink@uu.nl>
Date: Thu, 14 Jun 2018 21:26:49 +0200
Subject: [PATCH] correct name order

---
 R/ibind.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/ibind.R b/R/ibind.R
index bfb91a7d0..009fd8ef5 100644
--- a/R/ibind.R
+++ b/R/ibind.R
@@ -53,7 +53,8 @@ ibind <- function(x, y) {
   if (!identical(x$blots, y$blots))
     stop("Differences detected between `x$blots` and `y$blots`")
   visitSequence <- x$visitSequence
-  imp <- list()
+  imp <- vector("list", ncol(x$data))
+  names(imp) <- names(x$data)
   for (j in visitSequence) {
     imp[[j]] <- cbind(x$imp[[j]], y$imp[[j]])
   }