fix typo

paul-buerkner · paul-buerkner · commit 2323d933823c · 2021-02-10T22:59:29.000+01:00
diff --git a/R/stan-prior.R b/R/stan-prior.R
@@ -431,7 +431,7 @@ stan_special_prior_local <- function(prior, class, ncoef, px,
     m1 <- str_if(center_X, " -1")
     str_add(out$data) <- glue(
       "  // concentration vector of the D2 prior\n",
-      "  vector<lower=0>[K{sp}{m1}] R2D2_cons_D2;\n"
+      "  vector<lower=0>[K{sp}{m1}] R2D2_cons_D2{sp};\n"
     )
     str_add(out$par) <- glue(
       "  // local parameters for the R2D2 prior\n",

Original file line number	Diff line number	Diff line change
`@@ -431,7 +431,7 @@ stan_special_prior_local <- function(prior, class, ncoef, px,`
`431`	`431`	`m1 <- str_if(center_X, " -1")`
`432`	`432`	`str_add(out$data) <- glue(`
`433`	`433`	`" // concentration vector of the D2 prior\n",`
`434`		`- " vector<lower=0>[K{sp}{m1}] R2D2_cons_D2;\n"`
	`434`	`+ " vector<lower=0>[K{sp}{m1}] R2D2_cons_D2{sp};\n"`
`435`	`435`	`)`
`436`	`436`	`str_add(out$par) <- glue(`
`437`	`437`	`" // local parameters for the R2D2 prior\n",`