Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Issue #332: Fix to R CMD CHECK on Windows by reverting family as string in Ebola vignette #334

Merged
merged 2 commits into from
Sep 17, 2024
Merged

Issue #332: Fix to R CMD CHECK on Windows by reverting family as string in Ebola vignette #334

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
8ee4d8e
Comment out Ebola vignette as test
athowes Sep 16, 2024
32f4e27
Try reversion of the string family
athowes Sep 17, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 4 additions & 4 deletions vignettes/ebola.Rmd
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -216,13 +216,13 @@ Now we are ready to fit the latent individual model.
We start by fitting a single lognormal distribution to the data.
This model assumes that a single distribution describes all delays in the data, regardless of the case's location, sex, or any other covariates.
To do this, we set `formula = bf(mu ~ 1, sigma ~ 1)` to place an model with only and intercept parameter (i.e. `~ 1` in R formula syntax) on the `mu` and `sigma` parameters of the lognormal distribution.
This distribution is specified using `family = "lognormal"`.
This distribution is specified using `family = lognormal()`.

```{r}
fit <- epidist(
data = obs_prep,
formula = bf(mu ~ 1, sigma ~ 1),
family = "lognormal",
family = lognormal(),
algorithm = "sampling",
refresh = 0,
silent = 2,
Expand All @@ -246,7 +246,7 @@ To fit a model which varies the parameters of the fitted lognormal distribution,
fit_sex <- epidist(
data = obs_prep,
formula = bf(mu ~ 1 + sex, sigma ~ 1 + sex),
family = "lognormal",
family = lognormal(),
algorithm = "sampling",
refresh = 0,
silent = 2,
Expand Down Expand Up @@ -275,7 +275,7 @@ fit_sex_district <- epidist(
mu ~ 1 + sex + (1 | district),
sigma ~ 1 + sex + (1 | district)
),
family = "lognormal",
family = lognormal(),
algorithm = "sampling",
refresh = 0,
silent = 2,
Expand Down
Loading