From d2a1fdc91809a886d5e85bd4340c0c3bd6aa78b3 Mon Sep 17 00:00:00 2001 From: Sam Date: Fri, 15 Nov 2024 12:13:26 +0000 Subject: [PATCH] fix file.paths --- R/latent_individual.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/R/latent_individual.R b/R/latent_individual.R index 3d19e796d..fc3b0d5d0 100644 --- a/R/latent_individual.R +++ b/R/latent_individual.R @@ -124,7 +124,7 @@ epidist_stancode.epidist_latent_individual <- function(data, stanvars_functions <- brms::stanvar( block = "functions", - scode = .stan_chunk("latent_individual/functions.stan") + scode = .stan_chunk(file.path("latent_individual", "functions.stan")) ) family_name <- gsub("latent_", "", family$name) @@ -173,17 +173,17 @@ epidist_stancode.epidist_latent_individual <- function(data, stanvars_parameters <- brms::stanvar( block = "parameters", - scode = .stan_chunk("latent_individual/parameters.stan") + scode = .stan_chunk(file.path("latent_individual", "parameters.stan")) ) stanvars_tparameters <- brms::stanvar( block = "tparameters", - scode = .stan_chunk("latent_individual/tparameters.stan") + scode = .stan_chunk(file.path("latent_individual", "tparameters.stan")) ) stanvars_priors <- brms::stanvar( block = "model", - scode = .stan_chunk("latent_individual/priors.stan") + scode = .stan_chunk(file.path("latent_individual", "priors.stan")) ) stanvars_all <- stanvars_version + stanvars_functions + stanvars_data +