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

Author: fragla

DESCRIPTION

@@ -21,10 +21,10 @@ 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>, 47 EQ-5D-5L EQ-VT value sets, the 
+    <doi:10.1007/978-94-007-7596-1>, 48 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 van Hout (2021) reverse crosswalk value sets. 10 EQ-5D-Y 
+    Russia and the van Hout (2021) reverse crosswalk value sets. 11 EQ-5D-Y3L 
     value sets are also included as are the NICE 'DSU' age-sex based EQ-5D-3L 
     to EQ-5D-5L and EQ-5D-5L to EQ-5D-3L mappings. Methods are also included 
     for the analysis of EQ-5D profiles, including those from the book "Methods 

R/data.R

@@ -215,6 +215,7 @@
 #' \item{\strong{Portugal} Ferreira PL, Antunes P, Ferreira LN, Pereira LN, Ramos-Goñi JM. A hybrid modelling approach for eliciting health state preferences: the Portuguese EQ-5D-5L value set. Qual Life Res. 2019 Jun 14. \doi{10.1007/s11136-019-02226-5}. PMID: 31201730.}
 #' \item{\strong{Romania} Olariu E, Mohammed W, Oluboyede Y, Caplescu R, Niculescu-Aron IG, Paveliu MS, Vale L. EQ-5D-5L: a value set for Romania. Eur J Health Econ. 2022 Jun 10. \doi{10.1007/s10198-022-01481-7}. Epub ahead of print. PMID: 35688994.}
 #' \item{\strong{Saudi Arabia} Al-Jedai A, Almudaiheem H, Al-Salamah T, Aldosari M, Almutairi AR, Almogbel Y, AlRuthia Y, Althemery AU, Alluhidan M, Roudijk B, Purba FD, Awad N, O'jeil R. Valuation of EQ-5D-5L in the Kingdom of Saudi Arabia: A national representative study. Value Health. 2024 Feb 9:S1098-3015(24)00047-0. \doi{10.1016/j.jval.2024.01.017}. PMID: 38342365.}
+#' \item{\strong{Singapore} Luo N, Vasan Thakumar A, Cheng LJ, Yang Z, Rand K, Cheung YB, Thumboo J. Developing an EQ-5D-5L Value Set for Singapore. Pharmacoeconomics. 2025 Aug 29. \doi{10.1007/s40273-025-01519-7}. Epub ahead of print. PMID: 40880001.}
 #' \item{\strong{Slovenia} Prevolnik Rupel V, Ogorevc M. EQ-5D-5L Value Set for Slovenia. Pharmacoeconomics. 2023 Jun 21. \doi{10.1007/s40273-023-01280-9}. Epub ahead of print. PMID: 37341959.}
 #' \item{\strong{South Korea} Kim SH, Ahn J, Ock M, Shin S, Park J, Luo N, Jo MW. The EQ-5D-5L valuation study in Korea. Qual Life Res. 2016 Jul;25(7):1845-52. \doi{10.1007/s11136-015-1205-2}. PMID: 26961008.}
 #' \item{\strong{Spain}: Ramos-Goñi JM, Craig B, Oppe M, Ramallo-Fariña Y, Pinto-Prades JL, Luo N, Rivero-Arias O. Handling data quality issues to estimate the Spanish EQ-5D-5L Value Set using a hybrid interval regression approach.  Value in Health 2018 May;21(5):596-604. \doi{10.1016/j.jval.2017.10.023}. PMID: 29753358.}

R/eq5d5l.R

@@ -34,7 +34,9 @@ eq5d5l <- function(scores, country="England", digits = 3) {
               .level4Or5(scores, survey),
               .num45sq(scores, survey),
               .N4(scores,survey),
-              .N5(scores,survey))
+              .N5(scores,survey),
+              .MOAD(scores,survey),
+              .PDAD(scores,survey))
 
     return(round(sum(values, na.rm = TRUE), digits=digits))
 }
@@ -73,3 +75,15 @@ eq5d5l <- function(scores, country="England", digits = 3) {
     survey["N5"]
   }
 }
+
+.MOAD <- function(scores, survey) {
+  if(!is.na(survey["MOAD"])) {
+    (scores["MO"] - 1) * (scores["AD"] - 1) * survey["MOAD"]#-0.00694155
+  }
+}
+
+.PDAD <- function(scores, survey) {
+  if(!is.na(survey["PDAD"])) {
+    (scores["PD"] - 1) * (scores["AD"] - 1) * survey["PDAD"]
+  }
+}

R/sysdata.rda

@@ -80,6 +80,7 @@ EQ-5D-5L,VT,Poland,31161586,10.1007/s40273-019-00811-7,,
 EQ-5D-5L,VT,Portugal,31201730,10.1007/s11136-019-02226-5,,
 EQ-5D-5L,VT,Romania,35688994,10.1007/s10198-022-01481-7,,
 EQ-5D-5L,VT,SaudiArabia,38342365,10.1016/j.jval.2024.01.017,,
+EQ-5D-5L,VT,Singapore,40880001,10.1007/s40273-025-01519-7,,
 EQ-5D-5L,VT,Slovenia,37341959,10.1007/s40273-023-01280-9,,
 EQ-5D-5L,VT,SouthKorea,26961008,10.1007/s11136-015-1205-2,,
 EQ-5D-5L,VT,Spain,29753358,10.1016/j.jval.2017.10.023,,

data-raw/VT.csv

@@ -305,6 +305,18 @@ test_that("EQ-5D-5L Saudi Arabia gives correct answer", {
 
 })
 
+test_that("EQ-5D-5L Singapore gives correct answer", {
+  expect_equal(eq5d5l(c(MO=1,SC=1,UA=1,PD=1,AD=1), "Singapore"), 1)
+  expect_equal(eq5d5l(c(MO=2,SC=2,UA=2,PD=2,AD=2), "Singapore"), 0.685)
+  expect_equal(eq5d5l(c(MO=3,SC=3,UA=3,PD=3,AD=3), "Singapore"), 0.353)
+  expect_equal(eq5d5l(c(MO=4,SC=4,UA=4,PD=4,AD=4), "Singapore"), -0.624)
+  expect_equal(eq5d5l(c(MO=5,SC=5,UA=5,PD=5,AD=5), "Singapore"), -0.851)
+#  expect_equal(eq5d5l(c(MO=2,SC=2,UA=2,PD=2,AD=2), "Singapore"), 0.68506804)
+#  expect_equal(eq5d5l(c(MO=3,SC=3,UA=3,PD=3,AD=3), "Singapore"), 0.35250462)
+#  expect_equal(eq5d5l(c(MO=4,SC=4,UA=4,PD=4,AD=4), "Singapore"), -0.62399988)
+#  expect_equal(eq5d5l(c(MO=5,SC=5,UA=5,PD=5,AD=5), "Singapore"), -0.8506522)
+})
+
 test_that("EQ-5D-5L Slovenia gives correct answer", {
   expect_equal(eq5d5l(c(MO=1,SC=1,UA=1,PD=1,AD=1), "Slovenia"), 1)
   expect_equal(eq5d5l(c(MO=2,SC=2,UA=2,PD=2,AD=2), "Slovenia"), 0.764)