Skip to content

Commit

Permalink
Change error in the rendering
Browse files Browse the repository at this point in the history
  • Loading branch information
dchodge committed Dec 9, 2024
1 parent 82fa79d commit 51d25a6
Show file tree
Hide file tree
Showing 15 changed files with 41,902 additions and 43 deletions.
Binary file added .DS_Store
Binary file not shown.
11 changes: 4 additions & 7 deletions README.md
Original file line number Diff line number Diff line change
Expand Up @@ -18,15 +18,12 @@ library(rsvie)
## Quick start and overview of the package

The user must define several components in order to simulate the impact of an RSV intervention programme. These are
1. `add_economics`, the user must define the health outcomes considered, the risk of each health outcome occurring per-infection, and the QALY loss and cost of each outcome.
2. `add_programme`, the user must define the programme characteristics they wish to evaluate, including the timings (start date and end date), the target age group, the product's immunological profile, and the uptake rate.

A detailed vignette explaining defining these characteristics can be found in `vignettes/example.Rmd`.

## Example vignettes
1. `add_economics`, the user must define the health outcomes considered, the risk of each health outcome occurring per-infection, and the QALY loss and cost of each outcome.
2. `add_programme`, the user must define the programme characteristics they wish to evaluate, including the timings (start date and end date), the target age group, the product's immunological profile, and the uptake rate.

We also include several vignettes showing how to evaluate various programmes. These are found in `vignettes/sanity_check_*`.
A detailed vignettes explaining explaining how these work are in the `vignettes` folder.

## Contact

If you have any questions, please email me at [email protected]
If you have any questions, please email me at [email protected]
8,754 changes: 8,754 additions & 0 deletions docs/articles/example_mab.html

Large diffs are not rendered by default.

16,556 changes: 16,556 additions & 0 deletions docs/articles/example_mat.html

Large diffs are not rendered by default.

16,563 changes: 16,557 additions & 6 deletions docs/articles/example_oa.html

Large diffs are not rendered by default.

15 changes: 8 additions & 7 deletions docs/index.html

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

4 changes: 2 additions & 2 deletions docs/pkgdown.yml
Original file line number Diff line number Diff line change
@@ -1,8 +1,8 @@
pandoc: '3.5'
pandoc: 3.1.8
pkgdown: 2.1.1
pkgdown_sha: ~
articles:
example_mab: example_mab.html
example_mat: example_mat.html
example_oa: example_oa.html
last_built: 2024-12-09T09:50Z
last_built: 2024-12-09T12:06Z
Binary file added inst/.DS_Store
Binary file not shown.
Binary file added inst/extdata/.DS_Store
Binary file not shown.
Binary file added src/.DS_Store
Binary file not shown.
Binary file added src/ascent/.DS_Store
Binary file not shown.
Binary file added vignettes/.DS_Store
Binary file not shown.
14 changes: 7 additions & 7 deletions vignettes/example_mab.Rmd
Original file line number Diff line number Diff line change
Expand Up @@ -15,7 +15,7 @@ vignette: >
This vignette explains how to use the `rsvie` package to evaluate the impact of different RSV intervention programmes. The package is designed to be flexible and allow the user to define different intervention programmes, with different immunological profiles, and evaluate their impact on RSV outcomes.


```{r, load libraries, echo=FALSE, results='hide'}
```{r, load libraries, warning=FALSE}
# Load the package (or library(rsvie))
devtools::load_all()
Expand All @@ -30,7 +30,7 @@ RSVempty %>% str

Let's have a more detailed look at what's in these slots. I wouldn't recommend changing them, but future package iterations should allow for more flexibility.

```{r check, echo=FALSE, results='hide'}
```{r check, warning=FALSE}
RSVempty@prog_name # Name of the programme considered (currently empty)
RSVempty@econ_name # Name of the economics considered (currently empty)
Expand All @@ -48,7 +48,7 @@ RSVempty@uk_data$populationAgeGroup # Posterior distributions fitted to UK-speci
With this empty class, we now add information on the economics of the model. This includes the health outcomes considered, the risk of each health outcome occurring per infection, and the QALY loss and cost of each outcome.
First, we define the risk of each health outcome per age group:

