From d36662a82d13ab0fa6ac07cdb19184e7ee42d6bb Mon Sep 17 00:00:00 2001
From: wbonat <wbonat@gmail.com>
Date: Mon, 4 Jan 2016 18:41:42 +0100
Subject: [PATCH] Fix bug in confint function
---
R/mc_S3_methods.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/mc_S3_methods.R b/R/mc_S3_methods.R
index 04a6d6b..5cfe8a0 100644
--- a/R/mc_S3_methods.R
+++ b/R/mc_S3_methods.R
@@ -214,7 +214,7 @@ confint.mcglm <- function(object, parm, level = 0.95, ...) {
ci <- temp$Estimates + temp$Std.error %o% fac
colnames(ci) <- paste0(format(a, 2), "%")
rownames(ci) <- temp$Parameters
- return(ci[parm])
+ return(ci[parm,])
}
#' @title Extract Model Fitted Values of McGLM
#' @name fitted.mcglm
--
GitLab