****SF-6D Spanish Tariff ***Abellán, JM, Sanchez, FI, Martínez JE, y Méndez, I. (2012) . Lowering the Floor of the SF-6D algorithm using a lottery equivalent method. Health Economics, nº 21, 1271-1285 **Table V, OLS mean model pp.1278** *** contact: Jorge E Martinez, Dep. Applied Economics, University of Murcia (jorgemp@um.es) ***SF-36 version 2*** *** Input: 11 answers SF-36 v.2.0, numbered and coded like: sf"number of question"_"subheading question letter" (i.e. sf3_f, means third question, c letter subheading) **missing values coded as "." *** Output: SF6D health state (sf6d_s) and its utility (sf6d) using Table V, OLS mean model*** replace sf4_c=1 if sf4_c<5 replace sf4_c=2 if sf4_c==5 replace sf5_b=1 if sf5_b<5 replace sf5_b=2 if sf5_b==5 gen sf6d1=. replace sf6d1=1 if sf3_a==3 & sf3_b==3 & sf3_j==3 replace sf6d1=2 if sf3_a==2 & sf3_b==3 & sf3_j==3 replace sf6d1=2 if sf3_a==1 & sf3_b==3 & sf3_j==3 replace sf6d1=3 if sf3_b==2 & sf3_j==3 replace sf6d1=4 if sf3_b==1 & sf3_j==3 replace sf6d1=5 if sf3_j==2 replace sf6d1=6 if sf3_j==1 gen sf6d2=. replace sf6d2=1 if sf4_c==2 & sf5_b==2 replace sf6d2=2 if sf4_c==1 & sf5_b==2 replace sf6d2=3 if sf4_c==2 & sf5_b==1 replace sf6d2=4 if sf4_c==1 & sf5_b==1 gen sf6d3=. replace sf6d3=1 if sf10==5 replace sf6d3=2 if sf10==4 replace sf6d3=3 if sf10==3 replace sf6d3=4 if sf10==2 replace sf6d3=5 if sf10==1 gen sf6d4=. replace sf6d4=1 if sf7==1 & sf8==1 replace sf6d4=2 if sf7>1 & sf8==1 replace sf6d4=3 if sf8==2 & sf7>=1 replace sf6d4=4 if sf8==3 & sf7>=1 replace sf6d4=5 if sf8==4 & sf7>=1 replace sf6d4=6 if sf8==5 & sf7>=1 gen sf6d5=. replace sf6d5=1 if sf9_b==5 | sf9_f==5 replace sf6d5=2 if sf9_b==4 | sf9_f==4 replace sf6d5=3 if sf9_b==3 | sf9_f==3 replace sf6d5=4 if sf9_b==2 | sf9_f==2 replace sf6d5=5 if sf9_b==1 | sf9_f==1 gen sf6d6=. replace sf6d6=1 if sf9_e==1 replace sf6d6=2 if sf9_e==2 replace sf6d6=3 if sf9_e==3 replace sf6d6=4 if sf9_e==4 replace sf6d6=5 if sf9_e==5 /*generating desutitilies for each dimension and sf6d utility (sf6d) and sf6d description, as string, sf6d_s*/ gen dim1=. replace dim1=0 if sf6d1==1 replace dim1=-0.015 if sf6d1==2 replace dim1=-0.034 if sf6d1==3 replace dim1=-0.090 if sf6d1==4 replace dim1=-0.111 if sf6d1==5 replace dim1=-0.338 if sf6d1==6 gen dim2=. replace dim2=0 if sf6d2==1 replace dim2=-.014 if sf6d2==2 replace dim2=-.038 if sf6d2==3 replace dim2=-.070 if sf6d2==4 gen dim3=. replace dim3=0 if sf6d3==1 replace dim3=-0.037 if sf6d3==2 replace dim3=-0.060 if sf6d3==3 replace dim3=-0.203 if sf6d3==4 replace dim3=-0.208 if sf6d3==5 gen dim4=. replace dim4=0 if sf6d4==1 replace dim4=-0.018 if sf6d4==2 replace dim4=-0.034 if sf6d4==3 replace dim4=-0.198 if sf6d4==4 replace dim4=-0.202 if sf6d4==5 replace dim4=-0.318 if sf6d4==6 gen dim5=. replace dim5=0 if sf6d5==1 replace dim5=-0.066 if sf6d5==2 replace dim5=-0.078 if sf6d5==3 replace dim5=-0.096 if sf6d5==4 replace dim5=-0.224 if sf6d5==5 gen dim6=. replace dim6=0 if sf6d6==1 replace dim6=-0.058 if sf6d6==2 replace dim6=-0.121 if sf6d6==3 replace dim6=-0.157 if sf6d6==4 replace dim6=-0.199 if sf6d6==5 gen sf6d = 1 + dim1+dim2+dim3+dim4+dim5+dim6 replace sf6d=. if dim1==. | dim2==. | dim3==. | dim4==. | dim5==. | dim6==. tostring sf6d1 sf6d2 sf6d3 sf6d4 sf6d5 sf6d6, gen(sf6d1_s sf6d2_s sf6d3_s sf6d4_s sf6d5_s sf6d6_s) gen sf6d_s= sf6d1_s+ sf6d2_s+ sf6d3_s+ sf6d4_s+ sf6d5_s+ sf6d6_s