From 336ef40c196565ae70e4e4919d93e9fbb0777188 Mon Sep 17 00:00:00 2001 From: mattelisi Date: Tue, 3 Nov 2020 16:45:04 +0000 Subject: [PATCH] fixed issue in link not adding intercept for linear model (changed as.character in line 55 to deparse) --- R/z_link-map-quap.r | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/z_link-map-quap.r b/R/z_link-map-quap.r index 4eb4924..73632cc 100644 --- a/R/z_link-map-quap.r +++ b/R/z_link-map-quap.r @@ -52,7 +52,7 @@ function( fit , data , n=1000 , post , refresh=0 , replace=list() , flatten=TRUE # hacky solution -- find density function and insert whatever expression in typical link spot flik <- as.character(fit@formula[[1]][[3]][[1]]) # mu for Gaussian - if ( flik=="dnorm" ) lm <- as.character( fit@formula[[1]][[3]][[2]] ) + if ( flik=="dnorm" ) lm <- deparse( fit@formula[[1]][[3]][[2]] ) # p for binomial -- assume in third spot, after size if ( flik=="dbinom" ) lm <- as.character( fit@formula[[1]][[3]][[3]] ) # lambda for poisson