#R syntax code for the computation of index values with the UK value set (TTO) mydata <- read.csv("C:\\EuroQol data.csv") attach(mydata) mydata$EQ_index <- mydata$disut_total <- mydata$disut_ad <- mydata$disut_pd <- mydata$disut_ua <- mydata$disut_sc <- mydata$disut_mo <- NA mydata$disut_mo = ifelse(mobility == 1,0, ifelse(mobility == 2,0.032, ifelse(mobility == 3,0.058, ifelse(mobility == 4,0.179, ifelse(mobility == 5,0.279,NA))))) mydata$disut_sc = ifelse(selfcare == 1,0, ifelse(selfcare == 2,0.038, ifelse(selfcare == 3,0.060, ifelse(selfcare == 4,0.162, ifelse(selfcare == 5,0.206,NA))))) mydata$disut_ua = ifelse(activity == 1,0, ifelse(activity == 2,0.049, ifelse(activity == 3,0.086, ifelse(activity == 4,0.184, ifelse(activity == 5,0.212,NA))))) mydata$disut_pd = ifelse(pain == 1,0, ifelse(pain == 2,0.056, ifelse(pain == 3,0.066, ifelse(pain == 4,0.371, ifelse(pain == 5,0.479,NA))))) mydata$disut_ad = ifelse(anxiety == 1,0, ifelse(anxiety == 2,0.041, ifelse(anxiety == 3,0.126, ifelse(anxiety == 4,0.313, ifelse(anxiety == 5,0.391,NA))))) mydata$disut_total <- mydata$disut_mo + mydata$disut_sc + mydata$disut_ua + mydata$disut_pd + mydata$disut_ad mydata$EQ_index <- 1-mydata$disut_total