EQvalue is an R package to calculate Quality Adjusted Life Year’s (QALY) from EuroQol questionaire EQ-5D-5L
# The easiest way to install:
devtools::install_github("HaemAalborg/EQvalue")
EQ-5D-5L data looks something like this
#> NAME MOBILITY SELFCARE ACTIVITY PAIN ANXIETY
#> 1 Hansen 1 1 1 1 1
#> 2 Jensen 2 3 2 3 2
#> 3 Olesen 2 5 4 3 1
The function EQpaste
gathers the answers into one column if they
corronspond to the naming scheeme proposed in the user guide, which is:
MOBILITY, SELFCARE, ACTIVITY, PAIN, ANXIETY.
library(EQvalue)
df_1 <- EQpaste(df_0)
df_1
#> NAME MOBILITY SELFCARE ACTIVITY PAIN ANXIETY STATE
#> 1 Hansen 1 1 1 1 1 11111
#> 2 Jensen 2 3 2 3 2 23232
#> 3 Olesen 2 5 4 3 1 25431
The function is called QALY
and takes as arguments a dataframe, a
country and a name of the colum with the parsed scores eg. 11111.
df_2 <- QALY(df_1, country = "dk", name = "STATE")
df_2
#> NAME MOBILITY SELFCARE ACTIVITY PAIN ANXIETY STATE Denmark
#> 1 Hansen 1 1 1 1 1 11111 1.000
#> 2 Jensen 2 3 2 3 2 23232 0.625
#> 3 Olesen 2 5 4 3 1 25431 0.509
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.