```{r incidence, echo=FALSE, results='hide'}
```{r incidence, warning=FALSE}
econ_raw_ss <- read.csv(file = system.file(package = "rsvie", "extdata", "econ", "econ_pars_ss.csv"))
risks_vhr_raw <- read.csv(file = system.file(package = "rsvie", "extdata", "econ", "outcome_risks_vhr.csv"))
Expand All @@ -68,7 +68,7 @@ RSVempty_ss <- add_economics(RSVempty, econ_name = "E_W2023", econ_raw_ss, risks

Now, we need to load the QALY loss and cost for each outcome per age group.

```{r risks, echo=FALSE, results='hide'}
```{r risks, warning=FALSE}
immune_profile <- readRDS(file = system.file(package = "rsvie", "extdata", "efficacies", "immune_profiles_unbound.RDS"))
Expand All @@ -79,7 +79,7 @@ immune_profile <- readRDS(file = system.file(package = "rsvie", "extdata", "effi

With the economics and risks defined, we can now define an intervention programme. We have several vignettes showing how to evaluate various types of programmes that use different products. Here is a simple example:

```{r calendars, echo=FALSE, results='hide'}
```{r calendars, warning=FALSE}
# To evaluate a seasonal monoclonal given at birth, we load an Excel spreadsheet such as:
cal_none <- read.csv(file = system.file(package = "rsvie", "extdata", "calendars", "cal_none.csv"))
Expand All @@ -98,7 +98,7 @@ RSV_mab_s <- add_programme(RSVempty_ss, prog_name = "mab_s", cal_mabs_s, cal_vhr

To simulate a programme, we call `rsvie::run` on the class defined above. This will simulate the programme and return a class with the results.

```{r run, echo=FALSE, results='hide'}
```{r run, warning=FALSE}
# base vase
RSV_mab_vhr <- rsvie::run(RSV_mab_vhr)
Expand All @@ -109,7 +109,7 @@ RSV_mab_s <- rsvie::run(RSV_mab_s)

## 6. Extract incidence for further exploration

```{r post-process, echo=FALSE, results='hide'}
```{r post-process, warning=FALSE}
# Look at full posterior outcomes
Expand Down
14 changes: 7 additions & 7 deletions vignettes/example_mat.Rmd
Original file line number Diff line number Diff line change
Expand Up @@ -15,7 +15,7 @@ vignette: >
This vignette explains how to use the `rsvie` package to evaluate the impact of different RSV intervention programmes. The package is designed to be flexible and allow the user to define different intervention programmes, with different immunological profiles, and evaluate their impact on RSV outcomes.


```{r, load libraries, echo=FALSE, results='hide'}
```{r, load libraries, warning=FALSE}
# Load the package (or library(rsvie))
devtools::load_all()
Expand All @@ -30,7 +30,7 @@ RSVempty %>% str

Let's have a more detailed look at what's in these slots. I wouldn't recommend changing them, but future package iterations should allow for more flexibility.

```{r check, echo=FALSE, results='hide'}
```{r check, warning=FALSE}
RSVempty@prog_name # Name of the programme considered (currently empty)
RSVempty@econ_name # Name of the economics considered (currently empty)
Expand All @@ -48,7 +48,7 @@ RSVempty@uk_data$populationAgeGroup # Posterior distributions fitted to UK-speci
With this empty class, we now add information on the economics of the model. This includes the health outcomes considered, the risk of each health outcome occurring per infection, and the QALY loss and cost of each outcome.
First, we define the risk of each health outcome per age group:

```{r incidence, echo=FALSE, results='hide'}
```{r incidence, warning=FALSE}
econ_raw_ss <- read.csv(file = system.file(package = "rsvie", "extdata", "econ", "econ_pars_ss.csv"))
risks_vhr_raw <- read.csv(file = system.file(package = "rsvie", "extdata", "econ", "outcome_risks_vhr.csv"))
Expand All @@ -68,7 +68,7 @@ RSVempty_ss <- add_economics(RSVempty, econ_name = "E_W2023", econ_raw_ss, risks

Now, we need to load the QALY loss and cost for each outcome per age group.

```{r risks, echo=FALSE, results='hide'}
```{r risks,warning=FALSE}
immune_profile <- readRDS(file = system.file(package = "rsvie", "extdata", "efficacies", "immune_profiles_unbound.RDS"))
Expand All @@ -79,7 +79,7 @@ immune_profile <- readRDS(file = system.file(package = "rsvie", "extdata", "effi

With the economics and risks defined, we can now define an intervention programme. We have several vignettes showing how to evaluate various types of programmes that use different products. Here is a simple example:

```{r calendars, echo=FALSE, results='hide'}
```{r calendars, warning=FALSE}
# To evaluate a seasonal monoclonal given at birth, we load an Excel spreadsheet such as:
cal_none <- read.csv(file = system.file(package = "rsvie", "extdata", "calendars", "cal_mat_none.csv"))
Expand All @@ -98,7 +98,7 @@ RSV_mat_s <- add_programme(RSVempty_ss, prog_name = "mat_s", cal_mat_s, cal_vhr_

To simulate a programme, we call `rsvie::run` on the class defined above. This will simulate the programme and return a class with the results.

```{r run, echo=FALSE, results='hide'}
```{r run, warning=FALSE}
# base vase
RSV_mat_vhr <- rsvie::run(RSV_mat_vhr)
Expand All @@ -109,7 +109,7 @@ RSV_mat_s <- rsvie::run(RSV_mat_s)

## 6. Extract incidence for further exploration

```{r post-process, echo=FALSE, results='hide'}
```{r post-process, warning=FALSE}
# Look at full posterior outcomes
RSV_mat_s@outcomes$outcomes
Expand Down
14 changes: 7 additions & 7 deletions vignettes/example_oa.Rmd
Original file line number Diff line number Diff line change
Expand Up @@ -15,7 +15,7 @@ vignette: >
This vignette explains how to use the `rsvie` package to evaluate the impact of different RSV intervention programmes. The package is designed to be flexible and allow the user to define different intervention programmes, with different immunological profiles, and evaluate their impact on RSV outcomes.


```{r, load libraries, echo=FALSE, results='hide'}
```{r, load libraries, warning=FALSE}
# Load the package (or library(rsvie))
devtools::load_all()
Expand All @@ -30,7 +30,7 @@ RSVempty %>% str

Let's have a more detailed look at what's in these slots. I wouldn't recommend changing them, but future package iterations should allow for more flexibility.

```{r check, echo=FALSE, results='hide'}
```{r check, warning=FALSE}
RSVempty@prog_name # Name of the programme considered (currently empty)
RSVempty@econ_name # Name of the economics considered (currently empty)
Expand All @@ -48,7 +48,7 @@ RSVempty@uk_data$populationAgeGroup # Posterior distributions fitted to UK-speci
With this empty class, we now add information on the economics of the model. This includes the health outcomes considered, the risk of each health outcome occurring per infection, and the QALY loss and cost of each outcome.
First, we define the risk of each health outcome per age group:

```{r incidence, echo=FALSE, results='hide'}
```{r incidence, warning=FALSE}
econ_raw_ss <- read.csv(file = system.file(package = "rsvie", "extdata", "econ", "econ_pars_ss.csv"))
risks_vhr_raw <- read.csv(file = system.file(package = "rsvie", "extdata", "econ", "outcome_risks_vhr.csv"))
Expand All @@ -68,7 +68,7 @@ RSVempty_ss <- add_economics(RSVempty, econ_name = "E_W2023", econ_raw_ss, risks

Now, we need to load the QALY loss and cost for each outcome per age group.

```{r risks, echo=FALSE, results='hide'}
```{r risks, warning=FALSE}
immune_profile <- readRDS(file = system.file(package = "rsvie", "extdata", "efficacies", "immune_profiles_unbound.RDS"))
Expand All @@ -78,7 +78,7 @@ immune_profile <- readRDS(file = system.file(package = "rsvie", "extdata", "effi

With the economics and risks defined, we can now define an intervention programme. We have several vignettes showing how to evaluate various types of programmes that use different products. Here is a simple example:

```{r calendars, echo=FALSE, results='hide'}
```{r calendars, warning=FALSE}
# To evaluate a seasonal monoclonal given at birth, we load an Excel spreadsheet such as:
cal_none <- read.csv(file = system.file(package = "rsvie", "extdata", "calendars", "cal_none.csv"))
Expand All @@ -97,7 +97,7 @@ RSV_65_s <- add_programme(RSVempty_ss, prog_name = "mab_s", cal_lav_65, cal_vhr_

To simulate a programme, we call `rsvie::run` on the class defined above. This will simulate the programme and return a class with the results.

```{r run, echo=FALSE, results='hide'}
```{r run, warning=FALSE}
# Base-base
RSV_65_vhr <- rsvie::run(RSV_65_vhr)
Expand All @@ -109,7 +109,7 @@ RSV_65_s <- rsvie::run(RSV_65_s)

## 6. Extract incidence for further exploration

```{r post-process, echo=FALSE, results='hide'}
```{r post-process, warning=FALSE}
# Look at full posterior outcomes
RSV_65_s@outcomes$outcomes
Expand Down

0 comments on commit 51d25a6

Please sign in to comment.