Norwegian EQ-5D-5L value set added.

fragla · Nov 25, 2024 · ea12fec · ea12fec
1 parent 979aaf2
commit ea12fec
Show file tree

Hide file tree

Showing 10 changed files with 59 additions and 39 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -21,7 +21,7 @@ Description: EQ-5D is a popular health related quality of life instrument used
     index scores from a subject's dimension scores. 32 TTO and 11 VAS EQ-5D-3L
     value sets including those for countries in Szende et al (2007) 
     <doi:10.1007/1-4020-5511-0> and Szende et al (2014) 
-    <doi:10.1007/978-94-007-7596-1>, 44 EQ-5D-5L EQ-VT value sets, the 
+    <doi:10.1007/978-94-007-7596-1>, 45 EQ-5D-5L EQ-VT value sets, the 
     EQ-5D-5L crosswalk value sets developed by van Hout et al. (2012) 
     <doi:10.1016/j.jval.2012.02.008>, the crosswalk value sets for Bermuda, Jordan and 
     Russia and the reverse crosswalk value sets. 10 EQ-5D-Y value sets are also 

diff --git a/NEWS.Rmd b/NEWS.Rmd
@@ -8,6 +8,10 @@ output: github_document
 knitr::opts_chunk$set(echo = TRUE)
 ```
 
+# eq5d (development version)
+
+- Norwegian EQ-5D-5L value set added.
+
 # eq5d 0.15.5 (2024-11-19)
 
 - Ghana EQ-5D-5L value set added.

diff --git a/NEWS.md b/NEWS.md
@@ -1,6 +1,10 @@
 
 <!-- NEWS.md is generated from NEWS.Rmd. Please edit that file -->
 
+# eq5d (development version)
+
+- Norwegian EQ-5D-5L value set added.
+
 # eq5d 0.15.5 (2024-11-19)
 
 - Ghana EQ-5D-5L value set added.

diff --git a/R/data.R b/R/data.R
@@ -194,6 +194,7 @@
 #' \item{\strong{Mexico}: Gutierrez-Delgado C, Galindo-Suárez RM, Cruz-Santiago C, Shah K, Papadimitropoulos M, Feng Y, Zamora B, Devlin N. EQ-5D-5L Health-State Values for the Mexican Population. Appl Health Econ Health Policy. 2021 Nov;19(6):905-914. \doi{10.1007/s40258-021-00658-0}. Epub 2021 Jun 26. PMID: 34173957.}
 #' \item{\strong{Netherlands}: Versteegh MM, Vermeulen KM, Evers SM, de Wit GA, Prenger R, Stolk EA. Dutch Tariff for the Five-Level Version of EQ-5D. Value in Health. 2016 Jun;19(4):343-52.  \doi{10.1016/j.jval.2016.01.003}. PMID: 27325326.}
 #' \item{\strong{New Zealand}: Sullivan T, Hansen P, Ombler F, Derrett S, Devlin N. A new tool for creating personal and social EQ-5D-5L value sets, including valuing 'dead'. Soc Sci Med. 2020 Feb;246:112707. \doi{10.1016/j.socscimed.2019.112707}. Epub 2019 Nov 30. PMID: 31945596.}
+#' \item{\strong{Norway}: Garratt AM, Stavem K, Shaw JW, Rand K. EQ-5D-5L value set for Norway: a hybrid model using cTTO and DCE data. Qual Life Res. 2024 Nov 20. \doi{10.1007/s11136-024-03837-3}. Epub ahead of print. PMID: 39565555.}
 #' \item{\strong{Peru} Augustovski F, Belizán M, Gibbons L, Reyes N, Stolk E, Craig BM, Tejada RA. Peruvian Valuation of the EQ-5D-5L: A Direct Comparison of Time Trade-Off and Discrete Choice Experiments. Value Health. 2020;23(7):880-888. \doi{10.1016/j.jval.2020.05.004}. PMID: 32762989.}
 #' \item{\strong{Philippines} Miguel RTD, Rivera AS, Cheng KJG, Rand K, Purba FD, Luo N, Zarsuelo MA, Genuino-Marfori AJ, Florentino-Fariñas I, Guerrero AM, Lam HY. Estimating the EQ-5D-5L value set for the Philippines. Qual Life Res. 2022 May 9. \doi{10.1007/s11136-022-03143-w}. PMID: 35532835.}
 #' \item{\strong{Poland} Golicki D, Jakubczyk M, Niewada M, Wrona W, Busschbach JJ. Valuation of EQ-5D health states in Poland: first TTO-based social value set in Central and Eastern Europe. Value Health. 2010 Mar-Apr;13(2):289-97. \doi{10.1111/j.1524-4733.2009.00596.x}. PMID: 19744296.}

diff --git a/R/sysdata.rda b/R/sysdata.rda
diff --git a/data-raw/VT.csv b/data-raw/VT.csv
diff --git a/data-raw/references.csv b/data-raw/references.csv
@@ -69,6 +69,7 @@ EQ-5D-5L,VT,Japan_DCE,27565282,10.1016/j.jval.2016.03.1834,,
 EQ-5D-5L,VT,Malaysia,30535779,10.1007/s40273-018-0758-7,,
 EQ-5D-5L,VT,Mexico,34173957,10.1007/s40258-021-00658-0,,
 EQ-5D-5L,VT,Netherlands,27325326,10.1016/j.jval.2016.01.003,,
+EQ-5D-5L,VT,Norway,39565555,10.1007/s11136-024-03837-3,,
 EQ-5D-5L,VT,NewZealand,31945596,10.1016/j.socscimed.2019.112707,,
 EQ-5D-5L,VT,Peru_cTTO,32762989,10.1016/j.jval.2020.05.004,,
 EQ-5D-5L,VT,Peru_DCE,32762989,10.1016/j.jval.2020.05.004,,

diff --git a/man/VT.Rd b/man/VT.Rd
diff --git a/man/eq5d-package.Rd b/man/eq5d-package.Rd
diff --git a/tests/testthat/test-eq5d5l.R b/tests/testthat/test-eq5d5l.R
@@ -223,6 +223,15 @@ test_that("EQ-5D-5L NewZealand gives correct answer", {
   expect_equal(eq5d5l(c(MO=5,SC=5,UA=5,PD=5,AD=5), "NewZealand"), -0.830)
 })
 
+test_that("EQ-5D-5L Norway gives correct answer", {
+  expect_equal(eq5d5l(c(MO=1,SC=1,UA=1,PD=1,AD=1), "Norway"), 1)
+  expect_equal(eq5d5l(c(MO=1,SC=5,UA=4,PD=3,AD=2), "Norway"), 0.460)
+  expect_equal(eq5d5l(c(MO=2,SC=2,UA=2,PD=2,AD=2), "Norway"), 0.779)
+  expect_equal(eq5d5l(c(MO=3,SC=3,UA=3,PD=3,AD=3), "Norway"), 0.539)
+  expect_equal(eq5d5l(c(MO=4,SC=4,UA=4,PD=4,AD=4), "Norway"), -0.126)
+  expect_equal(eq5d5l(c(MO=5,SC=5,UA=5,PD=5,AD=5), "Norway"), -0.453)
+})
+
 test_that("EQ-5D-5L Peru cTTO gives correct answer", {
   expect_equal(eq5d5l(c(MO=1,SC=1,UA=1,PD=1,AD=1), "Peru_cTTO"), 1)
   expect_equal(eq5d5l(c(MO=2,SC=2,UA=2,PD=2,AD=2), "Peru_cTTO"), 0.441)