「Research Memo」の編集履歴（バックアップ）一覧はこちら

Research Memo - (2008/04/17 (木) 09:02:56) の最新版との変更点

追加された行は緑色になります。

削除された行は赤色になります。

tempz<-ifelse(x1>cutoff,0,1)

tempz<-ifelse(x1>cut1,ifelse(x2>cutoff,z1,1),z1)
tempz<-ifelse(x1<=cut1,ifelse(x2>cutoff,0,z1),z1)

**Research Tips

-[[Research Tips>http://www21.atwiki.jp/muppy/pages/23.html]]

**Demographic Variable
age gender marital education q1010 q1011 q1012 q1013 q1014

**Regional
Australia (eight states)
Canada (12 provinces)
France (22 provinces or quasiregions),
Germany (16 la¨nders)
Italy (19 regions)
Spain (eight nationalities)
Sweden (8 health counties)
UK (17 regional health authorities).

**Health System in Transition
Albania (1999) 
Albania (2002) 
Andorra (2004) 
Armenia (1996) 
Armenia (2001) 
Armenia (2006) 
Australia (2001) 
Australia (2006) 
Austria (2001) 
Austria (2006) 
Azerbaijan (1996) 
Azerbaijan (2004) 
Belgium (2000) 
Belgium (2007) 
Bosnia and Herzegovina (2002) 
Bulgaria (1999) 
Bulgaria (2003) 
Bulgaria (2007) 
Canada (2005) 
Canada HiT (1996) 
Croatia (1999) 
Croatia (2006) 
Cyprus (2004) 
Czech Republic (1996) 
Czech Republic (2000) 
Czech Republic (2005) 
Denmark (2001) 
Denmark (2007) 
Estonia (1996) 
Estonia (2000) 
Estonia (2004) 
Estonia (2008) 
Finland (1996) 
Finland (2002) 
France (2004) 
Georgia (2002) 
Germany (2000) 
Germany (2004), an updated version (2005) in German only 
Greece (1996) 
Hungary (1999) 
Hungary (2004) 
Iceland (2003) 
Israel (2003) 
Italy (2001) 
Kazakhstan (1999) 
Kazakhstan (2007) 
Kyrgyzstan (1996) 
Kyrgyzstan (2000) 
Kyrgyzstan (2005) 
Latvia (1996) 
Latvia (2001) 
Latvia (2008) 
Lithuania (1996) 
Lithuania (2000) 
Luxembourg (1999) 
Malta (1999) 
Mongolia (2007) 
Netherlands (2004) 
New Zealand (2001) 
Northern Ireland (2006) 
Norway (2000) 
Norway (2006) 
Poland (1999) 
Poland (2005) 
Portugal (1999) 
Portugal (2004) 
Portugal (2007) 
Republic of Moldova (1996) 
Republic of Moldova (2002) 
Romania (1996) 
Romania (2000) 
Russian Federation (1998) 
Russian Federation (2003) 
Slovakia (1996) 
Slovakia (2000) 
Slovakia (2004) 
Slovenia (1996) 
Slovenia (2002) 
Spain (1996) 
Spain (2000) 
Spain (2006) 
Sweden (1996) 
Sweden (2001) 
Sweden (2005) 
Switzerland (2000) 
Tajikistan (1996) 
Tajikistan (2000) 
The former Yugoslav Republic of Macedonia (2000) 
The former Yugoslav Republic of Macedonia (2006) 
Turkey (1996) 
Turkey (2002) 
Turkmenistan (1996) 
Turkmenistan (2000) 
Ukraine (2004) 
United Kingdom of Great Britain and Northern Ireland (1999) 
Uzbekistan (2001) 
Uzbekistan (2007) 
Wales (2004) 

**Evolution of Health System
tempz<-ifelse(x1>cutoff,0,1)

tempz<-ifelse(x1>cut1,ifelse(x2>cutoff,z1,1),z1)
tempz<-ifelse(x1<=cut1,ifelse(x2>cutoff,0,z1),z1)

tempz<-ifelse(x1>cut1,ifelse(x2>cut21,ifelse(x3<cut31,1,z1),z1)
tempz<-ifelse(x1>cut1,ifelse(x2<=cut21,ifelse(x3>cut32,0,z1),z1)
tempz<-ifelse(x1<=cut1,ifelse(x2>cut21,ifelse(x3<=cut33,1,z1),z1)
tempz<-ifelse(x1<=cut1,ifelse(x2<=cut21,ifelse(x3>cut34,0,z1),z1)

tempz<-ifelse(x1>cut1,ifelse(x2>cut21,ifelse(x3>cut31,ifelse(x4<=cut41,1,z1),z1),z1)
tempz<-ifelse(x1>cut1,ifelse(x2>cut21,ifelse(x3<=cut31,ifelse(x4>cut42,0,z1),z1),z1)
tempz<-ifelse(x1>cut1,ifelse(x2<=cut21,ifelse(x3>cut32,ifelse(x4<=cut43,1,z1),z1),z1)
tempz<-ifelse(x1>cut1,ifelse(x2<=cut21,ifelse(x3<=cut32,ifelse(x4>cut44,0,z1),z1),z1)
tempz<-ifelse(x1<=cut1,ifelse(x2>cut21,ifelse(x3>cut33,ifelse(x4<=cut45,1,z1),z1),z1)
tempz<-ifelse(x1<=cut1,ifelse(x2>cut21,ifelse(x3<=cut33,ifelse(x4>cut46,0,z1),z1),z1)
tempz<-ifelse(x1<=cut1,ifelse(x2<=cut21,ifelse(x3>cut34,ifelse(x4<=cut47,1,z1),z1),z1)
tempz<-ifelse(x1<=cut1,ifelse(x2<=cut21,ifelse(x3<=cut34,ifelse(x4>cut48,0,z1),z1),z1)

*Delete every other raw

Sub DeleteEveryTwoRows()
Const OPT = 0 '1 or 0
If OPT > 1 Or OPT < 0 Then Exit Sub
Application.ScreenUpdating = False
With Range("IV1:IV4000")
   .Formula = "=IF(MOD(Row(),2)= " & OPT & ",ROW(),"""")"
   .Value = .Value
   .SpecialCells(xlCellTypeConstants, xlNumbers).Select
End With
Selection.EntireRow.Delete
Range("A1").Select
Application.ScreenUpdating = True
End Sub