*----------------------------------------------- "Income Inequality in the United States: Using Tax Data to Measure Long-Term Trends" by Gerald Auten and David Splinter SAS code by David Splinter 2023 This program uses individual tax microdata to estimate consistent shares of income going to top income groups. Input data is from the paper spreadsheet using data from IRS SOI, NIPA, Piketty and Saez (2003), the Federal Reserve, the Survey of Consumer Finance, Census, and tax population data. To run the program: 1) Name folders below based on where your tax microdata files are located and output folder 2) Update tax file names to your names. They are currently puindiv&yr (1960-1978 public use files) and soi&yr (1979-2019 confidential files). Using the public use files since 1979 should give nearly the same results, but variable names need to be updated in EST_INCOME to match those files. Public use files, however, do not have unmasked TINs or state of residence and so cannot be matched to year of birth or remove non-residents, set state=1 and yob_dm1=&yr-40. 3) Uncomment macro statements at bottom of program to estimate income shares with various corrections. 4) Main output is TOTAL_INCxxx, where xxx is the income type. Breakouts of income sources and observation counts are in TOTAL_ALLxxx. ZTOTAL_INC stacks results for multiple income types. *------------------------------------------------; libname IRMF1999 '*****'; libname IRMF2000 '*****'; libname IRMF2001 '*****'; libname IRMF2002 '*****'; libname IRMF2003 '*****'; libname IRMF2004 '*****'; libname IRMF2005 '*****'; libname IRMF2006 '*****'; libname IRMF2007 '*****'; libname IRMF2008 '*****'; libname IRMF2009 '*****'; libname IRMF2010 '*****'; libname IRMF2011 '*****'; libname IRMF2012 '*****'; libname IRMF2013 '*****'; libname IRMF2014 '*****'; libname IRMF2015 '*****'; libname IRMF2016 '*****'; libname IRMF2017 '*****'; libname IRMF2018 '*****'; libname IRMF2019 '*****'; libname IRMF2020 '*****'; libname indiv '*****'; libname house '*****'; options linesize=200; options compress=yes; options NOSYMBOLGEN; OPTIONS NOSOURCE2; OPTIONS NOSOURCE; %let lowest=0; %let highest=0; %let cg=25; %let pc=50; %let u = _; * Define employer tax rate constants (see footnotes for adjustments http://www.ssa.gov/oact/progdata/taxRates.html), employee rates were lower in 2011 and 2012 and lower in 1984; %let OASDI1960 = 0.0300; %let OASDI1961 = 0.0300; %let OASDI1962 = 0.03125; %let OASDI1963 = 0.03625; %let OASDI1964 = 0.03625; %let OASDI1965 = 0.03625; %let OASDI1966 = 0.0385; %let OASDI1967 = 0.0390; %let OASDI1968 = 0.0380; %let OASDI1969 = 0.0420; %let OASDI1970 = 0.0420; %let OASDI1971 = 0.0460; %let OASDI1972 = 0.0460; %let OASDI1973 = 0.0485; %let OASDI1974 = 0.0495; %let OASDI1975 = 0.0495; %let OASDI1976 = 0.0495; %let OASDI1977 = 0.0495; %let OASDI1978 = 0.0505; %let OASDI1979 = 0.0508; %let OASDI1980 = 0.0508; %let OASDI1981 = 0.0535; %let OASDI1982 = 0.0540; %let OASDI1983 = 0.0540; %let OASDI1984 = 0.057; %let OASDI1985 = 0.057; %let OASDI1986 = 0.057; %let OASDI1987 = 0.057; %let OASDI1988 = 0.0606; %let OASDI1989 = 0.0606; %let OASDI1990 = 0.062; %let OASDI1991 = 0.062; %let OASDI1992 = 0.062; %let OASDI1993 = 0.062; %let OASDI1994 = 0.062; %let OASDI1995 = 0.062; %let OASDI1996 = 0.062; %let OASDI1997 = 0.062; %let OASDI1998 = 0.062; %let OASDI1999 = 0.062; %let OASDI2000 = 0.062; %let OASDI2001 = 0.062; %let OASDI2002 = 0.062; %let OASDI2003 = 0.062; %let OASDI2004 = 0.062; %let OASDI2005 = 0.062; %let OASDI2006 = 0.062; %let OASDI2007 = 0.062; %let OASDI2008 = 0.062; %let OASDI2009 = 0.062; %let OASDI2010 = 0.062; %let OASDI2011 = 0.062; %let OASDI2012 = 0.062; %let OASDI2013 = 0.062; %let OASDI2014 = 0.062; %let OASDI2015 = 0.062; %let OASDI2016 = 0.062; %let OASDI2017 = 0.062; %let OASDI2018 = 0.062; %let OASDI2019 = 0.062; %let OASDI2020 = 0.062; * 2011 and 2012 tax holiday was statutorily on employee portion, but assume equal split here; %let HI1960 = 0.0000; %let HI1961 = 0.0000; %let HI1962 = 0.0000; %let HI1963 = 0.0000; %let HI1964 = 0.0000; %let HI1965 = 0.0000; %let HI1966 = 0.0035; %let HI1967 = 0.0050; %let HI1968 = 0.0060; %let HI1969 = 0.0060; %let HI1970 = 0.0060; %let HI1971 = 0.0060; %let HI1972 = 0.0060; %let HI1973 = 0.0100; %let HI1974 = 0.0090; %let HI1975 = 0.0090; %let HI1976 = 0.0090; %let HI1977 = 0.0090; %let HI1978 = 0.0100; %let HI1979 = 0.0105; %let HI1980 = 0.0105; %let HI1981 = 0.0130; %let HI1982 = 0.0130; %let HI1983 = 0.0130; %let HI1984 = 0.0130; %let HI1985 = 0.0135; %let HI1986 = 0.0145; %let HI1987 = 0.0145; %let HI1988 = 0.0145; %let HI1989 = 0.0145; %let HI1990 = 0.0145; %let HI1991 = 0.0145; %let HI1992 = 0.0145; %let HI1993 = 0.0145; %let HI1994 = 0.0145; %let HI1995 = 0.0145; %let HI1996 = 0.0145; %let HI1997 = 0.0145; %let HI1998 = 0.0145; %let HI1999 = 0.0145; %let HI2000 = 0.0145; %let HI2001 = 0.0145; %let HI2002 = 0.0145; %let HI2003 = 0.0145; %let HI2004 = 0.0145; %let HI2005 = 0.0145; %let HI2006 = 0.0145; %let HI2007 = 0.0145; %let HI2008 = 0.0145; %let HI2009 = 0.0145; %let HI2010 = 0.0145; %let HI2011 = 0.0145; %let HI2012 = 0.0145; %let HI2013 = 0.0145; %let HI2014 = 0.0145; %let HI2015 = 0.0145; %let HI2016 = 0.0145; %let HI2017 = 0.0145; %let HI2018 = 0.0145; %let HI2019 = 0.0145; %let HI2020 = 0.0145; * Define tax rate bases: Medicare Hospital Insurance (HI) program, the taxable maximum was the same as that for the OASDI program for 1966-1990. Separate HI taxable maximums of $125,000, $130,200, and $135,000 were applicable in 1991-93, respectively. After 1993, there has been no limitation on HI-taxable earnings. http://www.ssa.gov/oact/COLA/cbb.html#Series ; %let OASDI_CAP1960 = 4800; %let OASDI_CAP1961 = 4800; %let OASDI_CAP1962 = 4800; %let OASDI_CAP1963 = 4800; %let OASDI_CAP1964 = 4800; %let OASDI_CAP1965 = 4800; %let OASDI_CAP1966 = 6600; %let OASDI_CAP1967 = 6600; %let OASDI_CAP1968 = 7800; %let OASDI_CAP1969 = 7800; %let OASDI_CAP1970 = 7800; %let OASDI_CAP1971 = 7800; %let OASDI_CAP1972 = 9000; %let OASDI_CAP1973 = 10800; %let OASDI_CAP1974 = 13200; %let OASDI_CAP1975 = 14100; %let OASDI_CAP1976 = 15300; %let OASDI_CAP1977 = 16500; %let OASDI_CAP1978 = 17700; %let OASDI_CAP1979 = 22900; %let OASDI_CAP1980 = 25900; %let OASDI_CAP1981 = 29700; %let OASDI_CAP1982 = 32400; %let OASDI_CAP1983 = 35700; %let OASDI_CAP1984 = 37800; %let OASDI_CAP1985 = 39600; %let OASDI_CAP1986 = 42000; %let OASDI_CAP1987 = 43800; %let OASDI_CAP1988 = 45000; %let OASDI_CAP1989 = 48000; %let OASDI_CAP1990 = 51300; %let OASDI_CAP1991 = 53400; %let OASDI_CAP1992 = 55500; %let OASDI_CAP1993 = 57600; %let OASDI_CAP1994 = 60600; %let OASDI_CAP1995 = 61200; %let OASDI_CAP1996 = 62700; %let OASDI_CAP1997 = 65400; %let OASDI_CAP1998 = 68400; %let OASDI_CAP1999 = 72600; %let OASDI_CAP2000 = 76200; %let OASDI_CAP2001 = 80400; %let OASDI_CAP2002 = 84900; %let OASDI_CAP2003 = 87000; %let OASDI_CAP2004 = 87900; %let OASDI_CAP2005 = 90000; %let OASDI_CAP2006 = 94200; %let OASDI_CAP2007 = 97500; %let OASDI_CAP2008 = 102000; %let OASDI_CAP2009 = 106800; %let OASDI_CAP2010 = 106800; %let OASDI_CAP2011 = 106800; %let OASDI_CAP2012 = 110100; %let OASDI_CAP2013 = 113700; %let OASDI_CAP2014 = 117000; %let OASDI_CAP2015 = 118500; %let OASDI_CAP2016 = 118500; %let OASDI_CAP2017 = 127200; %let OASDI_CAP2018 = 128400; %let OASDI_CAP2019 = 132900; %let OASDI_CAP2020 = 137700; %let OASDI_CAP2021 = 142800; %let HI_CAP1960 = 4800; %let HI_CAP1961 = 4800; %let HI_CAP1962 = 4800; %let HI_CAP1963 = 4800; %let HI_CAP1964 = 4800; %let HI_CAP1965 = 4800; %let HI_CAP1966 = 6600; %let HI_CAP1967 = 6600; %let HI_CAP1968 = 7800; %let HI_CAP1969 = 7800; %let HI_CAP1970 = 7800; %let HI_CAP1971 = 7800; %let HI_CAP1972 = 9000; %let HI_CAP1973 = 10800; %let HI_CAP1974 = 13200; %let HI_CAP1975 = 14100; %let HI_CAP1976 = 15300; %let HI_CAP1977 = 16500; %let HI_CAP1978 = 17700; %let HI_CAP1979 = 22900; %let HI_CAP1980 = 25900; %let HI_CAP1981 = 29700; %let HI_CAP1982 = 32400; %let HI_CAP1983 = 35700; %let HI_CAP1984 = 37800; %let HI_CAP1985 = 39600; %let HI_CAP1986 = 42000; %let HI_CAP1987 = 43800; %let HI_CAP1988 = 45000; %let HI_CAP1989 = 48000; %let HI_CAP1990 = 51300; %let HI_CAP1991 = 125000; %let HI_CAP1992 = 130200; %let HI_CAP1993 = 135000; %let HI_CAP1994 = 9999999999999; %let HI_CAP1995 = 9999999999999; %let HI_CAP1996 = 9999999999999; %let HI_CAP1997 = 9999999999999; %let HI_CAP1998 = 9999999999999; %let HI_CAP1999 = 9999999999999; %let HI_CAP2000 = 9999999999999; %let HI_CAP2001 = 9999999999999; %let HI_CAP2002 = 9999999999999; %let HI_CAP2003 = 9999999999999; %let HI_CAP2004 = 9999999999999; %let HI_CAP2005 = 9999999999999; %let HI_CAP2006 = 9999999999999; %let HI_CAP2007 = 9999999999999; %let HI_CAP2008 = 9999999999999; %let HI_CAP2009 = 9999999999999; %let HI_CAP2010 = 9999999999999; %let HI_CAP2011 = 9999999999999; %let HI_CAP2012 = 9999999999999; %let HI_CAP2013 = 9999999999999; %let HI_CAP2014 = 9999999999999; %let HI_CAP2015 = 9999999999999; %let HI_CAP2016 = 9999999999999; %let HI_CAP2017 = 9999999999999; %let HI_CAP2018 = 9999999999999; %let HI_CAP2019 = 9999999999999; %let HI_CAP2020 = 9999999999999; * CPI-U (BEA); %let cpi1937 = 14.4; %let cpi1938 = 14.1; %let cpi1939 = 13.9; %let cpi1940 = 14.0; %let cpi1941 = 14.7; %let cpi1942 = 16.3; %let cpi1943 = 17.3; %let cpi1944 = 17.6; %let cpi1945 = 18.0; %let cpi1946 = 19.5; %let cpi1947 = 22.3; %let cpi1948 = 24.1; %let cpi1949 = 23.8; %let cpi1950 = 24.1; %let cpi1951 = 26.0; %let cpi1952 = 26.5; %let cpi1953 = 26.7; %let cpi1954 = 26.9; %let cpi1955 = 26.8; %let cpi1956 = 27.2; %let cpi1957 = 28.1; %let cpi1958 = 28.9; %let cpi1959 = 29.1; %let cpi1960 = 29.6; %let cpi1961 = 29.9; %let cpi1962 = 30.2; %let cpi1963 = 30.6; %let cpi1964 = 31.0; %let cpi1965 = 31.5; %let cpi1966 = 32.4; %let cpi1967 = 33.4; %let cpi1968 = 34.8; %let cpi1969 = 36.7; %let cpi1970 = 38.8; %let cpi1971 = 40.5; %let cpi1972 = 41.8; %let cpi1973 = 44.4; %let cpi1974 = 49.3; %let cpi1975 = 53.8; %let cpi1976 = 56.9; %let cpi1977 = 60.6; %let cpi1978 = 65.2; %let cpi1979 = 72.6; %let cpi1980 = 82.4; %let cpi1981 = 90.9; %let cpi1982 = 96.5; %let cpi1983 = 99.6; %let cpi1984 = 103.9; %let cpi1985 = 107.6; %let cpi1986 = 109.6; %let cpi1987 = 113.6; %let cpi1988 = 118.3; %let cpi1989 = 124.0; %let cpi1990 = 130.7; %let cpi1991 = 136.2; %let cpi1992 = 140.3; %let cpi1993 = 144.5; %let cpi1994 = 148.2; %let cpi1995 = 152.4; %let cpi1996 = 156.9; %let cpi1997 = 160.5; %let cpi1998 = 163.0; %let cpi1999 = 166.6; %let cpi2000 = 172.2; %let cpi2001 = 177.1; %let cpi2002 = 179.9; %let cpi2003 = 184.0; %let cpi2004 = 188.9; %let cpi2005 = 195.3; %let cpi2006 = 201.6; %let cpi2007 = 207.3; %let cpi2008 = 215.303; %let cpi2009 = 214.537; %let cpi2010 = 218.056; %let cpi2011 = 224.939; %let cpi2012 = 229.594; %let cpi2013 = 232.957; %let cpi2014 = 236.736; %let cpi2015 = 237.017; %let cpi2016 = 240.008; %let cpi2017 = 245.120; %let cpi2018 = 251.107; %let cpi2019 = 255.657; %let cpi2020 = 256.4; * SSA average wage index: https://www.ssa.gov/oact/cola/AWI.html; %let sswg1960=4007; %let sswg1961=4087; %let sswg1962=4291; %let sswg1963=4397; %let sswg1964=4576; %let sswg1965=4659; %let sswg1966=4938; %let sswg1967=5213; %let sswg1968=5572; %let sswg1969=5894; %let sswg1970=6186; %let sswg1971=6497; %let sswg1972=7134; %let sswg1973=7580; %let sswg1974=8031; %let sswg1975=8631; %let sswg1976=9226; %let sswg1977=9779; %let sswg1978=10556; %let sswg1979=11479; %let sswg1980=12513; %let sswg1981=13773; %let sswg1982=14531; %let sswg1983=15239; %let sswg1984=16135; %let sswg1985=16823; %let sswg1986=17322; %let sswg1987=18427; %let sswg1988=19334; %let sswg1989=20100; %let sswg1990=21028; %let sswg1991=21812; %let sswg1992=22935; %let sswg1993=23133; %let sswg1994=23754; %let sswg1995=24706; %let sswg1996=25914; %let sswg1997=27426; %let sswg1998=28861; %let sswg1999=30470; %let sswg2000=32155; %let sswg2001=32922; %let sswg2002=33252; %let sswg2003=34065; %let sswg2004=35649; %let sswg2005=36953; %let sswg2006=38651; %let sswg2007=40405; %let sswg2008=41335; %let sswg2009=40712; %let sswg2010=41674; %let sswg2011=42980; %let sswg2012=44322; %let sswg2013=44888; %let sswg2014=46482; %let sswg2015=48099; %let sswg2016=48642; %let sswg2017=50322; %let sswg2018=52146; %let sswg2019=54100; %let sswg2020=56805; * Generally, see online data, tab program inputs, for following macro variable sources; * NIPA based Corp data (1960 state tax removes fiduciary amount); %let totcorpNIPA1960=18532; %let ni1960=478899; %let totctaxNIPA1960=20988; %let ntint1960=1334; %let esi1960=6395; %let bpr1960=8799; %let othtx1960=0; %let sitx1960=2343; %let otx1960=28309; %let subtr1960=596; %let npgv1960=1680; %let fed1960=897; %let retadj1960=12866; %let mid1960=7048; %let totcorpNIPA1961=19154; %let ni1961=496040; %let totctaxNIPA1961=21516; %let ntint1961=0; %let esi1961=0; %let bpr1961=9359; %let othtx1961=0; %let sitx1961=2603; %let otx1961=29388; %let subtr1961=-113; %let npgv1961=846; %let fed1961=687; %let retadj1961=0; %let mid1961=7713; %let totcorpNIPA1962=24921; %let ni1962=533949; %let totctaxNIPA1962=22497; %let ntint1962=1604; %let esi1962=7631; %let bpr1962=10036; %let othtx1962=0; %let sitx1962=2980; %let otx1962=31424; %let subtr1962=-156; %let npgv1962=1750; %let fed1962=799; %let retadj1962=11285; %let mid1962=8629; %let totcorpNIPA1963=27901; %let ni1963=565378; %let totctaxNIPA1963=24611; %let ntint1963=0; %let esi1963=0; %let bpr1963=10426; %let othtx1963=0; %let sitx1963=3198; %let otx1963=33141; %let subtr1963=295; %let npgv1963=1413; %let fed1963=880; %let retadj1963=0; %let mid1963=9348; %let totcorpNIPA1964=31359; %let ni1964=607040; %let totctaxNIPA1964=24991; %let ntint1964=1898; %let esi1964=9242; %let bpr1964=10978; %let othtx1964=0; %let sitx1964=3751; %let otx1964=35582; %let subtr1964=275; %let npgv1964=2588; %let fed1964=1582; %let retadj1964=13395; %let mid1964=10294; %let totcorpNIPA1965=38019; %let ni1965=658819; %let totctaxNIPA1965=28471; %let ntint1965=0; %let esi1965=0; %let bpr1965=11527; %let othtx1965=0; %let sitx1965=4123; %let otx1965=37522; %let subtr1965=478; %let npgv1965=1473; %let fed1965=1297; %let retadj1965=0; %let mid1965=11259; %let totcorpNIPA1966=41571; %let ni1966=718096; %let totctaxNIPA1966=30583; %let ntint1966=2237; %let esi1966=11391; %let bpr1966=11968; %let othtx1966=0; %let sitx1966=5097; %let otx1966=38676; %let subtr1966=-557; %let npgv1966=2378; %let fed1966=1649; %let retadj1966=16947; %let mid1966=12147; %let totcorpNIPA1967=39457; %let ni1967=758437; %let totctaxNIPA1967=29085; %let ntint1967=2438; %let esi1967=12466; %let bpr1967=12911; %let othtx1967=0; %let sitx1967=6112; %let otx1967=40973; %let subtr1967=-183; %let npgv1967=2472; %let fed1967=1907; %let retadj1967=18622; %let mid1967=12859; %let totcorpNIPA1968=38584; %let ni1968=830247; %let totctaxNIPA1968=34700; %let ntint1968=2735; %let esi1968=14815; %let bpr1968=14058; %let othtx1968=0; %let sitx1968=7841; %let otx1968=46511; %let subtr1968=9; %let npgv1968=2854; %let fed1968=2464; %let retadj1968=18351; %let mid1968=13946; %let totcorpNIPA1969=34200; %let ni1969=897249; %let totctaxNIPA1969=33939; %let ntint1969=3150; %let esi1969=16798; %let bpr1969=15117; %let othtx1969=0; %let sitx1969=9769; %let otx1969=51093; %let subtr1969=264; %let npgv1969=2887; %let fed1969=3019; %let retadj1969=20759; %let mid1969=15365; %let totcorpNIPA1970=27180; %let ni1970=937522; %let totctaxNIPA1970=27769; %let ntint1970=3650; %let esi1970=19481; %let bpr1970=16606; %let othtx1970=0; %let sitx1970=10903; %let otx1970=54739; %let subtr1970=-420; %let npgv1970=2045; %let fed1970=3494; %let retadj1970=21688; %let mid1970=16724; %let totcorpNIPA1971=37455; %let ni1971=1014001; %let totctaxNIPA1971=31451; %let ntint1971=4254; %let esi1971=21385; %let bpr1971=18369; %let othtx1971=0; %let sitx1971=12440; %let otx1971=60048; %let subtr1971=-518; %let npgv1971=1958; %let fed1971=3357; %let retadj1971=23955; %let mid1971=18842; %let totcorpNIPA1972=48035; %let ni1972=1119498; %let totctaxNIPA1972=35879; %let ntint1972=4897; %let esi1972=24481; %let bpr1972=19447; %let othtx1972=0; %let sitx1972=16699; %let otx1972=64701; %let subtr1972=-1857; %let npgv1972=2692; %let fed1972=3231; %let retadj1972=26876; %let mid1972=21744; %let totcorpNIPA1973=53510; %let ni1973=1253165; %let totctaxNIPA1973=41291; %let ntint1973=5496; %let esi1973=27573; %let bpr1973=20565; %let othtx1973=0; %let sitx1973=18343; %let otx1973=70865; %let subtr1973=510; %let npgv1973=2394; %let fed1973=4341; %let retadj1973=24183; %let mid1973=25287; %let totcorpNIPA1974=39701; %let ni1974=1346407; %let totctaxNIPA1974=41685; %let ntint1974=6253; %let esi1974=31627; %let bpr1974=21408; %let othtx1974=0; %let sitx1974=20351; %let otx1974=75922; %let subtr1974=3481; %let npgv1974=2961; %let fed1974=5550; %let retadj1974=23435; %let mid1974=29032; %let totcorpNIPA1975=54253; %let ni1975=1446042; %let totctaxNIPA1975=40882; %let ntint1975=7192; %let esi1975=37444; %let bpr1975=23067; %let othtx1975=0; %let sitx1975=21883; %let otx1975=81908; %let subtr1975=4542; %let npgv1975=1806; %let fed1975=5382; %let retadj1975=27090; %let mid1975=32567; %let totcorpNIPA1976=70036; %let ni1976=1609374; %let totctaxNIPA1976=53548; %let ntint1976=8132; %let esi1976=45978; %let bpr1976=24881; %let othtx1976=0; %let sitx1976=26259; %let otx1976=88141; %let subtr1976=4011; %let npgv1976=3925; %let fed1976=5870; %let retadj1976=24432; %let mid1976=37466; %let totcorpNIPA1977=86573; %let ni1977=1792840; %let totctaxNIPA1977=62567; %let ntint1977=8893; %let esi1977=55513; %let bpr1977=26646; %let othtx1977=0; %let sitx1977=29763; %let otx1977=96464; %let subtr1977=981; %let npgv1977=4585; %let fed1977=5937; %let retadj1977=25064; %let mid1977=44479; %let totcorpNIPA1978=102918; %let ni1978=2022661; %let totctaxNIPA1978=70846; %let ntint1978=9684; %let esi1978=65755; %let bpr1978=26498; %let othtx1978=0; %let sitx1978=34981; %let otx1978=107150; %let subtr1978=1439; %let npgv1978=6205; %let fed1978=7006; %let retadj1978=26141; %let mid1978=53257; %let totcorpNIPA1979=101444; %let ni1979=2240321; %let totctaxNIPA1979=71458; %let ntint1979=11206; %let esi1979=75004; %let bpr1979=26384; %let othtx1979=0; %let sitx1979=37541; %let otx1979=115698; %let subtr1979=4221; %let npgv1979=7454; %let fed1979=9279; %let retadj1979=33267; %let mid1979=64904; %let totcorpNIPA1980=72300; %let ni1980=2418625; %let totctaxNIPA1980=63778; %let ntint1980=12583; %let esi1980=85276; %let bpr1980=27806; %let othtx1980=0; %let sitx1980=41895; %let otx1980=131504; %let subtr1980=4196; %let npgv1980=8250; %let fed1980=11706; %let retadj1980=35492; %let mid1980=77627; %let totcorpNIPA1981=89399; %let ni1981=2714657; %let totctaxNIPA1981=56291; %let ntint1981=14849; %let esi1981=96979; %let bpr1981=31458; %let othtx1981=0; %let sitx1981=47188; %let otx1981=158564; %let subtr1981=5439; %let npgv1981=11194; %let fed1981=14024; %let retadj1981=33427; %let mid1981=90650; %let totcorpNIPA1982=85642; %let ni1982=2834484; %let totctaxNIPA1982=36089; %let ntint1982=17631; %let esi1982=107947; %let bpr1982=35262; %let othtx1982=0; %let sitx1982=51137; %let otx1982=155633; %let subtr1982=4300; %let npgv1982=14459; %let fed1982=15205; %let retadj1982=44785; %let mid1982=104506; %let totcorpNIPA1983=115655; %let ni1983=3051545; %let totctaxNIPA1983=52190; %let ntint1983=20992; %let esi1983=117521; %let bpr1983=38337; %let othtx1983=0; %let sitx1983=57457; %let otx1983=171404; %let subtr1983=377; %let npgv1983=17548; %let fed1983=14229; %let retadj1983=45315; %let mid1983=115071; %let totcorpNIPA1984=149543; %let ni1984=3433897; %let totctaxNIPA1984=65423; %let ntint1984=24044; %let esi1984=128185; %let bpr1984=42078; %let othtx1984=0; %let sitx1984=66566; %let otx1984=190073; %let subtr1984=8093; %let npgv1984=20977; %let fed1984=16054; %let retadj1984=42794; %let mid1984=129849; %let totcorpNIPA1985=157536; %let ni1985=3669936; %let totctaxNIPA1985=63814; %let ntint1985=27362; %let esi1985=141707; %let bpr1985=46144; %let othtx1985=0; %let sitx1985=71139; %let otx1985=200642; %let subtr1985=12700; %let npgv1985=24824; %let fed1985=17796; %let retadj1985=61112; %let mid1985=145435; %let totcorpNIPA1986=108519; %let ni1986=3831240; %let totctaxNIPA1986=74067; %let ntint1986=31171; %let esi1986=153440; %let bpr1986=51010; %let othtx1986=0; %let sitx1986=76389; %let otx1986=207215; %let subtr1986=11066; %let npgv1986=27231; %let fed1986=17804; %let retadj1986=65314; %let mid1986=160479; %let totcorpNIPA1987=123230; %let ni1987=4098493; %let totctaxNIPA1987=94963; %let ntint1987=30551; %let esi1987=166826; %let bpr1987=55112; %let othtx1987=0; %let sitx1987=84821; %let otx1987=221123; %let subtr1987=3010; %let npgv1987=27790; %let fed1987=17739; %let retadj1987=56743; %let mid1987=171605; %let totcorpNIPA1988=142906; %let ni1988=4471596; %let totctaxNIPA1988=106902; %let ntint1988=32604; %let esi1988=187905; %let bpr1988=60149; %let othtx1988=0; %let sitx1988=89384; %let otx1988=237968; %let subtr1988=3254; %let npgv1988=31579; %let fed1988=17364; %let retadj1988=37224; %let mid1988=183778; %let totcorpNIPA1989=110255; %let ni1989=4760124; %let totctaxNIPA1989=102776; %let ntint1989=37322; %let esi1989=208068; %let bpr1989=66813; %let othtx1989=0; %let sitx1989=100977; %let otx1989=249004; %let subtr1989=10838; %let npgv1989=39004; %let fed1989=21646; %let retadj1989=50837; %let mid1989=199927; %let totcorpNIPA1990=103242; %let ni1990=5013759; %let totctaxNIPA1990=98208; %let ntint1990=39999; %let esi1990=231915; %let bpr1990=72798; %let othtx1990=0; %let sitx1990=108224; %let otx1990=263457; %let subtr1990=12185; %let npgv1990=37922; %let fed1990=23608; %let retadj1990=44614; %let mid1990=214446; %let totcorpNIPA1991=133485; %let ni1991=5164358; %let totctaxNIPA1991=97035; %let ntint1991=42831; %let esi1991=252140; %let bpr1991=80678; %let othtx1991=0; %let sitx1991=110272; %let otx1991=281020; %let subtr1991=11401; %let npgv1991=37965; %let fed1991=20778; %let retadj1991=37804; %let mid1991=220132; %let totcorpNIPA1992=138967; %let ni1992=5475224; %let totctaxNIPA1992=115140; %let ntint1992=45432; %let esi1992=283743; %let bpr1992=85907; %let othtx1992=0; %let sitx1992=118852; %let otx1992=298697; %let subtr1992=9630; %let npgv1992=39103; %let fed1992=16774; %let retadj1992=51561; %let mid1992=222199; %let totcorpNIPA1993=148212; %let ni1993=5730269; %let totctaxNIPA1993=139060; %let ntint1993=46170; %let esi1993=304432; %let bpr1993=88424; %let othtx1993=0; %let sitx1993=124622; %let otx1993=315868; %let subtr1993=2708; %let npgv1993=40503; %let fed1993=15987; %let retadj1993=52842; %let mid1993=219400; %let totcorpNIPA1994=195660; %let ni1994=6114644; %let totctaxNIPA1994=152201; %let ntint1994=47907; %let esi1994=316785; %let bpr1994=95566; %let othtx1994=0; %let sitx1994=130561; %let otx1994=345879; %let subtr1994=8190; %let npgv1994=44603; %let fed1994=20470; %let retadj1994=44021; %let mid1994=223561; %let totcorpNIPA1995=229412; %let ni1995=6452310; %let totctaxNIPA1995=171060; %let ntint1995=48054; %let esi1995=311565; %let bpr1995=98424; %let othtx1995=0; %let sitx1995=139979; %let otx1995=355325; %let subtr1995=10155; %let npgv1995=50105; %let fed1995=23389; %let retadj1995=39786; %let mid1995=243938; %let totcorpNIPA1996=254500; %let ni1996=6870600; %let totctaxNIPA1996=191303; %let ntint1996=47809; %let esi1996=310906; %let bpr1996=104706; %let othtx1996=0; %let sitx1996=150491; %let otx1996=368403; %let subtr1996=17414; %let npgv1996=55630; %let fed1996=20083; %let retadj1996=36435; %let mid1996=252926; %let totcorpNIPA1997=284852; %let ni1997=7349943; %let totctaxNIPA1997=204103; %let ntint1997=48519; %let esi1997=312928; %let bpr1997=111872; %let othtx1997=0; %let sitx1997=162754; %let otx1997=388087; %let subtr1997=16251; %let npgv1997=60064; %let fed1997=20659; %let retadj1997=32509; %let mid1997=268715; %let totcorpNIPA1998=203012; %let ni1998=7825726; %let totctaxNIPA1998=195244; %let ntint1998=49719; %let esi1998=335117; %let bpr1998=117220; %let othtx1998=0; %let sitx1998=180729; %let otx1998=408466; %let subtr1998=27711; %let npgv1998=62703; %let fed1998=26561; %let retadj1998=20656; %let mid1998=280916; %let totcorpNIPA1999=234045; %let ni1999=8291452; %let totctaxNIPA1999=201976; %let ntint1999=52563; %let esi1999=361994; %let bpr1999=125007; %let othtx1999=0; %let sitx1999=192862; %let otx1999=430784; %let subtr1999=22474; %let npgv1999=59658; %let fed1999=25410; %let retadj1999=16001; %let mid1999=299645; %let totcorpNIPA2000=142905; %let ni2000=8872440; %let totctaxNIPA2000=208104; %let ntint2000=54136; %let esi2000=402691; %let bpr2000=132807; %let othtx2000=0; %let sitx2000=214305; %let otx2000=453887; %let subtr2000=39332; %let npgv2000=60022; %let fed2000=25344; %let retadj2000=8447; %let mid2000=330242; %let totcorpNIPA2001=190708; %let ni2001=9146558; %let totctaxNIPA2001=143059; %let ntint2001=55163; %let esi2001=437904; %let bpr2001=139387; %let othtx2001=0; %let sitx2001=220229; %let otx2001=459672; %let subtr2001=40517; %let npgv2001=53400; %let fed2001=27089; %let retadj2001=21501; %let mid2001=351233; %let totcorpNIPA2002=326185; %let ni2002=9394248; %let totctaxNIPA2002=136179; %let ntint2002=54010; %let esi2002=472404; %let bpr2002=150393; %let othtx2002=0; %let sitx2002=197201; %let otx2002=470817; %let subtr2002=39361; %let npgv2002=53504; %let fed2002=24495; %let retadj2002=26337; %let mid2002=352839; %let totcorpNIPA2003=386490; %let ni2003=9815765; %let totctaxNIPA2003=191741; %let ntint2003=53247; %let esi2003=525544; %let bpr2003=159538; %let othtx2003=0; %let sitx2003=200755; %let otx2003=498692; %let subtr2003=26990; %let npgv2003=51741; %let fed2003=22022; %let retadj2003=21006; %let mid2003=347353; %let totcorpNIPA2004=428647; %let ni2004=10495817; %let totctaxNIPA2004=260434; %let ntint2004=51528; %let esi2004=564631; %let bpr2004=169446; %let othtx2004=0; %let sitx2004=218930; %let otx2004=541970; %let subtr2004=35852; %let npgv2004=48907; %let fed2004=18078; %let retadj2004=19264; %let mid2004=352183; %let totcorpNIPA2005=506888; %let ni2005=11195493; %let totctaxNIPA2005=358281; %let ntint2005=57010; %let esi2005=607715; %let bpr2005=182453; %let othtx2005=0; %let sitx2005=245600; %let otx2005=591197; %let subtr2005=30819; %let npgv2005=46629; %let fed2005=21468; %let retadj2005=12314; %let mid2005=402431; %let totcorpNIPA2006=461060; %let ni2006=11942260; %let totctaxNIPA2006=401095; %let ntint2006=72110; %let esi2006=615140; %let bpr2006=195075; %let othtx2006=0; %let sitx2006=270299; %let otx2006=621878; %let subtr2006=29450; %let npgv2006=56860; %let fed2006=29052; %let retadj2006=17032; %let mid2006=462576; %let totcorpNIPA2007=287885; %let ni2007=12297296; %let totctaxNIPA2007=357184; %let ntint2007=78511; %let esi2007=634031; %let bpr2007=209965; %let othtx2007=0; %let sitx2007=289726; %let otx2007=633141; %let subtr2007=43948; %let npgv2007=60907; %let fed2007=34598; %let retadj2007=2514; %let mid2007=509947; %let totcorpNIPA2008=189628; %let ni2008=12359268; %let totctaxNIPA2008=224229; %let ntint2008=79055; %let esi2008=646916; %let bpr2008=217379; %let othtx2008=0; %let sitx2008=298884; %let otx2008=634066; %let subtr2008=61709; %let npgv2008=71282; %let fed2008=31689; %let retadj2008=-6345; %let mid2008=513519; %let totcorpNIPA2009=560803; %let ni2009=12054793; %let totctaxNIPA2009=156503; %let ntint2009=73017; %let esi2009=651656; %let bpr2009=231486; %let othtx2009=0; %let sitx2009=255490; %let otx2009=587217; %let subtr2009=68286; %let npgv2009=47445; %let fed2009=47430; %let retadj2009=-6733; %let mid2009=468178; %let totcorpNIPA2010=813256; %let ni2010=12781147; %let totctaxNIPA2010=192999; %let ntint2010=74526; %let esi2010=660741; %let bpr2010=230372; %let othtx2010=0; %let sitx2010=262899; %let otx2010=624486; %let subtr2010=72059; %let npgv2010=39913; %let fed2010=79268; %let retadj2010=-71307; %let mid2010=425426; %let totcorpNIPA2011=749912; %let ni2011=13375512; %let totctaxNIPA2011=205339; %let ntint2011=72457; %let esi2011=688171; %let bpr2011=229088; %let othtx2011=0; %let sitx2011=290738; %let otx2011=664482; %let subtr2011=71671; %let npgv2011=49395; %let fed2011=75424; %let retadj2011=-110572; %let mid2011=389966; %let totcorpNIPA2012=714144; %let ni2012=14099598; %let totctaxNIPA2012=246171; %let ntint2012=70495; %let esi2012=705672; %let bpr2012=232813; %let othtx2012=0; %let sitx2012=309433; %let otx2012=691817; %let subtr2012=39265; %let npgv2012=62384; %let fed2012=88418; %let retadj2012=-145838; %let mid2012=363122; %let totcorpNIPA2013=639063; %let ni2013=14507112; %let totctaxNIPA2013=283009; %let ntint2013=67644; %let esi2013=732096; %let bpr2013=239695; %let othtx2013=0; %let sitx2013=337774; %let otx2013=731873; %let subtr2013=49791; %let npgv2013=64336; %let fed2013=79633; %let retadj2013=-99082; %let mid2013=334288; %let totcorpNIPA2014=617073; %let ni2014=15228067; %let totctaxNIPA2014=310167; %let ntint2014=62103; %let esi2014=754754; %let bpr2014=249347; %let othtx2014=0; %let sitx2014=345566; %let otx2014=765842; %let subtr2014=74643; %let npgv2014=76525; %let fed2014=96902; %let retadj2014=-117811; %let mid2014=326882; %let totcorpNIPA2015=499318; %let ni2015=15749525; %let totctaxNIPA2015=285833; %let ntint2015=61330; %let esi2015=790351; %let bpr2015=257595; %let othtx2015=0; %let sitx2015=370391; %let otx2015=784743; %let subtr2015=98378; %let npgv2015=87805; %let fed2015=110443; %let retadj2015=-132239; %let mid2015=325755; %let totcorpNIPA2016=472117; %let ni2016=16033409; %let totctaxNIPA2016=284692; %let ntint2016=60282; %let esi2016=800836; %let bpr2016=269439; %let othtx2016=0; %let sitx2016=371813; %let otx2016=799660; %let subtr2016=105148; %let npgv2016=89981; %let fed2016=91467; %let retadj2016=-116187; %let mid2016=329637; %let totcorpNIPA2017=552460; %let ni2017=16774920; %let totctaxNIPA2017=231731; %let ntint2017=59710; %let esi2017=839856; %let bpr2017=282110; %let othtx2017=0; %let sitx2017=395792; %let otx2017=830258; %let subtr2017=89262; %let npgv2017=90462; %let fed2017=80560; %let retadj2017=-137746; %let mid2017=335275; %let totcorpNIPA2018=685020; %let ni2018=17673338; %let totctaxNIPA2018=216218; %let ntint2018=59838; %let esi2018=905373; %let bpr2018=285989; %let othtx2018=0; %let sitx2018=417838; %let otx2018=912579; %let subtr2018=94722; %let npgv2018=97813; %let fed2018=65319; %let retadj2018=-158139; %let mid2018=349699; %let totcorpNIPA2019=679202; %let ni2019=18273065; %let totctaxNIPA2019=247282; %let ntint2019=61156; %let esi2019=918291; %let bpr2019=280055; %let othtx2019=0; %let sitx2019=453253; %let otx2019=968316; %let subtr2019=89306; %let npgv2019=89600; %let fed2019=54893; %let retadj2019=-130095; %let mid2019=364672; %let totcorpNIPA2020=; %let ni2020=; %let totctaxNIPA2020=; %let ntint2020=0; %let esi2020=0; %let bpr2020=0; %let othtx2020=0; %let sitx2020=0; %let otx2020=0; %let subtr2020=0; %let npgv2020=0; %let fed2020=0; %let retadj2020=0; %let mid2020=363412; %let wtx1960=16444; %let ewtx1960=9250; %let xewtx1960=-348.784; %let comb1960=0; %let depi1960=7748.35; %let ss1960=12079; %let ui1960=3079; %let xss1960=1702.287; %let xui1960=588.117; %let cash1960=3430; %let mc1960=0; %let ncash1960=1435; %let xfitx1960=1834.233; %let xsitx1960=2536; %let xiptx1960=3856.726; %let xwtx1960=1284.767; %let vet1960=4405; %let ftx1960=41838; %let wtx1961=17005; %let ewtx1961=9611; %let xewtx1961=9611; %let comb1961=0; %let depi1961=0; %let ss1961=; %let ui1961=4401; %let xss1961=-5639.685; %let xui1961=1910.117; %let cash1961=0; %let mc1961=0; %let ncash1961=0; %let xfitx1961=42298.15; %let xsitx1961=2603.35; %let xiptx1961=8221; %let xwtx1961=17005; %let vet1961=4732; %let ftx1961=42694; %let wtx1962=19117; %let ewtx1962=11182; %let xewtx1962=11.513; %let comb1962=0; %let depi1962=9105.2; %let ss1962=15338; %let ui1962=3182; %let xss1962=2155.047; %let xui1962=583.473; %let cash1962=3818; %let mc1962=0; %let ncash1962=1977; %let xfitx1962=2269.145; %let xsitx1962=745.333; %let xiptx1962=3868.58; %let xwtx1962=705.13; %let vet1962=4528; %let ftx1962=46529; %let wtx1963=21669; %let ewtx1963=12405; %let xewtx1963=12405; %let comb1963=0; %let depi1963=0; %let ss1963=; %let ui1963=3061; %let xss1963=-7161.312; %let xui1963=462.432; %let cash1963=0; %let mc1963=0; %let ncash1963=0; %let xfitx1963=48608.9; %let xsitx1963=3432; %let xiptx1963=9819; %let xwtx1963=21669; %let vet1963=4732; %let ftx1963=49138; %let wtx1964=22387; %let ewtx1964=12631; %let xewtx1964=-177.97; %let comb1964=0; %let depi1964=9760.02; %let ss1964=17115; %let ui1964=2776; %let xss1964=3135.777; %let xui1964=491.494; %let cash1964=4256; %let mc1964=0; %let ncash1964=2562; %let xfitx1964=1918.624; %let xsitx1964=1121.64; %let xiptx1964=5184.237; %let xwtx1964=402.907; %let vet1964=4608; %let ftx1964=45985; %let wtx1965=23416; %let ewtx1965=13093; %let xewtx1965=13093; %let comb1965=0; %let depi1965=0; %let ss1965=; %let ui1965=2365; %let xss1965=-7869.477; %let xui1965=80.494; %let cash1965=0; %let mc1965=0; %let ncash1965=0; %let xfitx1965=50409; %let xsitx1965=4417; %let xiptx1965=11660; %let xwtx1965=23416; %let vet1965=4825; %let ftx1965=51068; %let wtx1966=31014; %let ewtx1966=16846; %let xewtx1966=-20.477; %let comb1966=0; %let depi1966=13837.84; %let ss1966=20988; %let ui1966=1913; %let xss1966=4553.367; %let xui1966=291.884; %let cash1966=4837; %let mc1966=1008; %let ncash1966=3960; %let xfitx1966=3912.046; %let xsitx1966=1047.126; %let xiptx1966=5230.601; %let xwtx1966=523.84; %let vet1966=4798; %let ftx1966=58602; %let wtx1967=34227; %let ewtx1967=18019; %let xewtx1967=-138.726; %let comb1967=0; %let depi1967=13963.67; %let ss1967=22430; %let ui1967=2237; %let xss1967=5507.902; %let xui1967=378.07; %let cash1967=5463; %let mc1967=4699; %let ncash1967=5411; %let xfitx1967=3149.723; %let xsitx1967=6112; %let xiptx1967=6663.646; %let xwtx1967=1260.708; %let vet1967=5512; %let ftx1967=64386; %let wtx1968=37863; %let ewtx1968=19950; %let xewtx1968=-212.858; %let comb1968=0; %let depi1968=15579.66; %let ss1968=26069; %let ui1968=2207; %let xss1968=6840.99; %let xui1968=375.556; %let cash1968=6158; %let mc1968=5890; %let ncash1968=7178; %let xfitx1968=1381.537; %let xsitx1968=7841; %let xiptx1968=7599.223; %let xwtx1968=872.395; %let vet1968=5804; %let ftx1968=76435; %let wtx1969=43213; %let ewtx1969=22753; %let xewtx1969=-146.827; %let comb1969=0; %let depi1969=16532.91; %let ss1969=27923; %let ui1969=2327; %let xss1969=7685.431; %let xui1969=415.069; %let cash1969=7179; %let mc1969=6695; %let ncash1969=8312; %let xfitx1969=7367.548; %let xsitx1969=9769; %let xiptx1969=8482.948; %let xwtx1969=699.243; %let vet1969=6537; %let ftx1969=91700; %let wtx1970=45263; %let ewtx1970=23839; %let xewtx1970=-220.936; %let comb1970=0; %let depi1970=16903.78; %let ss1970=33125; %let ui1970=4186; %let xss1970=9244.129; %let xui1970=835.402; %let cash1970=8874; %let mc1970=7254; %let ncash1970=10923; %let xfitx1970=5169.605; %let xsitx1970=10903; %let xiptx1970=9666.72; %let xwtx1970=981.179; %let vet1970=7375; %let ftx1970=88853; %let wtx1971=49874; %let ewtx1971=26446; %let xewtx1971=-480.887; %let comb1971=0; %let depi1971=17758.1; %let ss1971=38612; %let ui1971=6160; %let xss1971=12205.471; %let xui1971=1289.397; %let cash1971=10528; %let mc1971=8049; %let ncash1971=13726; %let xfitx1971=716.803; %let xsitx1971=12440; %let xiptx1971=10418.428; %let xwtx1971=-249.648; %let vet1971=8337; %let ftx1971=85803; %let wtx1972=57822; %let ewtx1972=31156; %let xewtx1972=-360.117; %let comb1972=0; %let depi1972=18279.27; %let ss1972=43102; %let ui1972=6033; %let xss1972=13521.414; %let xui1972=1266.09; %let cash1972=11598; %let mc1972=8836; %let ncash1972=15935; %let xfitx1972=8530.362; %let xsitx1972=4312.031; %let xiptx1972=10616.642; %let xwtx1972=719.252; %let vet1972=9304; %let ftx1972=102757; %let wtx1973=73946; %let ewtx1973=39783; %let xewtx1973=-37.951; %let comb1973=0; %let depi1973=16680.51; %let ss1973=53231; %let ui1973=4570; %let xss1973=17588.205; %let xui1973=897.069; %let cash1973=12150; %let mc1973=10244; %let ncash1973=18332; %let xfitx1973=634.743; %let xsitx1973=4136.826; %let xiptx1973=12074.754; %let xwtx1973=0.804; %let vet1973=10101; %let ftx1973=109581; %let wtx1974=83377; %let ewtx1974=44695; %let xewtx1974=-582.928; %let comb1974=0; %let depi1974=19962.09; %let ss1974=60404; %let ui1974=7021; %let xss1974=21032.792; %let xui1974=1481.364; %let cash1974=14916; %let mc1974=12726; %let ncash1974=22173; %let xfitx1974=1355.11; %let xsitx1974=20351; %let xiptx1974=11606.31; %let xwtx1974=-1529.894; %let vet1974=11316; %let ftx1974=126525; %let wtx1975=87392; %let ewtx1975=46723; %let xewtx1975=-982.757; %let comb1975=0; %let depi1975=21154.4; %let ss1975=69160; %let ui1975=18140; %let xss1975=20689.983; %let xui1975=4124.552; %let cash1975=17116; %let mc1975=15633; %let ncash1975=29304; %let xfitx1975=-4202.322; %let xsitx1975=5188.428; %let xiptx1975=14897.958; %let xwtx1975=-1279.83; %let vet1975=13781; %let ftx1975=120730; %let wtx1976=99274; %let ewtx1976=54398; %let xewtx1976=1032.931; %let comb1976=0; %let depi1976=23854.11; %let ss1976=78051; %let ui1976=16386; %let xss1976=23120.01; %let xui1976=3677.848; %let cash1976=19741; %let mc1976=18795; %let ncash1976=30937; %let xfitx1976=-685.717; %let xsitx1976=26259; %let xiptx1976=17495.901; %let xwtx1976=-844.994; %let vet1976=13733; %let ftx1976=141597; %let wtx1977=110847; %let ewtx1977=61104; %let xewtx1977=2623.461; %let comb1977=0; %let depi1977=25930.13; %let ss1977=87022; %let ui1977=13129; %let xss1977=27340.064; %let xui1977=2865.062; %let cash1977=20723; %let mc1977=22101; %let ncash1977=33193; %let xfitx1977=2208.239; %let xsitx1977=8185.545; %let xiptx1977=18936.876; %let xwtx1977=457.902; %let vet1977=13314; %let ftx1977=162513; %let wtx1978=128790; %let ewtx1978=71529; %let xewtx1978=842.737; %let comb1978=0; %let depi1978=30302.12; %let ss1978=95365; %let ui1978=9417; %let xss1978=28480.302; %let xui1978=1936.893; %let cash1978=21284; %let mc1978=25543; %let ncash1978=38251; %let xfitx1978=613.16; %let xsitx1978=34981; %let xiptx1978=19585.698; %let xwtx1978=-1487.481; %let vet1978=13567; %let ftx1978=189199; %let wtx1979=150030; %let ewtx1979=82587; %let xewtx1979=2021.126; %let comb1979=0; %let depi1979=42001.58; %let ss1979=106894; %let ui1979=9692; %let xss1979=30857.986; %let xui1979=1952.577; %let cash1979=22479; %let mc1979=29936; %let ncash1979=44206; %let xfitx1979=12078.366; %let xsitx1979=8375.385; %let xiptx1979=19024.383; %let xwtx1979=-186.762; %let vet1979=14127; %let ftx1979=224881; %let wtx1980=163177; %let ewtx1980=88940; %let xewtx1980=1032.401; %let comb1980=0; %let depi1980=41259.41; %let ss1980=123398; %let ui1980=16097; %let xss1980=34179.408; %let xui1980=3460.715; %let cash1980=26068; %let mc1980=36201; %let ncash1980=55098; %let xfitx1980=2430.561; %let xsitx1980=7870.817; %let xiptx1980=19434.769; %let xwtx1980=-1658.617; %let vet1980=14636; %let ftx1980=250621; %let wtx1981=191979; %let ewtx1981=103610; %let xewtx1981=376.114; %let comb1981=0; %let depi1981=41084.99; %let ss1981=143958; %let ui1981=15885; %let xss1981=37308.389; %let xui1981=3163.99; %let cash1981=27720; %let mc1981=43499; %let ncash1981=60987; %let xfitx1981=9833.237; %let xsitx1981=7903.622; %let xiptx1981=20543.694; %let xwtx1981=-3402.557; %let vet1981=15760; %let ftx1981=291165; %let wtx1982=205197; %let ewtx1982=109769; %let xewtx1982=-247.091; %let comb1982=0; %let depi1982=36060.96; %let ss1982=159479; %let ui1982=25227; %let xss1982=38702.774; %let xui1982=5131.246; %let cash1982=28277; %let mc1982=50927; %let ncash1982=62899; %let xfitx1982=19910.722; %let xsitx1982=7291.385; %let xiptx1982=22616.377; %let xwtx1982=-3766.112; %let vet1982=16270; %let ftx1982=295596; %let wtx1983=221717; %let ewtx1983=119883; %let xewtx1983=4082.237; %let comb1983=0; %let depi1983=35778.22; %let ss1983=170437; %let ui1983=26411; %let xss1983=36720.904; %let xui1983=6698.317; %let cash1983=29931; %let mc1983=57797; %let ncash1983=69498; %let xfitx1983=13688.634; %let xsitx1983=7179.052; %let xiptx1983=23728.746; %let xwtx1983=341.209; %let vet1983=16425; %let ftx1983=286774; %let wtx1984=252303; %let ewtx1984=139038; %let xewtx1984=-3476.936; %let comb1984=0; %let depi1984=37488.33; %let ss1984=179092; %let ui1984=15991; %let xss1984=38093.159; %let xui1984=2259.298; %let cash1984=31959; %let mc1984=64748; %let ncash1984=72854; %let xfitx1984=373.316; %let xsitx1984=7413.693; %let xiptx1984=24955.749; %let xwtx1984=-4361.674; %let vet1984=16265; %let ftx1984=301893; %let wtx1985=275757; %let ewtx1985=147734; %let xewtx1985=-3231.451; %let comb1985=0; %let depi1985=38010.42; %let ss1985=189486; %let ui1985=15861; %let xss1985=88139.319; %let xui1985=2199.466; %let cash1985=33811; %let mc1985=69720; %let ncash1985=77695; %let xfitx1985=9581.357; %let xsitx1985=5143.212; %let xiptx1985=25493.995; %let xwtx1985=-3157.48; %let vet1985=16539; %let ftx1985=336453; %let wtx1986=297716; %let ewtx1986=157869; %let xewtx1986=-3158.559; %let comb1986=0; %let depi1986=38576.52; %let ss1986=199982; %let ui1986=16467; %let xss1986=91632.585; %let xui1986=1752.409; %let cash1986=36802; %let mc1986=75269; %let ncash1986=83510; %let xfitx1986=-17696.394; %let xsitx1986=5163.822; %let xiptx1986=25759.331; %let xwtx1986=-2927.007; %let vet1986=16577; %let ftx1986=350601; %let wtx1987=315704; %let ewtx1987=166261; %let xewtx1987=-4017.469; %let comb1987=0; %let depi1987=41903.52; %let ss1987=207473; %let ui1987=14625; %let xss1987=92256.798; %let xui1987=1623.465; %let cash1987=38856; %let mc1987=81585; %let ncash1987=88923; %let xfitx1987=22855.341; %let xsitx1987=9693.106; %let xiptx1987=32329.331; %let xwtx1987=-4029.291; %let vet1987=16451; %let ftx1987=392987; %let wtx1988=352721; %let ewtx1988=184633; %let xewtx1988=-4943.685; %let comb1988=0; %let depi1988=43909.64; %let ss1988=220624; %let ui1988=13328; %let xss1988=97814.724; %let xui1988=883.232; %let cash1988=42849; %let mc1988=86289; %let ncash1988=97051; %let xfitx1988=-11093.875; %let xsitx1988=14914.74; %let xiptx1988=35460.102; %let xwtx1988=-5104.067; %let vet1988=16723; %let ftx1988=403845; %let wtx1989=372968; %let ewtx1989=193673; %let xewtx1989=-5314.244; %let comb1989=0; %let depi1989=47505.44; %let ss1989=234338; %let ui1989=14410; %let xss1989=102129.329; %let xui1989=1452.581; %let cash1989=47402; %let mc1989=98175; %let ncash1989=109543; %let xfitx1989=17400.102; %let xsitx1989=20428.95; %let xiptx1989=37929.926; %let xwtx1989=-4044.957; %let vet1989=17202; %let ftx1989=453095; %let wtx1990=398788; %let ewtx1990=206451; %let xewtx1990=-4856.311; %let comb1990=0; %let depi1990=46343.49; %let ss1990=251356; %let ui1990=18162; %let xss1990=63593.847; %let xui1990=1770.489; %let cash1990=52910; %let mc1990=107638; %let ncash1990=126933; %let xfitx1990=20869.631; %let xsitx1990=23515.814; %let xiptx1990=39148.351; %let xwtx1990=-2280.356; %let vet1990=17675; %let ftx1990=472109; %let wtx1991=418248; %let ewtx1991=215132; %let xewtx1991=-4168.527; %let comb1991=0; %let depi1991=40839.65; %let ss1991=271717; %let ui1991=26787; %let xss1991=63942.627; %let xui1991=2523.354; %let cash1991=59094; %let mc1991=117487; %let ncash1991=157304; %let xfitx1991=9043.012; %let xsitx1991=22682.119; %let xiptx1991=41393.518; %let xwtx1991=677.781; %let vet1991=18118; %let ftx1991=463590; %let wtx1992=440874; %let ewtx1992=228398; %let xewtx1992=-3183.336; %let comb1992=0; %let depi1992=41502.79; %let ss1992=289520; %let ui1992=39617; %let xss1992=70541.412; %let xui1992=7105.691; %let cash1992=68387; %let mc1992=132596; %let ncash1992=183024; %let xfitx1992=-5637.426; %let xsitx1992=22396.808; %let xiptx1992=41479.495; %let xwtx1992=-1621.951; %let vet1992=18606; %let ftx1992=477497; %let wtx1993=463232; %let ewtx1993=239679; %let xewtx1993=-1006.743; %let comb1993=0; %let depi1993=39403.44; %let ss1993=305760; %let ui1993=34848; %let xss1993=72049.599; %let xui1993=5971.067; %let cash1993=72334; %let mc1993=146785; %let ncash1993=199914; %let xfitx1993=-2292.013; %let xsitx1993=-764.015; %let xiptx1993=37701.944; %let xwtx1993=3065.373; %let vet1993=19294; %let ftx1993=507688; %let wtx1994=490794; %let ewtx1994=254139; %let xewtx1994=15.891; %let comb1994=0; %let depi1994=42631.59; %let ss1994=320122; %let ui1994=23942; %let xss1994=74883.663; %let xui1994=2248.202; %let cash1994=76262; %let mc1994=164423; %let ncash1994=211268; %let xfitx1994=1622.95; %let xsitx1994=26232.876; %let xiptx1994=40809.748; %let xwtx1994=2049.91; %let vet1994=19691; %let ftx1994=545082; %let wtx1995=513083; %let ewtx1995=264120; %let xewtx1995=-2179.678; %let comb1995=11646; %let depi1995=44919.95; %let ss1995=335700; %let ui1995=21734; %let xss1995=78658.902; %let xui1995=900.889; %let cash1995=82921; %let mc1995=181220; %let ncash1995=222620; %let xfitx1995=-8169.272; %let xsitx1995=27155.093; %let xiptx1995=37322.851; %let xwtx1995=2473.297; %let vet1995=20532; %let ftx1995=590297; %let wtx1996=536315; %let ewtx1996=274805; %let xewtx1996=-2113.822; %let comb1996=12146; %let depi1996=48132.76; %let ss1996=350092; %let ui1996=22274; %let xss1996=28499.357; %let xui1996=1438.219; %let cash1996=86494; %let mc1996=194868; %let ncash1996=231182; %let xfitx1996=-413.336; %let xsitx1996=27522.074; %let xiptx1996=36594.432; %let xwtx1996=3710.618; %let vet1996=21415; %let ftx1996=668410; %let wtx1997=567952; %let ewtx1997=289593; %let xewtx1997=-2572.181; %let comb1997=12646; %let depi1997=53195.52; %let ss1997=364790; %let ui1997=20103; %let xss1997=84091.727; %let xui1997=1278.738; %let cash1997=87091; %let mc1997=206917; %let ncash1997=234220; %let xfitx1997=8670.35; %let xsitx1997=27224.952; %let xiptx1997=36887.639; %let xwtx1997=4193.022; %let vet1997=22297; %let ftx1997=749822; %let wtx1998=603718; %let ewtx1998=307237; %let xewtx1998=-2050.544; %let comb1998=13146; %let depi1998=55601.73; %let ss1998=377411; %let ui1998=19693; %let xss1998=82107.106; %let xui1998=1270.397; %let cash1998=89300; %let mc1998=205558; %let ncash1998=242695; %let xfitx1998=32959.829; %let xsitx1998=414.724; %let xiptx1998=34019.32; %let xwtx1998=4711.125; %let vet1998=23258; %let ftx1998=831199; %let wtx1999=642318; %let ewtx1999=323339; %let xewtx1999=-3101.085; %let comb1999=13646; %let depi1999=60947.14; %let ss1999=388070; %let ui1999=20509; %let xss1999=167919.84; %let xui1999=1404.841; %let cash1999=92345; %let mc1999=208736; %let ncash1999=258412; %let xfitx1999=3168.222; %let xsitx1999=22790.511; %let xiptx1999=29738.85; %let xwtx1999=4540.074; %let vet1999=24130; %let ftx1999=897427; %let wtx2000=685285; %let ewtx2000=345220; %let xewtx2000=20.95; %let comb2000=13418; %let depi2000=65382.19; %let ss2000=409660; %let ui2000=20741; %let xss2000=160442.299; %let xui2000=2114.826; %let cash2000=94938; %let mc2000=219117; %let ncash2000=275426; %let xfitx2000=4743.292; %let xsitx2000=22691.956; %let xiptx2000=28100.337; %let xwtx2000=11711.204; %let vet2000=24994; %let ftx2000=999621; %let wtx2001=710433; %let ewtx2001=357987; %let xewtx2001=-3290.901; %let comb2001=14156; %let depi2001=60853.19; %let ss2001=433496; %let ui2001=31899; %let xss2001=170142.693; %let xui2001=3213.106; %let cash2001=97489; %let mc2001=242580; %let ncash2001=313779; %let xfitx2001=100827.438; %let xsitx2001=24916.265; %let xiptx2001=27023.712; %let xwtx2001=5507.044; %let vet2001=26587; %let ftx2001=996029; %let wtx2002=726430; %let ewtx2002=366043; %let xewtx2002=-1479.102; %let comb2002=13534; %let depi2002=55805.32; %let ss2002=455609; %let ui2002=53480; %let xss2002=176483.735; %let xui2002=8520.03; %let cash2002=106146; %let mc2002=259736; %let ncash2002=346520; %let xfitx2002=29847.581; %let xsitx2002=16050.116; %let xiptx2002=28064.416; %let xwtx2002=8373.052; %let vet2002=29531; %let ftx2002=832333; %let wtx2003=751881; %let ewtx2003=382544; %let xewtx2003=7337.096; %let comb2003=12912; %let depi2003=54108.24; %let ss2003=472385; %let ui2003=53175; %let xss2003=179379.324; %let xui2003=7183.203; %let cash2003=115084; %let mc2003=276708; %let ncash2003=371823; %let xfitx2003=22867.303; %let xsitx2003=18368.414; %let xiptx2003=29693.917; %let xwtx2003=16614.92; %let vet2003=31819; %let ftx2003=778631; %let wtx2004=797805; %let ewtx2004=408752; %let xewtx2004=11288.49; %let comb2004=12290; %let depi2004=56179.6; %let ss2004=494521; %let ui2004=36425; %let xss2004=180797.025; %let xui2004=1498.954; %let cash2004=121469; %let mc2004=304359; %let ncash2004=413658; %let xfitx2004=-37996.998; %let xsitx2004=17587.081; %let xiptx2004=24726.575; %let xwtx2004=22773.726; %let vet2004=34039; %let ftx2004=803019; %let wtx2005=835812; %let ewtx2005=428062; %let xewtx2005=11038.485; %let comb2005=11668; %let depi2005=58309.46; %let ss2005=521922; %let ui2005=31775; %let xss2005=186839.022; %let xui2005=1625.758; %let cash2005=130117; %let mc2005=332127; %let ncash2005=438613; %let xfitx2005=-8980.268; %let xsitx2005=19115.812; %let xiptx2005=24420.023; %let xwtx2005=24900.199; %let vet2005=36363; %let ftx2005=937217; %let wtx2006=876201; %let ewtx2006=447306; %let xewtx2006=9797.213; %let comb2006=11393; %let depi2006=61220.1; %let ss2006=553615; %let ui2006=30366; %let xss2006=134893.966; %let xui2006=1654.162; %let cash2006=133792; %let mc2006=399107; %let ncash2006=437319; %let xfitx2006=17542.6; %let xsitx2006=24959.167; %let xiptx2006=24077.598; %let xwtx2006=23040.539; %let vet2006=38830; %let ftx2006=1055847; %let wtx2007=910566; %let ewtx2007=461669; %let xewtx2007=2763.923; %let comb2007=12287; %let depi2007=64858.73; %let ss2007=585466; %let ui2007=32740; %let xss2007=135016.059; %let xui2007=1475.331; %let cash2007=139925; %let mc2007=428201; %let ncash2007=469378; %let xfitx2007=38085.5; %let xsitx2007=21888.311; %let xiptx2007=27276.758; %let xwtx2007=14830.071; %let vet2007=41625; %let ftx2007=1170901; %let wtx2008=933096; %let ewtx2008=471406; %let xewtx2008=9829.21; %let comb2008=13187; %let depi2008=62922.29; %let ss2008=615610; %let ui2008=51148; %let xss2008=83146.698; %let xui2008=-19393.759; %let cash2008=159612; %let mc2008=461613; %let ncash2008=503371; %let xfitx2008=121886.2; %let xsitx2008=29433.916; %let xiptx2008=30846.416; %let xwtx2008=31749.842; %let vet2008=44986; %let ftx2008=1176631; %let wtx2009=901902; %let ewtx2009=458098; %let xewtx2009=6999.142; %let comb2009=12066; %let depi2009=50083.57; %let ss2009=675100; %let ui2009=131211; %let xss2009=100084.269; %let xui2009=22740.987; %let cash2009=165631; %let mc2009=492951; %let ncash2009=591362; %let xfitx2009=-51487.946; %let xsitx2009=20609.298; %let xiptx2009=40823.595; %let xwtx2009=17567.562; %let vet2009=51473; %let ftx2009=866552; %let wtx2010=925234; %let ewtx2010=469000; %let xewtx2010=1141.269; %let comb2010=12900; %let depi2010=49744.32; %let ss2010=700953; %let ui2010=138857; %let xss2010=108960.443; %let xui2010=-3011.343; %let cash2010=235834; %let mc2010=513390; %let ncash2010=634504; %let xfitx2010=-61956.4; %let xsitx2010=17824.175; %let xiptx2010=36522.979; %let xwtx2010=15216.266; %let vet2010=57873; %let ftx2010=943569; %let wtx2011=851423; %let ewtx2011=492742; %let xewtx2011=8188.521; %let comb2011=12452; %let depi2011=50124.44; %let ss2011=724222; %let ui2011=107163; %let xss2011=114196.418; %let xui2011=-3542.74; %let cash2011=241969; %let mc2011=535609; %let ncash2011=638012; %let xfitx2011=66684.7; %let xsitx2011=26002.271; %let xiptx2011=37774.664; %let xwtx2011=16427.157; %let vet2011=63164; %let ftx2011=1130762; %let wtx2012=884168; %let ewtx2012=513293; %let xewtx2012=11172.495; %let comb2012=9716; %let depi2012=51122.97; %let ss2012=773549; %let ui2012=83615; %let xss2012=106134.515; %let xui2012=-5602.749; %let cash2012=190260; %let mc2012=554746; %let ncash2012=650397; %let xfitx2012=-43255.7; %let xsitx2012=28005.67; %let xiptx2012=38754.881; %let xwtx2012=16599.692; %let vet2012=70019; %let ftx2012=1166385; %let wtx2013=1031276; %let ewtx2013=526309; %let xewtx2013=5474.913; %let comb2013=7695; %let depi2013=52380.07; %let ss2013=810720; %let ui2013=62499; %let xss2013=108980.717; %let xui2013=-4539.496; %let cash2013=190959; %let mc2013=572843; %let ncash2013=669926; %let xfitx2013=37282; %let xsitx2013=34950.98; %let xiptx2013=43372.199; %let xwtx2013=14118.5; %let vet2013=78963; %let ftx2013=1302850; %let wtx2014=1076532; %let ewtx2014=546421; %let xewtx2014=4068.638; %let comb2014=5128; %let depi2014=54077.83; %let ss2014=846595; %let ui2014=35463; %let xss2014=110337.006; %let xui2014=-10629.534; %let cash2014=210352; %let mc2014=600007; %let ncash2014=722141; %let xfitx2014=-886.2; %let xsitx2014=35985.442; %let xiptx2014=45351.761; %let xwtx2014=14579.9; %let vet2014=84067; %let ftx2014=1403727; %let wtx2015=1122545; %let ewtx2015=569362; %let xewtx2015=2857.53; %let comb2015=4573; %let depi2015=57323.83; %let ss2015=884021; %let ui2015=32545; %let xss2015=106266; %let xui2015=-5068.556; %let cash2015=222329; %let mc2015=634939; %let ncash2015=768836; %let xfitx2015=43520.3; %let xsitx2015=37310.088; %let xiptx2015=44867.468; %let xwtx2015=13332.9; %let vet2015=92476; %let ftx2015=1532578; %let wtx2016=1152982; %let ewtx2016=580946; %let xewtx2016=1780.421; %let comb2016=4500; %let depi2016=59192.5; %let ss2016=908824; %let ui2016=32038; %let xss2016=92031.226; %let xui2016=-1917.645; %let cash2016=225899; %let mc2016=662108; %let ncash2016=791729; %let xfitx2016=68489.1; %let xsitx2016=35414.384; %let xiptx2016=45425.673; %let xwtx2016=19695.4; %let vet2016=96684; %let ftx2016=1547946; %let wtx2017=1201766; %let ewtx2017=604949; %let xewtx2017=-910.555; %let comb2017=5122; %let depi2017=56467.33; %let ss2017=938547; %let ui2017=30186; %let xss2017=100700.964; %let xui2017=592.383; %let cash2017=231692; %let mc2017=692547; %let ncash2017=803325; %let xfitx2017=-28142.9; %let xsitx2017=28463.51; %let xiptx2017=32191.183; %let xwtx2017=12063.1; %let vet2017=111319; %let ftx2017=1613560; %let wtx2018=1251267; %let ewtx2018=624745; %let xewtx2018=-6245.547; %let comb2018=5171; %let depi2018=56303.8; %let ss2018=985143; %let ui2018=27745; %let xss2018=102202.951; %let xui2018=1944.691; %let cash2018=243988; %let mc2018=734919; %let ncash2018=814696; %let xfitx2018=41424; %let xsitx2018=3796.011; %let xiptx2018=158744.583; %let xwtx2018=11180.5; %let vet2018=119612; %let ftx2018=1616457; %let wtx2019=1306221; %let ewtx2019=649603; %let xewtx2019=-6114.884; %let comb2019=5381; %let depi2019=57174.2; %let ss2019=1043767; %let ui2019=27590; %let xss2019=131279.14; %let xui2019=2538.091; %let cash2019=254878; %let mc2019=785703; %let ncash2019=840386; %let xfitx2019=96564.3; %let xsitx2019=4114.008; %let xiptx2019=173860.212; %let xwtx2019=15584.2; %let vet2019=130807; %let ftx2019=1708647; %let wtx2020=0; %let ewtx2020=0; %let xewtx2020=0; %let comb2020=; %let depi2020=0; %let ss2020=; %let ui2020=; %let xss2020=0; %let xui2020=0; %let cash2020=0; %let mc2020=819202; %let ncash2020=0; %let xfitx2020=0; %let xsitx2020=-210262899569; %let xiptx2020=0; %let xwtx2020=0; %let vet2020=0; %let ftx2020=0; * Corporate ownership by type for Retained Earnings distribution (tab C12) Corp tax distribution (tab C13); %let FracPenNew1960=0.043; %let FracNPGv1960=0.053; %let Fcp1960=0.532; %let Fdt1960=0.142; %let Frt1960=0.267; %let aFcp1960=0.376; %let aFdt1960=0.1; %let aFrt1960=0.188; %let aFps1960=0.291; %let FracPenNew1961=0.049; %let FracNPGv1961=0.053; %let Fcp1961=0.562; %let Fdt1961=0.124; %let Frt1961=0.252; %let aFcp1961=0.41; %let aFdt1961=0.091; %let aFrt1961=0.184; %let aFps1961=0.271; %let FracPenNew1962=0.049; %let FracNPGv1962=0.053; %let Fcp1962=0.547; %let Fdt1962=0.125; %let Frt1962=0.267; %let aFcp1962=0.394; %let aFdt1962=0.09; %let aFrt1962=0.193; %let aFps1962=0.279; %let FracPenNew1963=0.058; %let FracNPGv1963=0.055; %let Fcp1963=0.548; %let Fdt1963=0.117; %let Frt1963=0.274; %let aFcp1963=0.398; %let aFdt1963=0.085; %let aFrt1963=0.199; %let aFps1963=0.274; %let FracPenNew1964=0.061; %let FracNPGv1964=0.055; %let Fcp1964=0.566; %let Fdt1964=0.108; %let Frt1964=0.267; %let aFcp1964=0.418; %let aFdt1964=0.08; %let aFrt1964=0.198; %let aFps1964=0.261; %let FracPenNew1965=0.065; %let FracNPGv1965=0.055; %let Fcp1965=0.58; %let Fdt1965=0.099; %let Frt1965=0.263; %let aFcp1965=0.432; %let aFdt1965=0.074; %let aFrt1965=0.196; %let aFps1965=0.255; %let FracPenNew1966=0.072; %let FracNPGv1966=0.055; %let Fcp1966=0.533; %let Fdt1966=0.117; %let Frt1966=0.29; %let aFcp1966=0.387; %let aFdt1966=0.085; %let aFrt1966=0.21; %let aFps1966=0.275; %let FracPenNew1967=0.074; %let FracNPGv1967=0.056; %let Fcp1967=0.569; %let Fdt1967=0.101; %let Frt1967=0.272; %let aFcp1967=0.425; %let aFdt1967=0.075; %let aFrt1967=0.203; %let aFps1967=0.254; %let FracPenNew1968=0.076; %let FracNPGv1968=0.056; %let Fcp1968=0.593; %let Fdt1968=0.09; %let Frt1968=0.258; %let aFcp1968=0.45; %let aFdt1968=0.068; %let aFrt1968=0.196; %let aFps1968=0.241; %let FracPenNew1969=0.094; %let FracNPGv1969=0.057; %let Fcp1969=0.521; %let Fdt1969=0.12; %let Frt1969=0.297; %let aFcp1969=0.381; %let aFdt1969=0.088; %let aFrt1969=0.217; %let aFps1969=0.269; %let FracPenNew1970=0.108; %let FracNPGv1970=0.058; %let Fcp1970=0.498; %let Fdt1970=0.121; %let Frt1970=0.319; %let aFcp1970=0.36; %let aFdt1970=0.088; %let aFrt1970=0.231; %let aFps1970=0.277; %let FracPenNew1971=0.124; %let FracNPGv1971=0.058; %let Fcp1971=0.513; %let Fdt1971=0.106; %let Frt1971=0.32; %let aFcp1971=0.372; %let aFdt1971=0.077; %let aFrt1971=0.232; %let aFps1971=0.275; %let FracPenNew1972=0.126; %let FracNPGv1972=0.057; %let Fcp1972=0.54; %let Fdt1972=0.091; %let Frt1972=0.311; %let aFcp1972=0.397; %let aFdt1972=0.067; %let aFrt1972=0.229; %let aFps1972=0.264; %let FracPenNew1973=0.148; %let FracNPGv1973=0.06; %let Fcp1973=0.45; %let Fdt1973=0.117; %let Frt1973=0.371; %let aFcp1973=0.305; %let aFdt1973=0.08; %let aFrt1973=0.252; %let aFps1973=0.321; %let FracPenNew1974=0.191; %let FracNPGv1974=0.065; %let Fcp1974=0.314; %let Fdt1974=0.164; %let Frt1974=0.456; %let aFcp1974=0.193; %let aFdt1974=0.101; %let aFrt1974=0.28; %let aFps1974=0.385; %let FracPenNew1975=0.203; %let FracNPGv1975=0.063; %let Fcp1975=0.342; %let Fdt1975=0.147; %let Frt1975=0.446; %let aFcp1975=0.22; %let aFdt1975=0.095; %let aFrt1975=0.286; %let aFps1975=0.358; %let FracPenNew1976=0.192; %let FracNPGv1976=0.062; %let Fcp1976=0.373; %let Fdt1976=0.133; %let Frt1976=0.431; %let aFcp1976=0.243; %let aFdt1976=0.087; %let aFrt1976=0.28; %let aFps1976=0.35; %let FracPenNew1977=0.221; %let FracNPGv1977=0.064; %let Fcp1977=0.314; %let Fdt1977=0.141; %let Frt1977=0.482; %let aFcp1977=0.194; %let aFdt1977=0.087; %let aFrt1977=0.298; %let aFps1977=0.382; %let FracPenNew1978=0.251; %let FracNPGv1978=0.064; %let Fcp1978=0.29; %let Fdt1978=0.142; %let Frt1978=0.506; %let aFcp1978=0.175; %let aFdt1978=0.085; %let aFrt1978=0.305; %let aFps1978=0.398; %let FracPenNew1979=0.251; %let FracNPGv1979=0.063; %let Fcp1979=0.295; %let Fdt1979=0.149; %let Frt1979=0.492; %let aFcp1979=0.179; %let aFdt1979=0.09; %let aFrt1979=0.298; %let aFps1979=0.394; %let FracPenNew1980=0.242; %let FracNPGv1980=0.063; %let Fcp1980=0.327; %let Fdt1980=0.131; %let Frt1980=0.48; %let aFcp1980=0.204; %let aFdt1980=0.082; %let aFrt1980=0.299; %let aFps1980=0.377; %let FracPenNew1981=0.288; %let FracNPGv1981=0.064; %let Fcp1981=0.273; %let Fdt1981=0.137; %let Frt1981=0.529; %let aFcp1981=0.167; %let aFdt1981=0.084; %let aFrt1981=0.323; %let aFps1981=0.389; %let FracPenNew1982=0.344; %let FracNPGv1982=0.065; %let Fcp1982=0.244; %let Fdt1982=0.139; %let Frt1982=0.556; %let aFcp1982=0.156; %let aFdt1982=0.089; %let aFrt1982=0.355; %let aFps1982=0.362; %let FracPenNew1983=0.386; %let FracNPGv1983=0.067; %let Fcp1983=0.229; %let Fdt1983=0.141; %let Frt1983=0.569; %let aFcp1983=0.152; %let aFdt1983=0.093; %let aFrt1983=0.377; %let aFps1983=0.337; %let FracPenNew1984=0.455; %let FracNPGv1984=0.069; %let Fcp1984=0.177; %let Fdt1984=0.154; %let Frt1984=0.608; %let aFcp1984=0.119; %let aFdt1984=0.104; %let aFrt1984=0.41; %let aFps1984=0.326; %let FracPenNew1985=0.491; %let FracNPGv1985=0.069; %let Fcp1985=0.173; %let Fdt1985=0.156; %let Frt1985=0.609; %let aFcp1985=0.123; %let aFdt1985=0.112; %let aFrt1985=0.435; %let aFps1985=0.286; %let FracPenNew1986=0.469; %let FracNPGv1986=0.07; %let Fcp1986=0.186; %let Fdt1986=0.148; %let Frt1986=0.606; %let aFcp1986=0.137; %let aFdt1986=0.108; %let aFrt1986=0.444; %let aFps1986=0.267; %let FracPenNew1987=0.547; %let FracNPGv1987=0.075; %let Fcp1987=0.138; %let Fdt1987=0.166; %let Frt1987=0.633; %let aFcp1987=0.099; %let aFdt1987=0.119; %let aFrt1987=0.456; %let aFps1987=0.28; %let FracPenNew1988=0.505; %let FracNPGv1988=0.073; %let Fcp1988=0.156; %let Fdt1988=0.168; %let Frt1988=0.608; %let aFcp1988=0.114; %let aFdt1988=0.122; %let aFrt1988=0.443; %let aFps1988=0.271; %let FracPenNew1989=0.494; %let FracNPGv1989=0.082; %let Fcp1989=0.169; %let Fdt1989=0.158; %let Frt1989=0.603; %let aFcp1989=0.127; %let aFdt1989=0.118; %let aFrt1989=0.45; %let aFps1989=0.253; %let FracPenNew1990=0.565; %let FracNPGv1990=0.089; %let Fcp1990=0.122; %let Fdt1990=0.182; %let Frt1990=0.626; %let aFcp1990=0.091; %let aFdt1990=0.135; %let aFrt1990=0.467; %let aFps1990=0.254; %let FracPenNew1991=0.507; %let FracNPGv1991=0.066; %let Fcp1991=0.183; %let Fdt1991=0.159; %let Frt1991=0.599; %let aFcp1991=0.144; %let aFdt1991=0.125; %let aFrt1991=0.47; %let aFps1991=0.215; %let FracPenNew1992=0.493; %let FracNPGv1992=0.065; %let Fcp1992=0.197; %let Fdt1992=0.152; %let Frt1992=0.592; %let aFcp1992=0.158; %let aFdt1992=0.122; %let aFrt1992=0.475; %let aFps1992=0.197; %let FracPenNew1993=0.497; %let FracNPGv1993=0.062; %let Fcp1993=0.205; %let Fdt1993=0.143; %let Frt1993=0.593; %let aFcp1993=0.167; %let aFdt1993=0.116; %let aFrt1993=0.482; %let aFps1993=0.187; %let FracPenNew1994=0.529; %let FracNPGv1994=0.071; %let Fcp1994=0.175; %let Fdt1994=0.167; %let Frt1994=0.597; %let aFcp1994=0.142; %let aFdt1994=0.135; %let aFrt1994=0.484; %let aFps1994=0.189; %let FracPenNew1995=0.502; %let FracNPGv1995=0.068; %let Fcp1995=0.216; %let Fdt1995=0.139; %let Frt1995=0.583; %let aFcp1995=0.179; %let aFdt1995=0.115; %let aFrt1995=0.484; %let aFps1995=0.17; %let FracPenNew1996=0.503; %let FracNPGv1996=0.074; %let Fcp1996=0.223; %let Fdt1996=0.13; %let Frt1996=0.583; %let aFcp1996=0.187; %let aFdt1996=0.109; %let aFrt1996=0.49; %let aFps1996=0.16; %let FracPenNew1997=0.487; %let FracNPGv1997=0.074; %let Fcp1997=0.249; %let Fdt1997=0.109; %let Frt1997=0.578; %let aFcp1997=0.208; %let aFdt1997=0.092; %let aFrt1997=0.485; %let aFps1997=0.162; %let FracPenNew1998=0.487; %let FracNPGv1998=0.072; %let Fcp1998=0.261; %let Fdt1998=0.098; %let Frt1998=0.579; %let aFcp1998=0.219; %let aFdt1998=0.082; %let aFrt1998=0.486; %let aFps1998=0.16; %let FracPenNew1999=0.486; %let FracNPGv1999=0.065; %let Fcp1999=0.283; %let Fdt1999=0.071; %let Frt1999=0.585; %let aFcp1999=0.238; %let aFdt1999=0.059; %let aFrt1999=0.492; %let aFps1999=0.158; %let FracPenNew1999=0.486; %let FracNPGv1999=0.065; %let Fcp1999=0.283; %let Fdt1999=0.071; %let Frt1999=0.585; %let aFcp1999=0.238; %let aFdt1999=0.059; %let aFrt1999=0.492; %let aFps1999=0.158; %let FracPenNew2000=0.527; %let FracNPGv2000=0.066; %let Fcp2000=0.248; %let Fdt2000=0.074; %let Frt2000=0.614; %let aFcp2000=0.206; %let aFdt2000=0.061; %let aFrt2000=0.509; %let aFps2000=0.17; %let FracPenNew2001=0.543; %let FracNPGv2001=0.066; %let Fcp2001=0.231; %let Fdt2001=0.072; %let Frt2001=0.633; %let aFcp2001=0.19; %let aFdt2001=0.059; %let aFrt2001=0.518; %let aFps2001=0.181; %let FracPenNew2002=0.586; %let FracNPGv2002=0.066; %let Fcp2002=0.181; %let Fdt2002=0.091; %let Frt2002=0.661; %let aFcp2002=0.147; %let aFdt2002=0.074; %let aFrt2002=0.534; %let aFps2002=0.192; %let FracPenNew2003=0.561; %let FracNPGv2003=0.065; %let Fcp2003=0.215; %let Fdt2003=0.078; %let Frt2003=0.643; %let aFcp2003=0.177; %let aFdt2003=0.064; %let aFrt2003=0.528; %let aFps2003=0.178; %let FracPenNew2004=0.561; %let FracNPGv2004=0.064; %let Fcp2004=0.213; %let Fdt2004=0.096; %let Frt2004=0.619; %let aFcp2004=0.174; %let aFdt2004=0.079; %let aFrt2004=0.505; %let aFps2004=0.185; %let FracPenNew2005=0.548; %let FracNPGv2005=0.063; %let Fcp2005=0.228; %let Fdt2005=0.09; %let Frt2005=0.612; %let aFcp2005=0.185; %let aFdt2005=0.073; %let aFrt2005=0.496; %let aFps2005=0.191; %let FracPenNew2006=0.519; %let FracNPGv2006=0.063; %let Fcp2006=0.253; %let Fdt2006=0.076; %let Frt2006=0.606; %let aFcp2006=0.204; %let aFdt2006=0.061; %let aFrt2006=0.489; %let aFps2006=0.193; %let FracPenNew2007=0.536; %let FracNPGv2007=0.064; %let Fcp2007=0.237; %let Fdt2007=0.084; %let Frt2007=0.612; %let aFcp2007=0.19; %let aFdt2007=0.067; %let aFrt2007=0.49; %let aFps2007=0.2; %let FracPenNew2008=0.572; %let FracNPGv2008=0.08; %let Fcp2008=0.162; %let Fdt2008=0.13; %let Frt2008=0.631; %let aFcp2008=0.127; %let aFdt2008=0.101; %let aFrt2008=0.492; %let aFps2008=0.22; %let FracPenNew2009=0.565; %let FracNPGv2009=0.068; %let Fcp2009=0.186; %let Fdt2009=0.122; %let Frt2009=0.619; %let aFcp2009=0.152; %let aFdt2009=0.1; %let aFrt2009=0.507; %let aFps2009=0.181; %let FracPenNew2010=0.55; %let FracNPGv2010=0.066; %let Fcp2010=0.201; %let Fdt2010=0.12; %let Frt2010=0.605; %let aFcp2010=0.169; %let aFdt2010=0.1; %let aFrt2010=0.507; %let aFps2010=0.162; %let FracPenNew2011=0.559; %let FracNPGv2011=0.067; %let Fcp2011=0.185; %let Fdt2011=0.128; %let Frt2011=0.611; %let aFcp2011=0.153; %let aFdt2011=0.106; %let aFrt2011=0.508; %let aFps2011=0.169; %let FracPenNew2012=0.546; %let FracNPGv2012=0.066; %let Fcp2012=0.199; %let Fdt2012=0.119; %let Frt2012=0.608; %let aFcp2012=0.166; %let aFdt2012=0.099; %let aFrt2012=0.505; %let aFps2012=0.169; %let FracPenNew2013=0.525; %let FracNPGv2013=0.066; %let Fcp2013=0.238; %let Fdt2013=0.084; %let Frt2013=0.612; %let aFcp2013=0.197; %let aFdt2013=0.069; %let aFrt2013=0.507; %let aFps2013=0.172; %let FracPenNew2014=0.509; %let FracNPGv2014=0.067; %let Fcp2014=0.249; %let Fdt2014=0.082; %let Frt2014=0.602; %let aFcp2014=0.204; %let aFdt2014=0.067; %let aFrt2014=0.493; %let aFps2014=0.181; %let FracPenNew2015=0.513; %let FracNPGv2015=0.066; %let Fcp2015=0.245; %let Fdt2015=0.081; %let Frt2015=0.607; %let aFcp2015=0.198; %let aFdt2015=0.065; %let aFrt2015=0.491; %let aFps2015=0.192; %let FracPenNew2016=0.513; %let FracNPGv2016=0.066; %let Fcp2016=0.249; %let Fdt2016=0.073; %let Frt2016=0.614; %let aFcp2016=0.201; %let aFdt2016=0.059; %let aFrt2016=0.495; %let aFps2016=0.193; %let FracPenNew2017=0.496; %let FracNPGv2017=0.063; %let Fcp2017=0.275; %let Fdt2017=0.065; %let Frt2017=0.599; %let aFcp2017=0.223; %let aFdt2017=0.052; %let aFrt2017=0.485; %let aFps2017=0.191; %let FracPenNew2018=0.504; %let FracNPGv2018=0.07; %let Fcp2018=0.25; %let Fdt2018=0.078; %let Frt2018=0.602; %let aFcp2018=0.201; %let aFdt2018=0.063; %let aFrt2018=0.485; %let aFps2018=0.196; %let FracPenNew2019=0.479; %let FracNPGv2019=0.065; %let Fcp2019=0.279; %let Fdt2019=0.073; %let Frt2019=0.583; %let aFcp2019=0.226; %let aFdt2019=0.059; %let aFrt2019=0.472; %let aFps2019=0.191; %let FracPenNew2020=0; %let FracNPGv2020=0; %let Fcp2020=0; %let Fdt2020=0; %let Frt2020=0; %let aFcp2020=0; %let aFdt2020=0; %let aFrt2020=0; %let aFps2020=0; * Thresholds; %let at90cut1960=9424.577; %let at95cut1960=12334.722; %let at99cut1960=23931.167; %let at90cut1961=9424.577; %let at95cut1961=12334.722; %let at99cut1961=23931.167; %let at90cut1962=10187.67; %let at95cut1962=13187.504; %let at99cut1962=26055.093; %let at90cut1963=10187.67; %let at95cut1963=13187.504; %let at99cut1963=26055.093; %let at90cut1964=10995.666; %let at95cut1964=14154.034; %let at99cut1964=30451.065; %let at90cut1965=10995.666; %let at95cut1965=14154.034; %let at99cut1965=30451.065; %let at90cut1966=12386.646; %let at95cut1966=15949.873; %let at99cut1966=33560.755; %let at90cut1967=13304.597; %let at95cut1967=17169.785; %let at99cut1967=36002.919; %let at90cut1968=14034.462; %let at95cut1968=18013.171; %let at99cut1968=36105.384; %let at90cut1969=14916.686; %let at95cut1969=19216.084; %let at99cut1969=37051.831; %let at90cut1970=15699.891; %let at95cut1970=20020.313; %let at99cut1970=38272.515; %let at90cut1971=16742.127; %let at95cut1971=21283.694; %let at99cut1971=40689.214; %let at90cut1972=17550.771; %let at95cut1972=22365.744; %let at99cut1972=42797.185; %let at90cut1973=19011.196; %let at95cut1973=24881.429; %let at99cut1973=48778.353; %let at90cut1974=20049.611; %let at95cut1974=26158.276; %let at99cut1974=52431.119; %let at90cut1975=21135.968; %let at95cut1975=27147.542; %let at99cut1975=53374.974; %let at90cut1976=23236.747; %let at95cut1976=29665.494; %let at99cut1976=58255.508; %let at90cut1977=24328.439; %let at95cut1977=31265.861; %let at99cut1977=61125.115; %let at90cut1978=27452.379; %let at95cut1978=35548.409; %let at99cut1978=70628.047; %let at90cut1979=28504.493; %let at95cut1979=36809; %let at99cut1979=73906.042; %let at90cut1980=30233.051; %let at95cut1980=38551.2; %let at99cut1980=75858.878; %let at90cut1981=33141.484; %let at95cut1981=42361.892; %let at99cut1981=83653.691; %let at90cut1982=34487.847; %let at95cut1982=43527.995; %let at99cut1982=85351.975; %let at90cut1983=36666.692; %let at95cut1983=46371.272; %let at99cut1983=89045.028; %let at90cut1984=39984.943; %let at95cut1984=51234.053; %let at99cut1984=100457.875; %let at90cut1985=42804.9; %let at95cut1985=54876.918; %let at99cut1985=105471.503; %let at90cut1986=44319.439; %let at95cut1986=56020.247; %let at99cut1986=104292.055; %let at90cut1987=47689.32; %let at95cut1987=61110.047; %let at99cut1987=117559.627; %let at90cut1988=50434.95; %let at95cut1988=65991.124; %let at99cut1988=135108.256; %let at90cut1989=53015.814; %let at95cut1989=69530.55; %let at99cut1989=143158.366; %let at90cut1990=54929.537; %let at95cut1990=72051.147; %let at99cut1990=149901.474; %let at90cut1991=56939.003; %let at95cut1991=74534.98; %let at99cut1991=152417.622; %let at90cut1992=59029.032; %let at95cut1992=77329.736; %let at99cut1992=158027.196; %let at90cut1993=60969.935; %let at95cut1993=80370.508; %let at99cut1993=160830.704; %let at90cut1994=63245.018; %let at95cut1994=83905.913; %let at99cut1994=171197.974; %let at90cut1995=67198.917; %let at95cut1995=89393.311; %let at99cut1995=183206.393; %let at90cut1996=70746.251; %let at95cut1996=95152.375; %let at99cut1996=199432.717; %let at90cut1997=74064.695; %let at95cut1997=100647.18; %let at99cut1997=208701.552; %let at90cut1998=78582.74; %let at95cut1998=106314.225; %let at99cut1998=223450.355; %let at90cut1999=82393.904; %let at95cut1999=111684.454; %let at99cut1999=234580.589; %let at90cut2000=86579.303; %let at95cut2000=119429.497; %let at99cut2000=251756.583; %let at90cut2001=90556.616; %let at95cut2001=123964.156; %let at99cut2001=264463.298; %let at90cut2002=92044.792; %let at95cut2002=125128.554; %let at99cut2002=262914.6; %let at90cut2003=95617.644; %let at95cut2003=130100.81; %let at99cut2003=275071.377; %let at90cut2004=99782.547; %let at95cut2004=136256.788; %let at99cut2004=290197.329; %let at90cut2005=102351.28; %let at95cut2005=140217.534; %let at99cut2005=303498.709; %let at90cut2006=107709.621; %let at95cut2006=148901.142; %let at99cut2006=327622.427; %let at90cut2007=109862.873; %let at95cut2007=151437.967; %let at99cut2007=333511.965; %let at90cut2008=114128.617; %let at95cut2008=155846.61; %let at99cut2008=339464.8; %let at90cut2009=113132.028; %let at95cut2009=153117.829; %let at99cut2009=322133.176; %let at90cut2010=117010.086; %let at95cut2010=160047.047; %let at99cut2010=345042.281; %let at90cut2011=122804.492; %let at95cut2011=169321.436; %let at99cut2011=364459.745; %let at90cut2012=125396.626; %let at95cut2012=173266.755; %let at99cut2012=382330.852; %let at90cut2013=128379.695; %let at95cut2013=178007.599; %let at99cut2013=377296.561; %let at90cut2014=132184.551; %let at95cut2014=184099.442; %let at99cut2014=392581.226; %let at90cut2015=136515.285; %let at95cut2015=189262.744; %let at99cut2015=401483.038; %let at90cut2016=124380; %let at95cut2016=1794904; %let at99cut2016=430860; %let at90cut2017=130060; %let at95cut2017=189610; %let at99cut2017=463320; %let at90cut2018=134680; %let at95cut2018=197940; %let at99cut2018=480170; %let at90cut2019=136000; %let at95cut2019=200000; %let at99cut2019=500000; %let at90cut2020=136000; %let at95cut2020=200000; %let at99cut2020=500000; %let at999cut1960=57695; %let at999cut1961=57695; %let at999cut1962=61937; %let at999cut1963=61937; %let at999cut1964=67446; %let at999cut1965=67446; %let at999cut1966=76983; %let at999cut1967=82866; %let at999cut1968=89076; %let at999cut1969=89414; %let at999cut1970=92374; %let at999cut1971=95663; %let at999cut1972=102453; %let at999cut1973=110295; %let at999cut1974=126638; %let at999cut1975=128897; %let at999cut1976=137139; %let at999cut1977=148532; %let at999cut1978=165267; %let at999cut1979=182825; %let at999cut1980=200848; %let at999cut1981=213982; %let at999cut1982=235493; %let at999cut1983=247556; %let at999cut1984=273418; %let at999cut1985=303797; %let at999cut1986=318830; %let at999cut1987=404819; %let at999cut1988=548523; %let at999cut1989=547920; %let at999cut1990=585813; %let at999cut1991=555404; %let at999cut1992=626905; %let at999cut1993=596374; %let at999cut1994=618342; %let at999cut1995=689067; %let at999cut1996=755016; %let at999cut1997=847751; %let at999cut1998=919971; %let at999cut1999=1012754; %let at999cut2000=1119995; %let at999cut2001=1061125; %let at999cut2002=985946; %let at999cut2003=1003053; %let at999cut2004=1138074; %let at999cut2005=1302833; %let at999cut2006=1418153; %let at999cut2007=1510426; %let at999cut2008=1434971; %let at999cut2009=1223043; %let at999cut2010=1320326; %let at999cut2011=1370820; %let at999cut2012=1573190; %let at999cut2013=1450706; %let at999cut2014=1569342; %let at999cut2015=1636000; %let at999cut2016=1670000; %let at999cut2017=1700000; %let at999cut2018=1740000; %let at999cut2019=1780000; %let at999cut2020=1800000; %let depinc1960=7748.354; %let depwas1960=6567.539; %let depincap1960=413.353; %let infHH1960=-3453.682; %let infWG1960=-1726.841; %let infbus1960=-419.312; %let infgov1960=5599.835; %let depinc1961=0; %let depwas1961=0; %let depincap1961=0; %let infHH1961=0; %let infWG1961=0; %let infbus1961=0; %let infgov1961=0; %let depinc1962=9105.195; %let depwas1962=8253.816; %let depincap1962=360.249; %let infHH1962=-3024.571; %let infWG1962=-1512.285; %let infbus1962=-164.608; %let infgov1962=4701.464; %let depinc1963=0; %let depwas1963=0; %let depincap1963=0; %let infHH1963=0; %let infWG1963=0; %let infbus1963=0; %let infgov1963=0; %let depinc1964=9760.015; %let depwas1964=8796.455; %let depincap1964=422.546; %let infHH1964=-4382.393; %let infWG1964=-2191.197; %let infbus1964=-110.644; %let infgov1964=6684.234; %let depinc1965=0; %let depwas1965=0; %let depincap1965=0; %let infHH1965=0; %let infWG1965=0; %let infbus1965=0; %let infgov1965=0; %let depinc1966=13837.843; %let depwas1966=12562.56; %let depincap1966=629.297; %let infHH1966=-7998.548; %let infWG1966=-3999.274; %let infbus1966=503.999; %let infgov1966=11493.823; %let depinc1967=13963.67; %let depwas1967=12773.312; %let depincap1967=649.355; %let infHH1967=-8289.223; %let infWG1967=-4144.612; %let infbus1967=907.368; %let infgov1967=11526.467; %let depinc1968=15579.655; %let depwas1968=14390.761; %let depincap1968=747.835; %let infHH1968=-12601.793; %let infWG1968=-6300.896; %let infbus1968=1265.543; %let infgov1968=17637.146; %let depinc1969=16532.91; %let depwas1969=15256.803; %let depincap1969=761.76; %let infHH1969=-15374.202; %let infWG1969=-7687.101; %let infbus1969=3303.02; %let infgov1969=19758.284; %let depinc1970=16903.779; %let depwas1970=15683.934; %let depincap1970=578.631; %let infHH1970=-17321.187; %let infWG1970=-8660.594; %let infbus1970=4176.633; %let infgov1970=21805.147; %let depinc1971=17758.1; %let depwas1971=16270.777; %let depincap1971=940.866; %let infHH1971=-18813.274; %let infWG1971=-9406.637; %let infbus1971=4176.723; %let infgov1971=24043.188; %let depinc1972=18279.266; %let depwas1972=16696.315; %let depincap1972=1084.585; %let infHH1972=-16776.878; %let infWG1972=-8388.439; %let infbus1972=3667.1; %let infgov1972=21498.217; %let depinc1973=16680.515; %let depwas1973=14984.178; %let depincap1973=1073.769; %let infHH1973=-29675.273; %let infWG1973=-14837.636; %let infbus1973=7635.379; %let infgov1973=36877.53; %let depinc1974=19962.087; %let depwas1974=17972.619; %let depincap1974=1574.566; %let infHH1974=-49499; %let infWG1974=-24749.5; %let infbus1974=19189.5; %let infgov1974=55059; %let depinc1975=21154.403; %let depwas1975=19104.876; %let depincap1975=1367.589; %let infHH1975=-53218.7; %let infWG1975=-26609.35; %let infbus1975=17855.629; %let infgov1975=61972.421; %let depinc1976=23854.111; %let depwas1976=21595.068; %let depincap1976=1553.966; %let infHH1976=-39539.527; %let infWG1976=-19769.763; %let infbus1976=10278.34; %let infgov1976=49030.949; %let depinc1977=25930.135; %let depwas1977=23530.806; %let depincap1977=1787.239; %let infHH1977=-55750.324; %let infWG1977=-27875.162; %let infbus1977=16264.869; %let infgov1977=67360.617; %let depinc1978=30302.124; %let depwas1978=27102.498; %let depincap1978=2293.288; %let infHH1978=-61768.049; %let infWG1978=-30884.025; %let infbus1978=18385.521; %let infgov1978=74266.553; %let depinc1979=42001.581; %let depwas1979=39629.11; %let depincap1979=2086.652; %let infHH1979=-80191.987; %let infWG1979=-40095.994; %let infbus1979=26587.964; %let infgov1979=93700.017; %let depinc1980=41259.405; %let depwas1980=38197.487; %let depincap1980=3173.908; %let infHH1980=-98215.798; %let infWG1980=-49107.899; %let infbus1980=39772.185; %let infgov1980=107551.512; %let depinc1981=41084.986; %let depwas1981=37564.243; %let depincap1981=3960.05; %let infHH1981=-87999.717; %let infWG1981=-43999.858; %let infbus1981=38516.146; %let infgov1981=93483.429; %let depinc1982=36060.963; %let depwas1982=31867.967; %let depincap1982=4676.88; %let infHH1982=-63779.544; %let infWG1982=-31889.772; %let infbus1982=27449.319; %let infgov1982=68219.998; %let depinc1983=35778.218; %let depwas1983=30884.859; %let depincap1983=5204.069; %let infHH1983=-59587.248; %let infWG1983=-29793.624; %let infbus1983=24529.642; %let infgov1983=64851.23; %let depinc1984=37488.334; %let depwas1984=32337.694; %let depincap1984=4982.781; %let infHH1984=-57390.228; %let infWG1984=-28695.114; %let infbus1984=25213.913; %let infgov1984=60871.429; %let depinc1985=38010.419; %let depwas1985=32416.55; %let depincap1985=5395.409; %let infHH1985=-61555.701; %let infWG1985=-30777.85; %let infbus1985=27552.239; %let infgov1985=64781.313; %let depinc1986=38576.517; %let depwas1986=34212.975; %let depincap1986=6612.057; %let infHH1986=-48629.947; %let infWG1986=-24314.973; %let infbus1986=21565.038; %let infgov1986=51379.882; %let depinc1987=52673.317; %let depwas1987=45941.933; %let depincap1987=6227.106; %let infHH1987=-66887.689; %let infWG1987=-33443.845; %let infbus1987=29271.764; %let infgov1987=71059.769; %let depinc1988=54844.811; %let depwas1988=47308.876; %let depincap1988=6416.196; %let infHH1988=-87922.968; %let infWG1988=-43961.484; %let infbus1988=40437.545; %let infgov1988=91446.907; %let depinc1989=58814.403; %let depwas1989=51176.307; %let depincap1989=6373.763; %let infHH1989=-115136.171; %let infWG1989=-57568.085; %let infbus1989=58646.641; %let infgov1989=114057.616; %let depinc1990=57277.365; %let depwas1990=49554.574; %let depincap1990=6355.388; %let infHH1990=-117545.349; %let infWG1990=-58772.674; %let infbus1990=52786.406; %let infgov1990=123531.617; %let depinc1991=52709.394; %let depwas1991=45394.982; %let depincap1991=6101.136; %let infHH1991=-90834.677; %let infWG1991=-45417.338; %let infbus1991=28907.51; %let infgov1991=107344.505; %let depinc1992=53590.73; %let depwas1992=47549.664; %let depincap1992=5125.85; %let infHH1992=-77109.043; %let infWG1992=-38554.521; %let infbus1992=17336.182; %let infgov1992=98327.383; %let depinc1993=51198.962; %let depwas1993=45313.515; %let depincap1993=5173.994; %let infHH1993=-81369.675; %let infWG1993=-40684.838; %let infbus1993=16310.022; %let infgov1993=105744.491; %let depinc1994=55360.904; %let depwas1994=49123.674; %let depincap1994=4625.188; %let infHH1994=-61953.398; %let infWG1994=-30976.699; %let infbus1994=12330.138; %let infgov1994=80599.959; %let depinc1995=58547.493; %let depwas1995=51490.836; %let depincap1995=6249.42; %let infHH1995=-68063.363; %let infWG1995=-34031.681; %let infbus1995=11616.651; %let infgov1995=90478.394; %let depinc1996=62768.709; %let depwas1996=55338.799; %let depincap1996=7634.637; %let infHH1996=-71292.455; %let infWG1996=-35646.227; %let infbus1996=12830.931; %let infgov1996=94107.751; %let depinc1997=69474.927; %let depwas1997=61679.604; %let depincap1997=11635.052; %let infHH1997=-61218.479; %let infWG1997=-30609.24; %let infbus1997=16218.445; %let infgov1997=75609.274; %let depinc1998=72892.454; %let depwas1998=65759.96; %let depincap1998=12026.027; %let infHH1998=-33027.918; %let infWG1998=-16513.959; %let infbus1998=12283.015; %let infgov1998=37258.863; %let depinc1999=80865.268; %let depwas1999=70991.103; %let depincap1999=12018.514; %let infHH1999=-55977.168; %let infWG1999=-27988.584; %let infbus1999=22744.587; %let infgov1999=61221.166; %let depinc2000=85791.284; %let depwas2000=74570.592; %let depincap2000=14476.135; %let infHH2000=-93651.449; %let infWG2000=-46825.725; %let infbus2000=52123.31; %let infgov2000=88353.864; %let depinc2001=79976.116; %let depwas2001=72730.767; %let depincap2001=6109.279; %let infHH2001=-65002.001; %let infWG2001=-42544.394; %let infbus2001=35743.222; %let infgov2001=71803.173; %let depinc2002=75981.154; %let depwas2002=69632.728; %let depincap2002=3525.15; %let infHH2002=-29434.946; %let infWG2002=-34820.915; %let infbus2002=8331.722; %let infgov2002=55924.139; %let depinc2003=74663.286; %let depwas2003=68901.861; %let depincap2003=3339.628; %let infHH2003=-49203.663; %let infWG2003=-60973.489; %let infbus2003=4060.753; %let infgov2003=106116.399; %let depinc2004=78971.817; %let depwas2004=71952.621; %let depincap2004=4992.043; %let infHH2004=-34135.826; %let infWG2004=-74324.53; %let infbus2004=-14684.718; %let infgov2004=123145.074; %let depinc2005=81507.426; %let depwas2005=73695.686; %let depincap2005=6994.614; %let infHH2005=-85416.737; %let infWG2005=-93682.934; %let infbus2005=18197.51; %let infgov2005=160902.16; %let depinc2006=85036.854; %let depwas2006=76620.797; %let depincap2006=9045.643; %let infHH2006=-96581.613; %let infWG2006=-84554.073; %let infbus2006=45079.037; %let infgov2006=136056.649; %let depinc2007=91104.026; %let depwas2007=81374.18; %let depincap2007=11412.443; %let infHH2007=-115503.967; %let infWG2007=-82491.671; %let infbus2007=71381.156; %let infgov2007=126614.481; %let depinc2008=86813.37; %let depwas2008=78656.804; %let depincap2008=5411.301; %let infHH2008=-130700.322; %let infWG2008=-111698.968; %let infbus2008=77839.768; %let infgov2008=164559.522; %let depinc2009=74565.144; %let depwas2009=67791.195; %let depincap2009=3163.041; %let infHH2009=2002.706; %let infWG2009=2747.237; %let infbus2009=-553.867; %let infgov2009=-4196.075; %let depinc2010=75323.069; %let depwas2010=68995.767; %let depincap2010=2877.038; %let infHH2010=-59297.192; %let infWG2010=-72758.1; %let infbus2010=7337.24; %let infgov2010=124718.052; %let depinc2011=79860.949; %let depwas2011=72834.359; %let depincap2011=4561.268; %let infHH2011=-131247.065; %let infWG2011=-116512.741; %let infbus2011=16710.467; %let infgov2011=231049.339; %let depinc2012=80465.602; %let depwas2012=72977.601; %let depincap2012=5743.017; %let infHH2012=-168976.981; %let infWG2012=-116163.903; %let infbus2012=38328.384; %let infgov2012=246812.499; %let depinc2013=82688.259; %let depwas2013=75961.269; %let depincap2013=4936.295; %let infHH2013=-94755.089; %let infWG2013=-71092.658; %let infbus2013=22991.899; %let infgov2013=142855.848; %let depinc2014=86201.564; %let depwas2014=79352.296; %let depincap2014=5783.995; %let infHH2014=-134182.078; %let infWG2014=-82742.811; %let infbus2014=43102.226; %let infgov2014=173822.663; %let depinc2015=91996.351; %let depwas2015=85386.213; %let depincap2015=5948.932; %let infHH2015=-32599.172; %let infWG2015=-17771.479; %let infbus2015=12962.939; %let infgov2015=37407.712; %let depinc2016=95478.855; %let depwas2016=88770.142; %let depincap2016=4180.287; %let infHH2016=-131760.016; %let infWG2016=-68651.714; %let infbus2016=50550.327; %let infgov2016=149861.403; %let depinc2017=95043.238; %let depwas2017=88831.929; %let depincap2017=6036.414; %let infHH2017=-251074.941; %let infWG2017=-113647.713; %let infbus2017=119057.211; %let infgov2017=245665.443; %let depinc2018=99729.275; %let depwas2018=92778.859; %let depincap2018=5627.026; %let infHH2018=-286309.344; %let infWG2018=-132868.992; %let infbus2018=125342.495; %let infgov2018=293835.842; %let depinc2019=105809.715; %let depwas2019=99421.995; %let depincap2019=5497.428; %let infHH2019=-226903.818; %let infWG2019=-109138; %let infbus2019=77085.222; %let infgov2019=258956.596; %let depinc2020=0; %let depwas2020=0; %let depincap2020=0; %let infHH2020=0; %let infWG2020=0; %let infbus2020=0; %let infgov2020=0; %let wgu1960=4160.429; %let farmu1960=5807.811; %let nfu1960=7376.884; %let nfcc1960=-122; %let nfres1960=1286.911; %let rentu1960=2577.335; %let scpu1960=86.78; %let uret1960=2446.868; %let gvsur1960=19682.419; %let gvoth1960=906; %let gvcons1960=78110; %let otxx1960=21902; %let fsa1960=0; %let ftc1960=31.424; %let refcr1960=0 ; %let wgu1961=0; %let farmu1961=0; %let nfu1961=0; %let nfcc1961=0; %let nfres1961=0; %let rentu1961=0; %let scpu1961=0; %let uret1961=0; %let gvsur1961=0; %let gvoth1961=1058; %let gvcons1961=0; %let otxx1961=0; %let fsa1961=0; %let ftc1961=0; %let refcr1961=0 ; %let wgu1962=3420.312; %let farmu1962=8813.312; %let nfu1962=8806.178; %let nfcc1962=-104; %let nfres1962=2048.765; %let rentu1962=286.779; %let scpu1962=98.481; %let uret1962=2772.6; %let gvsur1962=17851.734; %let gvoth1962=1033; %let gvcons1962=90688; %let otxx1962=24422; %let fsa1962=0; %let ftc1962=41.18; %let refcr1962=0 ; %let wgu1963=0; %let farmu1963=0; %let nfu1963=0; %let nfcc1963=0; %let nfres1963=0; %let rentu1963=0; %let scpu1963=0; %let uret1963=0; %let gvsur1963=0; %let gvoth1963=1103; %let gvcons1963=0; %let otxx1963=0; %let fsa1963=0; %let ftc1963=0; %let refcr1963=0 ; %let wgu1964=7526.118; %let farmu1964=7903.022; %let nfu1964=10681.844; %let nfcc1964=43; %let nfres1964=-8176.874; %let rentu1964=2302.031; %let scpu1964=73.183; %let uret1964=5563.837; %let gvsur1964=18316.426; %let gvoth1964=1279; %let gvcons1964=100651; %let otxx1964=27862; %let fsa1964=0; %let ftc1964=50.393; %let refcr1964=0 ; %let wgu1965=0; %let farmu1965=0; %let nfu1965=0; %let nfcc1965=0; %let nfres1965=0; %let rentu1965=0; %let scpu1965=0; %let uret1965=0; %let gvsur1965=0; %let gvoth1965=1510; %let gvcons1965=0; %let otxx1965=0; %let fsa1965=0; %let ftc1965=0; %let refcr1965=0 ; %let wgu1966=6007.903; %let farmu1966=9102.105; %let nfu1966=12626.318; %let nfcc1966=-416; %let nfres1966=-381.78; %let rentu1966=649.092; %let scpu1966=158.105; %let uret1966=6035.665; %let gvsur1966=23739.266; %let gvoth1966=1886; %let gvcons1966=123268; %let otxx1966=30066; %let fsa1966=0; %let ftc1966=81.392; %let refcr1966=0 ; %let wgu1967=3115.046; %let farmu1967=8348.772; %let nfu1967=13634.996; %let nfcc1967=-470; %let nfres1967=1190.41; %let rentu1967=791.772; %let scpu1967=151.501; %let uret1967=7597.974; %let gvsur1967=11357.003; %let gvoth1967=2380; %let gvcons1967=140338; %let otxx1967=31961; %let fsa1967=0; %let ftc1967=93.517; %let refcr1967=0 ; %let wgu1968=5397.322; %let farmu1968=8586.955; %let nfu1968=15373.374; %let nfcc1968=-375; %let nfres1968=3666.995; %let rentu1968=-213.413; %let scpu1968=165.66; %let uret1968=7966.55; %let gvsur1968=18692.188; %let gvoth1968=2777; %let gvcons1968=156492; %let otxx1968=36723; %let fsa1968=0; %let ftc1968=111.924; %let refcr1968=0 ; %let wgu1969=6399.54; %let farmu1969=9280.86; %let nfu1969=16463.612; %let nfcc1969=-295; %let nfres1969=2024.818; %let rentu1969=-284.888; %let scpu1969=179.819; %let uret1969=10939.22; %let gvsur1969=29758.591; %let gvoth1969=3254; %let gvcons1969=168673; %let otxx1969=40329; %let fsa1969=0; %let ftc1969=152.974; %let refcr1969=0 ; %let wgu1970=3012.935; %let farmu1970=10185.919; %let nfu1970=17248.589; %let nfcc1970=-425; %let nfres1970=2598.629; %let rentu1970=615.806; %let scpu1970=162.755; %let uret1970=14844.984; %let gvsur1970=5674.613; %let gvoth1970=4079; %let gvcons1970=181160; %let otxx1970=43114; %let fsa1970=0; %let ftc1970=135.686; %let refcr1970=0 ; %let wgu1971=1.876; %let farmu1971=11146.237; %let nfu1971=20465.471; %let nfcc1971=-656; %let nfres1971=4230.05; %let rentu1971=-202.702; %let scpu1971=197.922; %let uret1971=16747.474; %let gvsur1971=-7011.672; %let gvoth1971=4962; %let gvcons1971=196391; %let otxx1971=47480; %let fsa1971=0; %let ftc1971=199.19; %let refcr1971=0 ; %let wgu1972=-2614.904; %let farmu1972=12708.191; %let nfu1972=25357.127; %let nfcc1972=-83; %let nfres1972=3820.512; %let rentu1972=68.616; %let scpu1972=329.061; %let uret1972=14300.337; %let gvsur1972=9685.463; %let gvoth1972=5388; %let gvcons1972=211671; %let otxx1972=50874; %let fsa1972=0; %let ftc1972=222.625; %let refcr1972=0 ; %let wgu1973=-290.442; %let farmu1973=21845.724; %let nfu1973=28711.423; %let nfcc1973=-62; %let nfres1973=-469.165; %let rentu1973=457.184; %let scpu1973=211.076; %let uret1973=19484.61; %let gvsur1973=21541.505; %let gvoth1973=6118; %let gvcons1973=224222; %let otxx1973=55962; %let fsa1973=0; %let ftc1973=242.28; %let refcr1973=0 ; %let wgu1974=-9187.908; %let farmu1974=18132.388; %let nfu1974=34471.603; %let nfcc1974=-515; %let nfres1974=7286.959; %let rentu1974=372.797; %let scpu1974=271.248; %let uret1974=27260.545; %let gvsur1974=11319.959; %let gvoth1974=6978; %let gvcons1974=250265; %let otxx1974=60982; %let fsa1974=0; %let ftc1974=139.904; %let refcr1974=0 ; %let wgu1975=-3845.525; %let farmu1975=18322.945; %let nfu1975=37956.123; %let nfcc1975=-1290; %let nfres1975=1887.761; %let rentu1975=-1291.769; %let scpu1975=198.992; %let uret1975=32696.342; %let gvsur1975=-44374.612; %let gvoth1975=10206; %let gvcons1975=280863; %let otxx1975=66047; %let fsa1975=0; %let ftc1975=370.85; %let refcr1975=0 ; %let wgu1976=-7069.923; %let farmu1976=13729.989; %let nfu1976=47689.084; %let nfcc1976=-1111; %let nfres1976=3395.392; %let rentu1976=-2210.417; %let scpu1976=185.074; %let uret1976=32681.825; %let gvsur1976=-15603.754; %let gvoth1976=10234; %let gvcons1976=297401; %let otxx1976=71034; %let fsa1976=0; %let ftc1976=185.511; %let refcr1976=1271 ; %let wgu1977=-637.531; %let farmu1977=15448.885; %let nfu1977=53679.412; %let nfcc1977=-695; %let nfres1977=6237.862; %let rentu1977=-1025.193; %let scpu1977=195.027; %let uret1977=43006.846; %let gvsur1977=7027; %let gvoth1977=11199; %let gvcons1977=323035; %let otxx1977=78329; %let fsa1977=0; %let ftc1977=180.471; %let refcr1977=1262 ; %let wgu1978=487.824; %let farmu1978=16341.929; %let nfu1978=65548.362; %let nfcc1978=-38; %let nfres1978=4497.67; %let rentu1978=-1303.935; %let scpu1978=220.128; %let uret1978=48655.961; %let gvsur1978=30772.151; %let gvoth1978=14058; %let gvcons1978=351514; %let otxx1978=87894; %let fsa1978=2656.919; %let ftc1978=598.205; %let refcr1978=1132 ; %let wgu1979=-4739.802; %let farmu1979=14481.784; %let nfu1979=72341.218; %let nfcc1979=1241; %let nfres1979=4243.091; %let rentu1979=-924.594; %let scpu1979=1537.841; %let uret1979=60573.446; %let gvsur1979=43264.491; %let gvoth1979=15763; %let gvcons1979=385125; %let otxx1979=96118; %let fsa1979=2952.132; %let ftc1979=359.395; %let refcr1979=1069 ; %let wgu1980=-8420.428; %let farmu1980=7386.725; %let nfu1980=86091; %let nfcc1980=1567; %let nfres1980=-6498.528; %let rentu1980=1735.088; %let scpu1980=1526.715; %let uret1980=78220.489; %let gvsur1980=7603.605; %let gvoth1980=21613; %let gvcons1980=433676; %let otxx1980=111531; %let fsa1980=3280.147; %let ftc1980=462.096; %let refcr1980=1983 ; %let wgu1981=-5851.761; %let farmu1981=20120.123; %let nfu1981=77461.772; %let nfcc1981=5296; %let nfres1981=11763.616; %let rentu1981=10397.435; %let scpu1981=2510.339; %let uret1981=87336.117; %let gvsur1981=21499.565; %let gvoth1981=21289; %let gvcons1981=485483; %let otxx1981=137005; %let fsa1981=3644.608; %let ftc1981=375.64; %let refcr1981=1933 ; %let wgu1982=-4243.033; %let farmu1982=16024.116; %let nfu1982=86018.152; %let nfcc1982=4631; %let nfres1982=6709.431; %let rentu1982=14396.886; %let scpu1982=2228.817; %let uret1982=101501.09; %let gvsur1982=-53671.919; %let gvoth1982=20403; %let gvcons1982=531449; %let otxx1982=132552; %let fsa1982=4049.564; %let ftc1982=433.699; %let refcr1982=1834 ; %let wgu1983=6265.597; %let farmu1983=8041.146; %let nfu1983=93748.481; %let nfcc1983=13415; %let nfres1983=-7637.878; %let rentu1983=17732.229; %let scpu1983=1934.903; %let uret1983=123205.638; %let gvsur1983=-70773.491; %let gvoth1983=21864; %let gvcons1983=566488; %let otxx1983=142499; %let fsa1983=4499.516; %let ftc1983=344.664; %let refcr1983=1769 ; %let wgu1984=6061.091; %let farmu1984=26313.089; %let nfu1984=109228.046; %let nfcc1984=23035; %let nfres1984=-4674.187; %let rentu1984=23513.599; %let scpu1984=2408.159; %let uret1984=142728.523; %let gvsur1984=-24908.051; %let gvoth1984=22692; %let gvcons1984=603251; %let otxx1984=158595; %let fsa1984=4999.462; %let ftc1984=338.904; %let refcr1984=1694 ; %let wgu1985=19951.951; %let farmu1985=25036.663; %let nfu1985=113819.769; %let nfcc1985=31746; %let nfres1985=-28080.504; %let rentu1985=27725.972; %let scpu1985=2494.884; %let uret1985=139695.613; %let gvsur1985=-22562.316; %let gvoth1985=23789; %let gvcons1985=657614; %let otxx1985=167617; %let fsa1985=5554.958; %let ftc1985=364.087; %let refcr1985=1577 ; %let wgu1986=28854.936; %let farmu1986=21877.891; %let nfu1986=119592.137; %let nfcc1986=36378; %let nfres1986=-40533.51; %let rentu1986=30482.065; %let scpu1986=2674.679; %let uret1986=165567.898; %let gvsur1986=-26807.868; %let gvoth1986=25180; %let gvcons1986=703707; %let otxx1986=172933; %let fsa1986=6172.175; %let ftc1986=839.895; %let refcr1986=2009 ; %let wgu1987=10272.41; %let farmu1987=21912.164; %let nfu1987=123088.179; %let nfcc1987=30893; %let nfres1987=-24722.101; %let rentu1987=27741.673; %let scpu1987=3785.107; %let uret1987=159732.857; %let gvsur1987=30888.868; %let gvoth1987=25876; %let gvcons1987=741037; %let otxx1987=185268; %let fsa1987=6857.973; %let ftc1987=551.446; %let refcr1987=1936 ; %let wgu1988=12671.926; %let farmu1988=19295.855; %let nfu1988=129158.371; %let nfcc1988=30145; %let nfres1988=-27608.916; %let rentu1988=16815.553; %let scpu1988=5463.747; %let uret1988=151568.444; %let gvsur1988=51768.687; %let gvoth1988=27805; %let gvcons1988=782492; %let otxx1988=200005; %let fsa1988=7619.97; %let ftc1988=683.384; %let refcr1988=3711 ; %let wgu1989=32190.029; %let farmu1989=24172.656; %let nfu1989=132504.387; %let nfcc1989=29836; %let nfres1989=-38542.926; %let rentu1989=12942.685; %let scpu1989=5573.372; %let uret1989=184520.674; %let gvsur1989=52898.627; %let gvoth1989=30897; %let gvcons1989=842283; %let otxx1989=209858; %let fsa1989=8466.633; %let ftc1989=724.239; %let refcr1989=5646 ; %let wgu1990=29517.952; %let farmu1990=23085.001; %let nfu1990=136679.311; %let nfcc1990=19039; %let nfres1990=-27987.113; %let rentu1990=12634.164; %let scpu1990=5787.241; %let uret1990=187932.847; %let gvsur1990=8703.619; %let gvoth1990=32483; %let gvcons1990=906203; %let otxx1990=221474; %let fsa1990=9407.37; %let ftc1990=798.64; %let refcr1990=6313 ; %let wgu1991=21337.922; %let farmu1991=19825.57; %let nfu1991=141175.447; %let nfcc1991=15173; %let nfres1991=-24395.302; %let rentu1991=15743.657; %let scpu1991=8142.373; %let uret1991=178497.939; %let gvsur1991=-79289.164; %let gvoth1991=35271; %let gvcons1991=955655; %let otxx1991=231817; %let fsa1991=10452.633; %let ftc1991=863.056; %let refcr1991=7175 ; %let wgu1992=25395.987; %let farmu1992=27237.037; %let nfu1992=142886.53; %let nfcc1992=16883; %let nfres1992=-22410.679; %let rentu1992=17746.682; %let scpu1992=-1976.892; %let uret1992=195241.195; %let gvsur1992=-111996.685; %let gvoth1992=38245; %let gvcons1992=996025; %let otxx1992=246339; %let fsa1992=11614.037; %let ftc1992=1001.896; %let refcr1992=10549 ; %let wgu1993=32836.349; %let farmu1993=24738.825; %let nfu1993=165527.364; %let nfcc1993=16433; %let nfres1993=-6832.193; %let rentu1993=20027.068; %let scpu1993=2263.516; %let uret1993=217036.271; %let gvsur1993=-79795.476; %let gvoth1993=40936; %let gvcons1993=1018584; %let otxx1993=261412; %let fsa1993=12904.485; %let ftc1993=1017.601; %let refcr1993=11649 ; %let wgu1994=44575.459; %let farmu1994=31498.369; %let nfu1994=188469.363; %let nfcc1994=11763; %let nfres1994=-13545.201; %let rentu1994=19548.088; %let scpu1994=-224.003; %let uret1994=225086.47; %let gvsur1994=-19446.411; %let gvoth1994=42178; %let gvcons1994=1046262; %let otxx1994=284040; %let fsa1994=14338.317; %let ftc1994=1182.251; %let refcr1994=13985 ; %let wgu1995=28855.089; %let farmu1995=19048.425; %let nfu1995=211667.77; %let nfcc1995=11914; %let nfres1995=-13546.334; %let rentu1995=27283.488; %let scpu1995=5721.779; %let uret1995=205130.889; %let gvsur1995=8621.771; %let gvoth1995=44119; %let gvcons1995=1079720; %let otxx1995=293302; %let fsa1995=15931.463; %let ftc1995=1256.071; %let refcr1995=19903 ; %let wgu1996=32871.103; %let farmu1996=33429.313; %let nfu1996=236007.39; %let nfcc1996=17262; %let nfres1996=-8811.855; %let rentu1996=18654.579; %let scpu1996=17369.522; %let uret1996=202642.513; %let gvsur1996=93390.295; %let gvoth1996=44668; %let gvcons1996=1107591; %let otxx1996=303105; %let fsa1996=17701.626; %let ftc1996=1623.992; %let refcr1996=24336 ; %let wgu1997=39186.336; %let farmu1997=27990.266; %let nfu1997=255007.443; %let nfcc1997=25500; %let nfres1997=-11733.444; %let rentu1997=17988.466; %let scpu1997=18762.936; %let uret1997=229056.327; %let gvsur1997=190265.557; %let gvoth1997=46255; %let gvcons1997=1153883; %let otxx1997=321441; %let fsa1997=19668.473; %let ftc1997=1791.305; %let refcr1997=27413 ; %let wgu1998=64795.071; %let farmu1998=25078.782; %let nfu1998=278266.134; %let nfcc1998=31896; %let nfres1998=-5989.85; %let rentu1998=15979.579; %let scpu1998=39157.871; %let uret1998=272239.874; %let gvsur1998=282513.88; %let gvoth1998=49977; %let gvcons1998=1198495; %let otxx1998=339353; %let fsa1998=21853.859; %let ftc1998=2055; %let refcr1998=29192 ; %let wgu1999=43018.24; %let farmu1999=23413.255; %let nfu1999=310423.276; %let nfcc1999=42566; %let nfres1999=-37721.436; %let rentu1999=8953.557; %let scpu1999=34355.126; %let uret1999=252092.674; %let gvsur1999=325165.022; %let gvoth1999=52656; %let gvcons1999=1280530; %let otxx1999=359886; %let fsa1999=24282.066; %let ftc1999=2286.488; %let refcr1999=30741 ; %let wgu2000=78230.108; %let farmu2000=28832.423; %let nfu2000=340967.346; %let nfcc2000=51285; %let nfres2000=-21198.101; %let rentu2000=3504.764; %let scpu2000=54030.579; %let uret2000=298371.029; %let gvsur2000=395380.727; %let gvoth2000=54681; %let gvcons2000=1365799; %let otxx2000=382098; %let fsa2000=26980.073; %let ftc2000=2730.83; %let refcr2000=31278 ; %let wgu2001=90507.393; %let farmu2001=31096.608; %let nfu2001=358037.229; %let nfcc2001=71141; %let nfres2001=19949.983; %let rentu2001=6175.831; %let scpu2001=53343.236; %let uret2001=319545.091; %let gvsur2001=177821.641; %let gvoth2001=61852; %let gvcons2001=1463521; %let otxx2001=385042; %let fsa2001=29977.859; %let ftc2001=2798.142; %let refcr2001=31189 ; %let wgu2002=121253.973; %let farmu2002=22502.665; %let nfu2002=392121.981; %let nfcc2002=87705; %let nfres2002=9812.927; %let rentu2002=5734.827; %let scpu2002=43897; %let uret2002=341452.215; %let gvsur2002=-182189.085; %let gvoth2002=67885; %let gvcons2002=1569422; %let otxx2002=394421; %let fsa2002=33308.732; %let ftc2002=2672.545; %let refcr2002=37266 ; %let wgu2003=156303.346; %let farmu2003=37036.146; %let nfu2003=406446.337; %let nfcc2003=95149; %let nfres2003=-21439.217; %let rentu2003=5029.762; %let scpu2003=45457.37; %let uret2003=350600.177; %let gvsur2003=-278237.2; %let gvoth2003=73559; %let gvcons2003=1668453; %let otxx2003=420767; %let fsa2003=37009.702; %let ftc2003=2745.066; %let refcr2003=42942 ; %let wgu2004=146122.897; %let farmu2004=52935.836; %let nfu2004=430801.286; %let nfcc2004=100800; %let nfres2004=-37292.8; %let rentu2004=6583.575; %let scpu2004=35635.807; %let uret2004=337002.917; %let gvsur2004=-240535.603; %let gvoth2004=84963; %let gvcons2004=1771872; %let otxx2004=461922; %let fsa2004=41121.892; %let ftc2004=3322.076; %let refcr2004=46678 ; %let wgu2005=169775.708; %let farmu2005=47007.908; %let nfu2005=444313.097; %let nfcc2005=65458; %let nfres2005=-47230.735; %let rentu2005=7506.049; %let scpu2005=21757.651; %let uret2005=341003.514; %let gvsur2005=-57467.147; %let gvoth2005=90856; %let gvcons2005=1877384; %let otxx2005=506554; %let fsa2005=45690.991; %let ftc2005=4713.666; %let refcr2005=54052 ; %let wgu2006=200517.019; %let farmu2006=36173.522; %let nfu2006=517904.159; %let nfcc2006=72379; %let nfres2006=-61959.635; %let rentu2006=9267.783; %let scpu2006=54630.629; %let uret2006=408576.299; %let gvsur2006=23614.303; %let gvoth2006=92969; %let gvcons2006=1984066; %let otxx2006=532990; %let fsa2006=50767.767; %let ftc2006=5802.863; %let refcr2006=56668 ; %let wgu2007=165461.864; %let farmu2007=42126.304; %let nfu2007=499041.229; %let nfcc2007=79649; %let nfres2007=-109154.599; %let rentu2007=11540.109; %let scpu2007=96947.907; %let uret2007=446023.353; %let gvsur2007=-34952.195; %let gvoth2007=97625; %let gvcons2007=2110810; %let otxx2007=545418; %let fsa2007=56408.63; %let ftc2007=8370.624; %let refcr2007=60123 ; %let wgu2008=258750.635; %let farmu2008=36898.083; %let nfu2008=345531.995; %let nfcc2008=141819; %let nfres2008=-7425.776; %let rentu2008=23759.464; %let scpu2008=114297.429; %let uret2008=540368.003; %let gvsur2008=-487747.027; %let gvoth2008=110227; %let gvcons2008=2268416; %let otxx2008=549041; %let fsa2008=62676.256; %let ftc2008=8319.637; %let refcr2008=76898.595 ; %let wgu2009=176532.84; %let farmu2009=25659.761; %let nfu2009=367178.656; %let nfcc2009=136216; %let nfres2009=-41115.868; %let rentu2009=36014.639; %let scpu2009=76118.827; %let uret2009=407018.441; %let gvsur2009=-1236523.371; %let gvoth2009=147862; %let gvcons2009=2347985; %let otxx2009=501774; %let fsa2009=69640.284; %let ftc2009=6361.47; %let refcr2009=76810 ; %let wgu2010=129396.055; %let farmu2010=32094.051; %let nfu2010=504879.551; %let nfcc2010=147432; %let nfres2010=-94105.308; %let rentu2010=34903.508; %let scpu2010=66363.091; %let uret2010=340291.794; %let gvsur2010=-1315525.761; %let gvoth2010=152022; %let gvcons2010=2424367; %let otxx2010=537807; %let fsa2010=77378.094; %let ftc2010=8056.415; %let refcr2010=144341 ; %let wgu2011=126582.478; %let farmu2011=53778.063; %let nfu2011=507456.977; %let nfcc2011=197742; %let nfres2011=-97735.536; %let rentu2011=38328.297; %let scpu2011=78567.215; %let uret2011=422228.02; %let gvsur2011=-1147308.503; %let gvoth2011=140253; %let gvcons2011=2424526; %let otxx2011=577697; %let fsa2011=81450.625; %let ftc2011=8853.453; %let refcr2011=151420 ; %let wgu2012=125943.344; %let farmu2012=41008.587; %let nfu2012=545765.699; %let nfcc2012=164103; %let nfres2012=-61464.187; %let rentu2012=23875.987; %let scpu2012=64496.476; %let uret2012=506715.059; %let gvsur2012=-996097.475; %let gvoth2012=138593; %let gvcons2012=2421325; %let otxx2012=597702; %let fsa2012=85737.5; %let ftc2012=10412.87; %let refcr2012=98683 ; %let wgu2013=90314.506; %let farmu2013=71698.34; %let nfu2013=542930.232; %let nfcc2013=192683; %let nfres2013=-60152.951; %let rentu2013=27173.801; %let scpu2013=51652.959; %let uret2013=603009.864; %let gvsur2013=-659182.77; %let gvoth2013=136534; %let gvcons2013=2438564; %let otxx2013=637792; %let fsa2013=90250; %let ftc2013=11289.712; %let refcr2013=97626 ; %let wgu2014=86208.201; %let farmu2014=51523.297; %let nfu2014=587060.179; %let nfcc2014=206119; %let nfres2014=-100792.923; %let rentu2014=28200.177; %let scpu2014=42468.989; %let uret2014=677906.614; %let gvsur2014=-571038.997; %let gvoth2014=144277; %let gvcons2014=2470869; %let otxx2014=670458; %let fsa2014=95000; %let ftc2014=12427.196; %let refcr2014=114996 ; %let wgu2015=80084.941; %let farmu2015=37220.934; %let nfu2015=570844.02; %let nfcc2015=227840; %let nfres2015=-141406.652; %let rentu2015=28747.135; %let scpu2015=46401.821; %let uret2015=777802.28; %let gvsur2015=-532856.736; %let gvoth2015=146904; %let gvcons2015=2511857; %let otxx2015=687618; %let fsa2015=100000; %let ftc2015=12918.442; %let refcr2015=125884 ; %let wgu2016=116053.921; %let farmu2016=25978.599; %let nfu2016=555783.649; %let nfcc2016=251150; %let nfres2016=-145233.178; %let rentu2016=31532.789; %let scpu2016=46625.872; %let uret2016=783590.421; %let gvsur2016=-584572.504; %let gvoth2016=146738; %let gvcons2016=2564843; %let otxx2016=701395; %let fsa2016=104000; %let ftc2016=11450.115; %let refcr2016=130814 ; %let wgu2017=103948.262; %let farmu2017=35057.286; %let nfu2017=587762.981; %let nfcc2017=311896; %let nfres2017=-200980.58; %let rentu2017=18811.831; %let scpu2017=49760.909; %let uret2017=830505.825; %let gvsur2017=-586355.244; %let gvoth2017=148350; %let gvcons2017=2630960; %let otxx2017=730528; %let fsa2017=108160; %let ftc2017=13274.272; %let refcr2017=136911 ; %let wgu2018=112027.1; %let farmu2018=30756.209; %let nfu2018=605619.943; %let nfcc2018=368918; %let nfres2018=-198495.744; %let rentu2018=16742.256; %let scpu2018=53076.912; %let uret2018=788076.12; %let gvsur2018=-675087.204; %let gvoth2018=149331; %let gvcons2018=2764953; %let otxx2018=808115; %let fsa2018=112486.4; %let ftc2018=15488.397; %let refcr2018=148264 ; %let wgu2019=159267.751; %let farmu2019=30299.814; %let nfu2019=532533.092; %let nfcc2019=381356; %let nfres2019=-90956.142; %let rentu2019=18409.998; %let scpu2019=53578.336; %let uret2019=761751.244; %let gvsur2019=-654186.546; %let gvoth2019=153673; %let gvcons2019=2868821; %let otxx2019=863219; %let fsa2019=116985.856; %let ftc2019=14313.288; %let refcr2019=157671 ; %let wgu2020=0; %let farmu2020=0; %let nfu2020=0; %let nfcc2020=97905; %let nfres2020=170733.526; %let rentu2020=0; %let scpu2020=0; %let uret2020=0; %let gvsur2020=0; %let gvoth2020=0; %let gvcons2020=0; %let otxx2020=0; %let fsa2020=0; %let ftc2020=0; %let refcr2020=430579 ; %let rtx1960=7439; %let xrtx1960=3856.726; %let imprent1960=18432; %let rtx1961=8221; %let xrtx1961=8221; %let imprent1961=0; %let rtx1962=8922; %let xrtx1962=3868.58; %let imprent1962=21383; %let rtx1963=9819; %let xrtx1963=9819; %let imprent1963=0; %let rtx1964=10709; %let xrtx1964=5184.237; %let imprent1964=23766; %let rtx1965=11660; %let xrtx1965=11660; %let imprent1965=0; %let rtx1966=12567; %let xrtx1966=5230.601; %let imprent1966=26487; %let rtx1967=14053; %let xrtx1967=6663.646; %let imprent1967=28491; %let rtx1968=15838; %let xrtx1968=7599.223; %let imprent1968=29939; %let rtx1969=17646; %let xrtx1969=8482.948; %let imprent1969=32060; %let rtx1970=20068; %let xrtx1970=9666.72; %let imprent1970=34576; %let rtx1971=22076; %let xrtx1971=10418.428; %let imprent1971=37558; %let rtx1972=23780; %let xrtx1972=10616.642; %let imprent1972=39091; %let rtx1973=25790; %let xrtx1973=12074.754; %let imprent1973=40333; %let rtx1974=27572; %let xrtx1974=11606.31; %let imprent1974=42423; %let rtx1975=30317; %let xrtx1975=14897.958; %let imprent1975=44217; %let rtx1976=33366; %let xrtx1976=17495.901; %let imprent1976=45365; %let rtx1977=36554; %let xrtx1977=18936.876; %let imprent1977=43601; %let rtx1978=37250; %let xrtx1978=19585.698; %let imprent1978=44389; %let rtx1979=38019; %let xrtx1979=19024.383; %let imprent1979=43746; %let rtx1980=41020; %let xrtx1980=19434.769; %let imprent1980=46651; %let rtx1981=45622; %let xrtx1981=20543.694; %let imprent1981=51392; %let rtx1982=50038; %let xrtx1982=22616.377; %let imprent1982=52185; %let rtx1983=53540; %let xrtx1983=23728.746; %let imprent1983=54800; %let rtx1984=57622; %let xrtx1984=24955.749; %let imprent1984=56440; %let rtx1985=61347; %let xrtx1985=25493.995; %let imprent1985=57166; %let rtx1986=65148; %let xrtx1986=25759.331; %let imprent1986=55689; %let rtx1987=71310; %let xrtx1987=32329.331; %let imprent1987=61461; %let rtx1988=76347; %let xrtx1988=35460.102; %let imprent1988=72761; %let rtx1989=83050; %let xrtx1989=37929.926; %let imprent1989=79711; %let rtx1990=88735; %let xrtx1990=39148.351; %let imprent1990=88666; %let rtx1991=95393; %let xrtx1991=41393.518; %let imprent1991=101192; %let rtx1992=98771; %let xrtx1992=41479.495; %let imprent1992=118514; %let rtx1993=98834; %let xrtx1993=37701.944; %let imprent1993=141435; %let rtx1994=103803; %let xrtx1994=40809.748; %let imprent1994=165968; %let rtx1995=104155; %let xrtx1995=37322.851; %let imprent1995=172688; %let rtx1996=107645; %let xrtx1996=36594.432; %let imprent1996=190357; %let rtx1997=111657; %let xrtx1997=36887.639; %let imprent1997=196611; %let rtx1998=113787; %let xrtx1998=34019.32; %let imprent1998=215078; %let rtx1999=117794; %let xrtx1999=29738.85; %let imprent1999=232981; %let rtx1999=117794; %let xrtx1999=29738.85; %let imprent1999=232981; %let rtx2000=121862; %let xrtx2000=28100.337; %let imprent2000=242715; %let rtx2001=128631; %let xrtx2001=27023.712; %let imprent2001=263410; %let rtx2002=138820; %let xrtx2002=28064.416; %let imprent2002=284893; %let rtx2003=147386; %let xrtx2003=29693.917; %let imprent2003=309002; %let rtx2004=156682; %let xrtx2004=24726.575; %let imprent2004=329349; %let rtx2005=168788; %let xrtx2005=24420.023; %let imprent2005=312197; %let rtx2006=180087; %let xrtx2006=24077.598; %let imprent2006=285045; %let rtx2007=193723; %let xrtx2007=27276.758; %let imprent2007=301580; %let rtx2008=198295; %let xrtx2008=30846.416; %let imprent2008=387156; %let rtx2009=208115; %let xrtx2009=40823.595; %let imprent2009=457966; %let rtx2010=208216; %let xrtx2010=36522.979; %let imprent2010=527143; %let rtx2011=210154; %let xrtx2011=37774.664; %let imprent2011=585620; %let rtx2012=211485; %let xrtx2012=38754.881; %let imprent2012=602807; %let rtx2013=217095; %let xrtx2013=43372.199; %let imprent2013=640750; %let rtx2014=225645; %let xrtx2014=45351.761; %let imprent2014=661990; %let rtx2015=232815; %let xrtx2015=44867.468; %let imprent2015=685497; %let rtx2016=242537; %let xrtx2016=45425.673; %let imprent2016=715437; %let rtx2017=253945; %let xrtx2017=32191.183; %let imprent2017=753256; %let rtx2018=263167; %let xrtx2018=158744.583; %let imprent2018=779754; %let rtx2019=283971; %let xrtx2019=173860.212; %let imprent2019=812556; %let rtx2020=0; %let xrtx2020=0; %let imprent2020=0; %let ret1_1960=0.291; %let ret2_1960=0.583; %let ret3_1960=0.014; %let ret4_1960=0.111; %let ret5_1960=0; %let ret6_1960=0; %let ret7_1960=0; %let ret8_1960=0; %let retx1960=2576.259; %let ret1_1961=0; %let ret2_1961=0; %let ret3_1961=0; %let ret4_1961=0; %let ret5_1961=0; %let ret6_1961=0; %let ret7_1961=0; %let ret8_1961=0; %let retx1961=2576.259; %let ret1_1962=0.291; %let ret2_1962=0.583; %let ret3_1962=0.014; %let ret4_1962=0.111; %let ret5_1962=0; %let ret6_1962=0; %let ret7_1962=0; %let ret8_1962=0; %let retx1962=5676.181; %let ret1_1963=0.203; %let ret2_1963=0.407; %let ret3_1963=0.135; %let ret4_1963=0.189; %let ret5_1963=0.028; %let ret6_1963=0.027; %let ret7_1963=0.009; %let ret8_1963=0.001; %let retx1963=0; %let ret1_1964=0.17; %let ret2_1964=0.34; %let ret3_1964=0.167; %let ret4_1964=0.235; %let ret5_1964=0.036; %let ret6_1964=0.038; %let ret7_1964=0.013; %let ret8_1964=0.002; %let retx1964=2946.271; %let ret1_1965=0.168; %let ret2_1965=0.336; %let ret3_1965=0.173; %let ret4_1965=0.235; %let ret5_1965=0.035; %let ret6_1965=0.037; %let ret7_1965=0.013; %let ret8_1965=0.003; %let retx1965=0; %let ret1_1966=0.181; %let ret2_1966=0.361; %let ret3_1966=0.162; %let ret4_1966=0.216; %let ret5_1966=0.031; %let ret6_1966=0.034; %let ret7_1966=0.012; %let ret8_1966=0.003; %let retx1966=4676.079; %let ret1_1967=0.208; %let ret2_1967=0.417; %let ret3_1967=0.139; %let ret4_1967=0.169; %let ret5_1967=0.027; %let ret6_1967=0.027; %let ret7_1967=0.01; %let ret8_1967=0.004; %let retx1967=5080.152; %let ret1_1968=0.211; %let ret2_1968=0.423; %let ret3_1968=0.137; %let ret4_1968=0.157; %let ret5_1968=0.028; %let ret6_1968=0.029; %let ret7_1968=0.009; %let ret8_1968=0.005; %let retx1968=7593.341; %let ret1_1969=0.218; %let ret2_1969=0.436; %let ret3_1969=0.132; %let ret4_1969=0.158; %let ret5_1969=0.022; %let ret6_1969=0.022; %let ret7_1969=0.008; %let ret8_1969=0.003; %let retx1969=8403.708; %let ret1_1970=0.215; %let ret2_1970=0.43; %let ret3_1970=0.139; %let ret4_1970=0.171; %let ret5_1970=0.02; %let ret6_1970=0.019; %let ret7_1970=0.006; %let ret8_1970=0.001; %let retx1970=9241.561; %let ret1_1971=0.216; %let ret2_1971=0.433; %let ret3_1971=0.145; %let ret4_1971=0.168; %let ret5_1971=0.019; %let ret6_1971=0.014; %let ret7_1971=0.005; %let ret8_1971=0; %let retx1971=10928.402; %let ret1_1972=0.217; %let ret2_1972=0.434; %let ret3_1972=0.145; %let ret4_1972=0.167; %let ret5_1972=0.017; %let ret6_1972=0.014; %let ret7_1972=0.005; %let ret8_1972=0.001; %let retx1972=12887.218; %let ret1_1973=0.215; %let ret2_1973=0.431; %let ret3_1973=0.146; %let ret4_1973=0.17; %let ret5_1973=0.018; %let ret6_1973=0.014; %let ret7_1973=0.005; %let ret8_1973=0.001; %let retx1973=15588.072; %let ret1_1974=0.218; %let ret2_1974=0.436; %let ret3_1974=0.145; %let ret4_1974=0.164; %let ret5_1974=0.018; %let ret6_1974=0.013; %let ret7_1974=0.006; %let ret8_1974=0; %let retx1974=19237.45; %let ret1_1975=0.221; %let ret2_1975=0.441; %let ret3_1975=0.149; %let ret4_1975=0.159; %let ret5_1975=0.015; %let ret6_1975=0.01; %let ret7_1975=0.005; %let ret8_1975=0; %let retx1975=23650.031; %let ret1_1976=0.224; %let ret2_1976=0.448; %let ret3_1976=0.146; %let ret4_1976=0.154; %let ret5_1976=0.014; %let ret6_1976=0.01; %let ret7_1976=0.003; %let ret8_1976=0; %let retx1976=26663.787; %let ret1_1977=0.223; %let ret2_1977=0.445; %let ret3_1977=0.148; %let ret4_1977=0.153; %let ret5_1977=0.015; %let ret6_1977=0.012; %let ret7_1977=0.004; %let ret8_1977=0; %let retx1977=33202.544; %let ret1_1978=0.222; %let ret2_1978=0.444; %let ret3_1978=0.147; %let ret4_1978=0.152; %let ret5_1978=0.016; %let ret6_1978=0.014; %let ret7_1978=0.005; %let ret8_1978=0.001; %let retx1978=36565.196; %let ret1_1979=0.218; %let ret2_1979=0.437; %let ret3_1979=0.149; %let ret4_1979=0.155; %let ret5_1979=0.018; %let ret6_1979=0.016; %let ret7_1979=0.006; %let ret8_1979=0.001; %let retx1979=36957.183; %let ret1_1980=0.218; %let ret2_1980=0.435; %let ret3_1980=0.149; %let ret4_1980=0.155; %let ret5_1980=0.02; %let ret6_1980=0.017; %let ret7_1980=0.006; %let ret8_1980=0.001; %let retx1980=42848.291; %let ret1_1981=0.21; %let ret2_1981=0.42; %let ret3_1981=0.152; %let ret4_1981=0.17; %let ret5_1981=0.021; %let ret6_1981=0.019; %let ret7_1981=0.006; %let ret8_1981=0.001; %let retx1981=51452.442; %let ret1_1982=0.207; %let ret2_1982=0.415; %let ret3_1982=0.145; %let ret4_1982=0.175; %let ret5_1982=0.025; %let ret6_1982=0.021; %let ret7_1982=0.012; %let ret8_1982=0.001; %let retx1982=62605.65; %let ret1_1983=0.208; %let ret2_1983=0.416; %let ret3_1983=0.142; %let ret4_1983=0.165; %let ret5_1983=0.025; %let ret6_1983=0.029; %let ret7_1983=0.012; %let ret8_1983=0.002; %let retx1983=72961.753; %let ret1_1984=0.197; %let ret2_1984=0.393; %let ret3_1984=0.151; %let ret4_1984=0.174; %let ret5_1984=0.027; %let ret6_1984=0.036; %let ret7_1984=0.018; %let ret8_1984=0.004; %let retx1984=94197.063; %let ret1_1985=0.201; %let ret2_1985=0.402; %let ret3_1985=0.144; %let ret4_1985=0.168; %let ret5_1985=0.029; %let ret6_1985=0.035; %let ret7_1985=0.015; %let ret8_1985=0.005; %let retx1985=94327.759; %let ret1_1986=0.197; %let ret2_1986=0.394; %let ret3_1986=0.142; %let ret4_1986=0.166; %let ret5_1986=0.032; %let ret6_1986=0.043; %let ret7_1986=0.022; %let ret8_1986=0.005; %let retx1986=106949.358; %let ret1_1987=0.187; %let ret2_1987=0.375; %let ret3_1987=0.159; %let ret4_1987=0.186; %let ret5_1987=0.035; %let ret6_1987=0.04; %let ret7_1987=0.018; %let ret8_1987=0; %let retx1987=135398.536; %let ret1_1988=0.169; %let ret2_1988=0.339; %let ret3_1988=0.157; %let ret4_1988=0.202; %let ret5_1988=0.041; %let ret6_1988=0.058; %let ret7_1988=0.029; %let ret8_1988=0.004; %let retx1988=160317.795; %let ret1_1989=0.164; %let ret2_1989=0.329; %let ret3_1989=0.156; %let ret4_1989=0.194; %let ret5_1989=0.046; %let ret6_1989=0.063; %let ret7_1989=0.042; %let ret8_1989=0.005; %let retx1989=172345.249; %let ret1_1990=0.17; %let ret2_1990=0.34; %let ret3_1990=0.149; %let ret4_1990=0.191; %let ret5_1990=0.044; %let ret6_1990=0.064; %let ret7_1990=0.037; %let ret8_1990=0.005; %let retx1990=188122.351; %let ret1_1991=0.174; %let ret2_1991=0.348; %let ret3_1991=0.146; %let ret4_1991=0.197; %let ret5_1991=0.047; %let ret6_1991=0.057; %let ret7_1991=0.028; %let ret8_1991=0.004; %let retx1991=207937.993; %let ret1_1992=0.164; %let ret2_1992=0.328; %let ret3_1992=0.144; %let ret4_1992=0.204; %let ret5_1992=0.053; %let ret6_1992=0.071; %let ret7_1992=0.031; %let ret8_1992=0.005; %let retx1992=225770.603; %let ret1_1993=0.161; %let ret2_1993=0.322; %let ret3_1993=0.146; %let ret4_1993=0.204; %let ret5_1993=0.051; %let ret6_1993=0.074; %let ret7_1993=0.03; %let ret8_1993=0.011; %let retx1993=234531.919; %let ret1_1994=0.16; %let ret2_1994=0.319; %let ret3_1994=0.146; %let ret4_1994=0.207; %let ret5_1994=0.053; %let ret6_1994=0.081; %let ret7_1994=0.025; %let ret8_1994=0.008; %let retx1994=252466.451; %let ret1_1995=0.159; %let ret2_1995=0.317; %let ret3_1995=0.148; %let ret4_1995=0.217; %let ret5_1995=0.058; %let ret6_1995=0.063; %let ret7_1995=0.027; %let ret8_1995=0.01; %let retx1995=272205.837; %let ret1_1996=0.154; %let ret2_1996=0.308; %let ret3_1996=0.147; %let ret4_1996=0.226; %let ret5_1996=0.058; %let ret6_1996=0.071; %let ret7_1996=0.03; %let ret8_1996=0.007; %let retx1996=298503.446; %let ret1_1997=0.147; %let ret2_1997=0.293; %let ret3_1997=0.149; %let ret4_1997=0.228; %let ret5_1997=0.053; %let ret6_1997=0.073; %let ret7_1997=0.045; %let ret8_1997=0.013; %let retx1997=329100.472; %let ret1_1998=0.137; %let ret2_1998=0.273; %let ret3_1998=0.146; %let ret4_1998=0.241; %let ret5_1998=0.066; %let ret6_1998=0.093; %let ret7_1998=0.035; %let ret8_1998=0.009; %let retx1998=368675.577; %let ret1_1999=0.151; %let ret2_1999=0.302; %let ret3_1999=0.135; %let ret4_1999=0.219; %let ret5_1999=0.059; %let ret6_1999=0.086; %let ret7_1999=0.035; %let ret8_1999=0.014; %let retx1999=406934.172; %let ret1_2000=0.143; %let ret2_2000=0.285; %let ret3_2000=0.139; %let ret4_2000=0.228; %let ret5_2000=0.064; %let ret6_2000=0.088; %let ret7_2000=0.04; %let ret8_2000=0.013; %let retx2000=440083.921; %let ret1_2001=0.153; %let ret2_2001=0.307; %let ret3_2001=0.13; %let ret4_2001=0.219; %let ret5_2001=0.064; %let ret6_2001=0.077; %let ret7_2001=0.035; %let ret8_2001=0.015; %let retx2001=448068.989; %let ret1_2002=0.145; %let ret2_2002=0.29; %let ret3_2002=0.143; %let ret4_2002=0.224; %let ret5_2002=0.063; %let ret6_2002=0.087; %let ret7_2002=0.04; %let ret8_2002=0.007; %let retx2002=462234.806; %let ret1_2003=0.155; %let ret2_2003=0.309; %let ret3_2003=0.136; %let ret4_2003=0.209; %let ret5_2003=0.06; %let ret6_2003=0.08; %let ret7_2003=0.039; %let ret8_2003=0.012; %let retx2003=478631.652; %let ret1_2004=0.147; %let ret2_2004=0.293; %let ret3_2004=0.14; %let ret4_2004=0.218; %let ret5_2004=0.063; %let ret6_2004=0.085; %let ret7_2004=0.034; %let ret8_2004=0.02; %let retx2004=513797.938; %let ret1_2005=0.146; %let ret2_2005=0.292; %let ret3_2005=0.14; %let ret4_2005=0.221; %let ret5_2005=0.057; %let ret6_2005=0.086; %let ret7_2005=0.044; %let ret8_2005=0.014; %let retx2005=549875.23; %let ret1_2006=0.133; %let ret2_2006=0.266; %let ret3_2006=0.139; %let ret4_2006=0.235; %let ret5_2006=0.064; %let ret6_2006=0.09; %let ret7_2006=0.045; %let ret8_2006=0.028; %let retx2006=591096.643; %let ret1_2007=0.181; %let ret2_2007=0.361; %let ret3_2007=0.115; %let ret4_2007=0.191; %let ret5_2007=0.052; %let ret6_2007=0.065; %let ret7_2007=0.026; %let ret8_2007=0.008; %let retx2007=651911.524; %let ret1_2008=0.185; %let ret2_2008=0.37; %let ret3_2008=0.115; %let ret4_2008=0.183; %let ret5_2008=0.048; %let ret6_2008=0.064; %let ret7_2008=0.028; %let ret8_2008=0.007; %let retx2008=684717.098; %let ret1_2009=0.195; %let ret2_2009=0.39; %let ret3_2009=0.116; %let ret4_2009=0.17; %let ret5_2009=0.042; %let ret6_2009=0.054; %let ret7_2009=0.021; %let ret8_2009=0.012; %let retx2009=678139.087; %let ret1_2010=0.189; %let ret2_2010=0.377; %let ret3_2010=0.119; %let ret4_2010=0.18; %let ret5_2010=0.047; %let ret6_2010=0.059; %let ret7_2010=0.024; %let ret8_2010=0.007; %let retx2010=775906.233; %let ret1_2011=0.185; %let ret2_2011=0.37; %let ret3_2011=0.123; %let ret4_2011=0.186; %let ret5_2011=0.047; %let ret6_2011=0.062; %let ret7_2011=0.023; %let ret8_2011=0.004; %let retx2011=825065.627; %let ret1_2012=0.177; %let ret2_2012=0.354; %let ret3_2012=0.146; %let ret4_2012=0.108; %let ret5_2012=0.12; %let ret6_2012=0.066; %let ret7_2012=0.024; %let ret8_2012=0.005; %let retx2012=878426.208; %let ret1_2013=0.181; %let ret2_2013=0.363; %let ret3_2013=0.122; %let ret4_2013=0.193; %let ret5_2013=0.051; %let ret6_2013=0.064; %let ret7_2013=0.022; %let ret8_2013=0.005; %let retx2013=892416.312; %let ret1_2014=0.175; %let ret2_2014=0.349; %let ret3_2014=0.125; %let ret4_2014=0.202; %let ret5_2014=0.054; %let ret6_2014=0.068; %let ret7_2014=0.024; %let ret8_2014=0.004; %let retx2014=944091.018; %let ret1_2015=0.167; %let ret2_2015=0.333; %let ret3_2015=0.131; %let ret4_2015=0.213; %let ret5_2015=0.057; %let ret6_2015=0.071; %let ret7_2015=0.025; %let ret8_2015=0.004; %let retx2015=993693.135; %let ret1_2016=0.167; %let ret2_2016=0.333; %let ret3_2016=0.131; %let ret4_2016=0.213; %let ret5_2016=0.057; %let ret6_2016=0.071; %let ret7_2016=0.025; %let ret8_2016=0.004; %let retx2016=1010373.5; %let ret1_2017=0.167; %let ret2_2017=0.333; %let ret3_2017=0.131; %let ret4_2017=0.213; %let ret5_2017=0.057; %let ret6_2017=0.071; %let ret7_2017=0.025; %let ret8_2017=0.004; %let retx2017=1074006.4; %let ret1_2018=0.167; %let ret2_2018=0.333; %let ret3_2018=0.131; %let ret4_2018=0.213; %let ret5_2018=0.057; %let ret6_2018=0.071; %let ret7_2018=0.025; %let ret8_2018=0.004; %let retx2018=1149003.1; %let ret1_2019=0.167; %let ret2_2019=0.333; %let ret3_2019=0.131; %let ret4_2019=0.213; %let ret5_2019=0.057; %let ret6_2019=0.071; %let ret7_2019=0.025; %let ret8_2019=0.004; %let retx2019=1168222.4; %let ret1_2020=0; %let ret2_2020=0; %let ret3_2020=0; %let ret4_2020=0; %let ret5_2020=0; %let ret6_2020=0; %let ret7_2020=0; %let ret8_2020=0; %let retx2020=0; %let trint1960=175.63; %let trdiv1960=786.82; %let trcg1960=445.904; %let troth1960=489.947; %let trstx1960=193.3; %let trftx1960=361.7; %let trint1961=195.543; %let trdiv1961=863.599; %let trcg1961=525.944; %let troth1961=496.065; %let trstx1961=196.65; %let trftx1961=395.85; %let trint1962=215.456; %let trdiv1962=940.378; %let trcg1962=605.983; %let troth1962=502.183; %let trstx1962=200; %let trftx1962=430; %let trint1963=274.978; %let trdiv1963=1147.502; %let trcg1963=884.978; %let troth1963=607.267; %let trstx1963=233.571; %let trftx1963=529.1; %let trint1964=334.5; %let trdiv1964=1354.626; %let trcg1964=1163.973; %let troth1964=712.351; %let trstx1964=267.142; %let trftx1964=628.2; %let trint1965=354.197; %let trdiv1965=1408.192; %let trcg1965=1282.889; %let troth1965=805.198; %let trstx1965=294.013; %let trftx1965=659; %let trint1966=393.684; %let trdiv1966=1388.796; %let trcg1966=1143.518; %let troth1966=804.122; %let trstx1966=325.35; %let trftx1966=649.42; %let trint1967=433.171; %let trdiv1967=1369.4; %let trcg1967=1004.147; %let troth1967=803.047; %let trstx1967=0; %let trftx1967=639.84; %let trint1968=472.659; %let trdiv1968=1350.004; %let trcg1968=864.776; %let troth1968=801.971; %let trstx1968=0; %let trftx1968=630.26; %let trint1969=512.146; %let trdiv1969=1330.608; %let trcg1969=725.405; %let troth1969=800.896; %let trstx1969=0; %let trftx1969=620.68; %let trint1970=551.633; %let trdiv1970=1311.212; %let trcg1970=586.034; %let troth1970=799.82; %let trstx1970=0; %let trftx1970=611.1; %let trint1971=733.858; %let trdiv1971=1456.88; %let trcg1971=646.203; %let troth1971=941.16; %let trstx1971=0; %let trftx1971=664.925; %let trint1972=916.082; %let trdiv1972=1602.547; %let trcg1972=706.371; %let troth1972=1082.499; %let trstx1972=497.6; %let trftx1972=718.75; %let trint1973=1098.306; %let trdiv1973=1748.215; %let trcg1973=766.54; %let troth1973=1223.839; %let trstx1973=521.05; %let trftx1973=772.575; %let trint1974=1280.531; %let trdiv1974=1893.883; %let trcg1974=826.708; %let troth1974=1365.178; %let trstx1974=0; %let trftx1974=826.4; %let trint1975=1664.649; %let trdiv1975=2036.409; %let trcg1975=1142.91; %let troth1975=1461.794; %let trstx1975=570.188; %let trftx1975=812.225; %let trint1976=2048.768; %let trdiv1976=2178.936; %let trcg1976=1459.111; %let troth1976=1558.41; %let trstx1976=0; %let trftx1976=798.05; %let trint1977=2432.886; %let trdiv1977=2321.462; %let trcg1977=1775.312; %let troth1977=1655.027; %let trstx1977=621.563; %let trftx1977=783.875; %let trint1978=2817.005; %let trdiv1978=2463.989; %let trcg1978=2091.514; %let troth1978=1751.643; %let trstx1978=0; %let trftx1978=769.7; %let trint1979=3201.123; %let trdiv1979=2606.516; %let trcg1979=2407.715; %let troth1979=1848.259; %let trstx1979=672.938; %let trftx1979=755.525; %let trint1980=3585.242; %let trdiv1980=2749.042; %let trcg1980=2723.916; %let troth1980=1944.875; %let trstx1980=698.625; %let trftx1980=741.35; %let trint1981=3969.36; %let trdiv1981=2891.569; %let trcg1981=3040.118; %let troth1981=2041.491; %let trstx1981=724.313; %let trftx1981=727.175; %let trint1982=4353.478; %let trdiv1982=3034.096; %let trcg1982=3356.319; %let troth1982=2138.107; %let trstx1982=750; %let trftx1982=713; %let trint1983=4560.333; %let trdiv1983=3421.265; %let trcg1983=4792.257; %let troth1983=2452.392; %let trstx1983=827.523; %let trftx1983=1479.242; %let trint1984=4767.187; %let trdiv1984=3808.434; %let trcg1984=6228.195; %let troth1984=2766.677; %let trstx1984=905.047; %let trftx1984=2245.484; %let trint1985=4974.041; %let trdiv1985=4195.603; %let trcg1985=7664.133; %let troth1985=3080.962; %let trstx1985=982.57; %let trftx1985=3011.727; %let trint1986=5180.895; %let trdiv1986=4582.773; %let trcg1986=9100.07; %let troth1986=3395.246; %let trstx1986=1060.093; %let trftx1986=3777.969; %let trint1987=5387.749; %let trdiv1987=4969.942; %let trcg1987=10536.008; %let troth1987=3709.531; %let trstx1987=1137.617; %let trftx1987=4544.211; %let trint1988=5594.604; %let trdiv1988=5357.111; %let trcg1988=11971.946; %let troth1988=4023.816; %let trstx1988=1215.14; %let trftx1988=5310.453; %let trint1989=5801.458; %let trdiv1989=5744.281; %let trcg1989=13407.884; %let troth1989=4338.101; %let trstx1989=1292.663; %let trftx1989=6076.695; %let trint1990=6008.312; %let trdiv1990=6131.45; %let trcg1990=14843.822; %let troth1990=4652.386; %let trstx1990=1370.187; %let trftx1990=6842.938; %let trint1991=6215.166; %let trdiv1991=6518.619; %let trcg1991=16279.76; %let troth1991=4966.67; %let trstx1991=1447.71; %let trftx1991=7609.18; %let trint1992=6422.02; %let trdiv1992=6905.789; %let trcg1992=17715.698; %let troth1992=5280.955; %let trstx1992=1525.233; %let trftx1992=8375.422; %let trint1993=6628.875; %let trdiv1993=7292.958; %let trcg1993=19151.636; %let troth1993=5595.24; %let trstx1993=1602.757; %let trftx1993=9141.664; %let trint1994=6835.729; %let trdiv1994=7680.127; %let trcg1994=20587.574; %let troth1994=5909.525; %let trstx1994=1680.28; %let trftx1994=9907.906; %let trint1995=7042.583; %let trdiv1995=8067.296; %let trcg1995=22023.511; %let troth1995=6223.81; %let trstx1995=1757.803; %let trftx1995=10674.149; %let trint1996=7249.437; %let trdiv1996=8454.466; %let trcg1996=23459.449; %let troth1996=6538.094; %let trstx1996=1835.327; %let trftx1996=11440.391; %let trint1997=7456.292; %let trdiv1997=8841.635; %let trcg1997=24895.387; %let troth1997=6852.379; %let trstx1997=1912.85; %let trftx1997=12206.633; %let trint1998=7506.409; %let trdiv1998=9225.033; %let trcg1998=27820.491; %let troth1998=7765.562; %let trstx1998=2291.424; %let trftx1998=13687.843; %let trint1999=7556.526; %let trdiv1999=9608.43; %let trcg1999=30745.594; %let troth1999=8678.744; %let trstx1999=2669.998; %let trftx1999=15169.054; %let trint2000=7606.643; %let trdiv2000=9991.828; %let trcg2000=33670.697; %let troth2000=9591.927; %let trstx2000=3048.572; %let trftx2000=16650.264; %let trint2001=7076.424; %let trdiv2001=8103.892; %let trcg2001=16860.103; %let troth2001=7930.471; %let trstx2001=3106.838; %let trftx2001=10732.985; %let trint2002=4272.152; %let trdiv2002=5811.33; %let trcg2002=8793.002; %let troth2002=5947.126; %let trstx2002=2082.86; %let trftx2002=7884.497; %let trint2003=4526.887; %let trdiv2003=7824.506; %let trcg2003=14070.743; %let troth2003=7588.587; %let trstx2003=2018.816; %let trftx2003=9360.018; %let trint2004=5224.312; %let trdiv2004=11681.667; %let trcg2004=28409.162; %let troth2004=9924.435; %let trstx2004=2456.067; %let trftx2004=11457.529; %let trint2005=6925.563; %let trdiv2005=13681.749; %let trcg2005=37489.156; %let troth2005=12194.668; %let trstx2005=3456.81; %let trftx2005=14751.202; %let trint2006=10062.88; %let trdiv2006=19901.956; %let trcg2006=51223.281; %let troth2006=13909.769; %let trstx2006=3898.997; %let trftx2006=19460.652; %let trint2007=11681.657; %let trdiv2007=22030.702; %let trcg2007=65244.726; %let troth2007=14774.954; %let trstx2007=4568.496; %let trftx2007=23138.728; %let trint2008=8022.314; %let trdiv2008=16397.325; %let trcg2008=27450.262; %let troth2008=12766.222; %let trstx2008=5184.901; %let trftx2008=16135.96; %let trint2009=3787.234; %let trdiv2009=7749.365; %let trcg2009=9557.288; %let troth2009=6207.219; %let trstx2009=3433.999; %let trftx2009=10478.778; %let trint2010=4500.067; %let trdiv2010=10806.001; %let trcg2010=13951.847; %let troth2010=9753.921; %let trstx2010=2887.782; %let trftx2010=13254.433; %let trint2011=4669.213; %let trdiv2011=12526.753; %let trcg2011=20022.731; %let troth2011=10952.277; %let trstx2011=3351.058; %let trftx2011=14471.726; %let trint2012=5613.153; %let trdiv2012=20824.66; %let trcg2012=39663.91; %let troth2012=16416.088; %let trstx2012=3647.404; %let trftx2012=20778.493; %let trint2013=5086.248; %let trdiv2013=16241.963; %let trcg2013=31479.477; %let troth2013=16926.621; %let trstx2013=5323.168; %let trftx2013=23865.966; %let trint2014=4967.17; %let trdiv2014=15099.844; %let trcg2014=26279.491; %let troth2014=13512.227; %let trstx2014=3802.353; %let trftx2014=18092.655; %let trint2015=5312.507; %let trdiv2015=16149.644; %let trcg2015=28106.544; %let troth2015=14451.649; %let trstx2015=4066.707; %let trftx2015=19350.526; %let trint2016=5296.785; %let trdiv2016=16101.851; %let trcg2016=28023.365; %let troth2016=14408.881; %let trstx2016=4054.672; %let trftx2016=19293.26; %let trint2017=5240.524; %let trdiv2017=15930.821; %let trcg2017=27725.707; %let troth2017=14255.833; %let trstx2017=4011.605; %let trftx2017=19088.332; %let trint2018=5148.406; %let trdiv2018=15650.787; %let trcg2018=27238.341; %let troth2018=14005.243; %let trstx2018=3941.088; %let trftx2018=18752.795; %let trint2019=5041.146; %let trdiv2019=15324.726; %let trcg2019=26670.871; %let troth2019=13713.464; %let trstx2019=3858.981; %let trftx2019=18362.108; %let trint2020=0; %let trdiv2020=0; %let trcg2020=0; %let troth2020=0; %let trstx2020=0; %let trftx2020=0; * Retirement account wealth to income ratios (tab C23); %let dc_1_1_1989=0.068;%let dc_1_2_1989=0.366;%let dc_1_3_1989=0.225;%let dc_1_4_1989=0.05;%let dc_2_1_1989=0.127;%let dc_2_2_1989=0.374;%let dc_2_3_1989=0.892;%let dc_2_4_1989=0.27;%let dc_3_1_1989=0.597;%let dc_3_2_1989=0.679;%let dc_3_3_1989=0.522;%let dc_3_4_1989=0.039;%let dc_4_1_1989=0.248;%let dc_4_2_1989=0.59;%let dc_4_3_1989=0.651;%let dc_4_4_1989=0.049;%let dc_5_1_1989=0.298;%let dc_5_2_1989=0.944;%let dc_5_3_1989=0.666;%let dc_5_4_1989=0.081;%let dc_6_1_1989=0.039;%let dc_6_2_1989=0.308;%let dc_6_3_1989=0.389;%let dc_6_4_1989=0.015;%let dc_7_1_1989=0.088;%let dc_7_2_1989=0.148;%let dc_7_3_1989=0.467;%let dc_7_4_1989=0.007;%let dc_8_1_1989=0.006;%let dc_8_2_1989=0.178;%let dc_8_3_1989=0;%let dc_8_4_1989=0.002; %let dc_1_1_1990=0.06;%let dc_1_2_1990=0.369;%let dc_1_3_1990=0.265;%let dc_1_4_1990=0.046;%let dc_2_1_1990=0.146;%let dc_2_2_1990=0.417;%let dc_2_3_1990=0.824;%let dc_2_4_1990=0.241;%let dc_3_1_1990=0.477;%let dc_3_2_1990=0.679;%let dc_3_3_1990=0.58;%let dc_3_4_1990=0.21;%let dc_4_1_1990=0.262;%let dc_4_2_1990=0.675;%let dc_4_3_1990=0.697;%let dc_4_4_1990=0.42;%let dc_5_1_1990=0.352;%let dc_5_2_1990=0.959;%let dc_5_3_1990=0.644;%let dc_5_4_1990=0.07;%let dc_6_1_1990=0.16;%let dc_6_2_1990=0.489;%let dc_6_3_1990=0.547;%let dc_6_4_1990=0.099;%let dc_7_1_1990=0.082;%let dc_7_2_1990=0.197;%let dc_7_3_1990=0.445;%let dc_7_4_1990=0.05;%let dc_8_1_1990=0.01;%let dc_8_2_1990=0.163;%let dc_8_3_1990=0.007;%let dc_8_4_1990=0.014; %let dc_1_1_1991=0.052;%let dc_1_2_1991=0.372;%let dc_1_3_1991=0.305;%let dc_1_4_1991=0.042;%let dc_2_1_1991=0.166;%let dc_2_2_1991=0.459;%let dc_2_3_1991=0.757;%let dc_2_4_1991=0.212;%let dc_3_1_1991=0.358;%let dc_3_2_1991=0.679;%let dc_3_3_1991=0.638;%let dc_3_4_1991=0.381;%let dc_4_1_1991=0.276;%let dc_4_2_1991=0.76;%let dc_4_3_1991=0.743;%let dc_4_4_1991=0.79;%let dc_5_1_1991=0.406;%let dc_5_2_1991=0.975;%let dc_5_3_1991=0.622;%let dc_5_4_1991=0.059;%let dc_6_1_1991=0.28;%let dc_6_2_1991=0.671;%let dc_6_3_1991=0.706;%let dc_6_4_1991=0.183;%let dc_7_1_1991=0.076;%let dc_7_2_1991=0.246;%let dc_7_3_1991=0.423;%let dc_7_4_1991=0.092;%let dc_8_1_1991=0.014;%let dc_8_2_1991=0.148;%let dc_8_3_1991=0.013;%let dc_8_4_1991=0.027; %let dc_1_1_1992=0.044;%let dc_1_2_1992=0.376;%let dc_1_3_1992=0.345;%let dc_1_4_1992=0.038;%let dc_2_1_1992=0.185;%let dc_2_2_1992=0.502;%let dc_2_3_1992=0.689;%let dc_2_4_1992=0.183;%let dc_3_1_1992=0.238;%let dc_3_2_1992=0.679;%let dc_3_3_1992=0.696;%let dc_3_4_1992=0.552;%let dc_4_1_1992=0.29;%let dc_4_2_1992=0.844;%let dc_4_3_1992=0.789;%let dc_4_4_1992=1.16;%let dc_5_1_1992=0.46;%let dc_5_2_1992=0.991;%let dc_5_3_1992=0.599;%let dc_5_4_1992=0.048;%let dc_6_1_1992=0.4;%let dc_6_2_1992=0.853;%let dc_6_3_1992=0.865;%let dc_6_4_1992=0.267;%let dc_7_1_1992=0.07;%let dc_7_2_1992=0.294;%let dc_7_3_1992=0.401;%let dc_7_4_1992=0.134;%let dc_8_1_1992=0.018;%let dc_8_2_1992=0.133;%let dc_8_3_1992=0.02;%let dc_8_4_1992=0.039; %let dc_1_1_1993=0.116;%let dc_1_2_1993=0.414;%let dc_1_3_1993=0.378;%let dc_1_4_1993=0.098;%let dc_2_1_1993=0.217;%let dc_2_2_1993=0.529;%let dc_2_3_1993=0.692;%let dc_2_4_1993=0.253;%let dc_3_1_1993=0.285;%let dc_3_2_1993=0.781;%let dc_3_3_1993=1.032;%let dc_3_4_1993=0.483;%let dc_4_1_1993=0.27;%let dc_4_2_1993=0.955;%let dc_4_3_1993=0.879;%let dc_4_4_1993=1.248;%let dc_5_1_1993=0.392;%let dc_5_2_1993=1.019;%let dc_5_3_1993=1.366;%let dc_5_4_1993=0.052;%let dc_6_1_1993=0.378;%let dc_6_2_1993=0.785;%let dc_6_3_1993=0.842;%let dc_6_4_1993=0.222;%let dc_7_1_1993=0.068;%let dc_7_2_1993=0.278;%let dc_7_3_1993=0.547;%let dc_7_4_1993=0.11;%let dc_8_1_1993=0.253;%let dc_8_2_1993=0.154;%let dc_8_3_1993=0.04;%let dc_8_4_1993=0.033; %let dc_1_1_1994=0.187;%let dc_1_2_1994=0.452;%let dc_1_3_1994=0.412;%let dc_1_4_1994=0.159;%let dc_2_1_1994=0.248;%let dc_2_2_1994=0.555;%let dc_2_3_1994=0.696;%let dc_2_4_1994=0.324;%let dc_3_1_1994=0.331;%let dc_3_2_1994=0.882;%let dc_3_3_1994=1.368;%let dc_3_4_1994=0.413;%let dc_4_1_1994=0.251;%let dc_4_2_1994=1.065;%let dc_4_3_1994=0.969;%let dc_4_4_1994=1.336;%let dc_5_1_1994=0.325;%let dc_5_2_1994=1.047;%let dc_5_3_1994=2.134;%let dc_5_4_1994=0.057;%let dc_6_1_1994=0.356;%let dc_6_2_1994=0.717;%let dc_6_3_1994=0.819;%let dc_6_4_1994=0.178;%let dc_7_1_1994=0.066;%let dc_7_2_1994=0.262;%let dc_7_3_1994=0.692;%let dc_7_4_1994=0.086;%let dc_8_1_1994=0.488;%let dc_8_2_1994=0.174;%let dc_8_3_1994=0.059;%let dc_8_4_1994=0.026; %let dc_1_1_1995=0.259;%let dc_1_2_1995=0.49;%let dc_1_3_1995=0.446;%let dc_1_4_1995=0.219;%let dc_2_1_1995=0.279;%let dc_2_2_1995=0.581;%let dc_2_3_1995=0.699;%let dc_2_4_1995=0.394;%let dc_3_1_1995=0.377;%let dc_3_2_1995=0.984;%let dc_3_3_1995=1.704;%let dc_3_4_1995=0.344;%let dc_4_1_1995=0.232;%let dc_4_2_1995=1.175;%let dc_4_3_1995=1.059;%let dc_4_4_1995=1.423;%let dc_5_1_1995=0.258;%let dc_5_2_1995=1.075;%let dc_5_3_1995=2.901;%let dc_5_4_1995=0.062;%let dc_6_1_1995=0.334;%let dc_6_2_1995=0.649;%let dc_6_3_1995=0.797;%let dc_6_4_1995=0.134;%let dc_7_1_1995=0.063;%let dc_7_2_1995=0.246;%let dc_7_3_1995=0.837;%let dc_7_4_1995=0.061;%let dc_8_1_1995=0.723;%let dc_8_2_1995=0.195;%let dc_8_3_1995=0.079;%let dc_8_4_1995=0.019; %let dc_1_1_1996=0.206;%let dc_1_2_1996=0.534;%let dc_1_3_1996=0.48;%let dc_1_4_1996=0.23;%let dc_2_1_1996=0.307;%let dc_2_2_1996=0.655;%let dc_2_3_1996=0.866;%let dc_2_4_1996=0.421;%let dc_3_1_1996=0.427;%let dc_3_2_1996=0.991;%let dc_3_3_1996=1.404;%let dc_3_4_1996=0.959;%let dc_4_1_1996=0.368;%let dc_4_2_1996=1.195;%let dc_4_3_1996=1.392;%let dc_4_4_1996=1.555;%let dc_5_1_1996=0.265;%let dc_5_2_1996=1.08;%let dc_5_3_1996=2.202;%let dc_5_4_1996=0.105;%let dc_6_1_1996=0.273;%let dc_6_2_1996=0.669;%let dc_6_3_1996=0.84;%let dc_6_4_1996=0.17;%let dc_7_1_1996=0.123;%let dc_7_2_1996=0.317;%let dc_7_3_1996=0.662;%let dc_7_4_1996=0.123;%let dc_8_1_1996=0.51;%let dc_8_2_1996=0.202;%let dc_8_3_1996=0.097;%let dc_8_4_1996=0.014; %let dc_1_1_1997=0.153;%let dc_1_2_1997=0.578;%let dc_1_3_1997=0.514;%let dc_1_4_1997=0.24;%let dc_2_1_1997=0.335;%let dc_2_2_1997=0.728;%let dc_2_3_1997=1.033;%let dc_2_4_1997=0.447;%let dc_3_1_1997=0.476;%let dc_3_2_1997=0.999;%let dc_3_3_1997=1.104;%let dc_3_4_1997=1.575;%let dc_4_1_1997=0.504;%let dc_4_2_1997=1.215;%let dc_4_3_1997=1.725;%let dc_4_4_1997=1.686;%let dc_5_1_1997=0.271;%let dc_5_2_1997=1.085;%let dc_5_3_1997=1.504;%let dc_5_4_1997=0.148;%let dc_6_1_1997=0.212;%let dc_6_2_1997=0.688;%let dc_6_3_1997=0.883;%let dc_6_4_1997=0.205;%let dc_7_1_1997=0.183;%let dc_7_2_1997=0.387;%let dc_7_3_1997=0.488;%let dc_7_4_1997=0.184;%let dc_8_1_1997=0.297;%let dc_8_2_1997=0.209;%let dc_8_3_1997=0.116;%let dc_8_4_1997=0.009; %let dc_1_1_1998=0.101;%let dc_1_2_1998=0.621;%let dc_1_3_1998=0.548;%let dc_1_4_1998=0.251;%let dc_2_1_1998=0.363;%let dc_2_2_1998=0.802;%let dc_2_3_1998=1.2;%let dc_2_4_1998=0.474;%let dc_3_1_1998=0.525;%let dc_3_2_1998=1.007;%let dc_3_3_1998=0.804;%let dc_3_4_1998=2.19;%let dc_4_1_1998=0.64;%let dc_4_2_1998=1.236;%let dc_4_3_1998=2.058;%let dc_4_4_1998=1.818;%let dc_5_1_1998=0.278;%let dc_5_2_1998=1.09;%let dc_5_3_1998=0.805;%let dc_5_4_1998=0.19;%let dc_6_1_1998=0.151;%let dc_6_2_1998=0.707;%let dc_6_3_1998=0.926;%let dc_6_4_1998=0.241;%let dc_7_1_1998=0.243;%let dc_7_2_1998=0.458;%let dc_7_3_1998=0.313;%let dc_7_4_1998=0.245;%let dc_8_1_1998=0.084;%let dc_8_2_1998=0.215;%let dc_8_3_1998=0.134;%let dc_8_4_1998=0.004; %let dc_1_1_1999=0.101;%let dc_1_2_1999=0.745;%let dc_1_3_1999=0.62;%let dc_1_4_1999=0.338;%let dc_2_1_1999=0.348;%let dc_2_2_1999=0.865;%let dc_2_3_1999=1.276;%let dc_2_4_1999=0.642;%let dc_3_1_1999=0.498;%let dc_3_2_1999=1.098;%let dc_3_3_1999=1.428;%let dc_3_4_1999=1.865;%let dc_4_1_1999=0.571;%let dc_4_2_1999=1.294;%let dc_4_3_1999=2.065;%let dc_4_4_1999=1.484;%let dc_5_1_1999=0.307;%let dc_5_2_1999=1.121;%let dc_5_3_1999=0.797;%let dc_5_4_1999=0.504;%let dc_6_1_1999=0.178;%let dc_6_2_1999=0.66;%let dc_6_3_1999=0.945;%let dc_6_4_1999=0.587;%let dc_7_1_1999=0.167;%let dc_7_2_1999=0.377;%let dc_7_3_1999=0.26;%let dc_7_4_1999=0.204;%let dc_8_1_1999=0.06;%let dc_8_2_1999=0.155;%let dc_8_3_1999=0.125;%let dc_8_4_1999=0.003; %let dc_1_1_2000=0.101;%let dc_1_2_2000=0.869;%let dc_1_3_2000=0.692;%let dc_1_4_2000=0.424;%let dc_2_1_2000=0.334;%let dc_2_2_2000=0.928;%let dc_2_3_2000=1.352;%let dc_2_4_2000=0.809;%let dc_3_1_2000=0.472;%let dc_3_2_2000=1.189;%let dc_3_3_2000=2.051;%let dc_3_4_2000=1.541;%let dc_4_1_2000=0.503;%let dc_4_2_2000=1.353;%let dc_4_3_2000=2.073;%let dc_4_4_2000=1.15;%let dc_5_1_2000=0.337;%let dc_5_2_2000=1.152;%let dc_5_3_2000=0.789;%let dc_5_4_2000=0.817;%let dc_6_1_2000=0.204;%let dc_6_2_2000=0.613;%let dc_6_3_2000=0.964;%let dc_6_4_2000=0.934;%let dc_7_1_2000=0.09;%let dc_7_2_2000=0.295;%let dc_7_3_2000=0.207;%let dc_7_4_2000=0.163;%let dc_8_1_2000=0.035;%let dc_8_2_2000=0.095;%let dc_8_3_2000=0.116;%let dc_8_4_2000=0.001; %let dc_1_1_2001=0.101;%let dc_1_2_2001=0.993;%let dc_1_3_2001=0.764;%let dc_1_4_2001=0.511;%let dc_2_1_2001=0.32;%let dc_2_2_2001=0.991;%let dc_2_3_2001=1.427;%let dc_2_4_2001=0.977;%let dc_3_1_2001=0.445;%let dc_3_2_2001=1.28;%let dc_3_3_2001=2.674;%let dc_3_4_2001=1.217;%let dc_4_1_2001=0.434;%let dc_4_2_2001=1.411;%let dc_4_3_2001=2.081;%let dc_4_4_2001=0.815;%let dc_5_1_2001=0.366;%let dc_5_2_2001=1.183;%let dc_5_3_2001=0.781;%let dc_5_4_2001=1.13;%let dc_6_1_2001=0.23;%let dc_6_2_2001=0.566;%let dc_6_3_2001=0.983;%let dc_6_4_2001=1.28;%let dc_7_1_2001=0.014;%let dc_7_2_2001=0.213;%let dc_7_3_2001=0.155;%let dc_7_4_2001=0.123;%let dc_8_1_2001=0.01;%let dc_8_2_2001=0.035;%let dc_8_3_2001=0.106;%let dc_8_4_2001=0; %let dc_1_1_2002=0.092;%let dc_1_2_2002=0.81;%let dc_1_3_2002=0.737;%let dc_1_4_2002=0.476;%let dc_2_1_2002=0.314;%let dc_2_2_2002=1.004;%let dc_2_3_2002=1.413;%let dc_2_4_2002=0.967;%let dc_3_1_2002=0.483;%let dc_3_2_2002=1.267;%let dc_3_3_2002=2.402;%let dc_3_4_2002=1.997;%let dc_4_1_2002=0.466;%let dc_4_2_2002=1.464;%let dc_4_3_2002=2.016;%let dc_4_4_2002=0.994;%let dc_5_1_2002=0.478;%let dc_5_2_2002=1.023;%let dc_5_3_2002=1.358;%let dc_5_4_2002=1.225;%let dc_6_1_2002=0.225;%let dc_6_2_2002=0.662;%let dc_6_3_2002=1.782;%let dc_6_4_2002=1.037;%let dc_7_1_2002=0.115;%let dc_7_2_2002=0.254;%let dc_7_3_2002=0.191;%let dc_7_4_2002=0.226;%let dc_8_1_2002=0.017;%let dc_8_2_2002=0.04;%let dc_8_3_2002=0.117;%let dc_8_4_2002=0.061; %let dc_1_1_2003=0.084;%let dc_1_2_2003=0.627;%let dc_1_3_2003=0.71;%let dc_1_4_2003=0.441;%let dc_2_1_2003=0.309;%let dc_2_2_2003=1.017;%let dc_2_3_2003=1.399;%let dc_2_4_2003=0.957;%let dc_3_1_2003=0.521;%let dc_3_2_2003=1.255;%let dc_3_3_2003=2.129;%let dc_3_4_2003=2.777;%let dc_4_1_2003=0.498;%let dc_4_2_2003=1.517;%let dc_4_3_2003=1.95;%let dc_4_4_2003=1.173;%let dc_5_1_2003=0.589;%let dc_5_2_2003=0.862;%let dc_5_3_2003=1.935;%let dc_5_4_2003=1.32;%let dc_6_1_2003=0.219;%let dc_6_2_2003=0.758;%let dc_6_3_2003=2.581;%let dc_6_4_2003=0.794;%let dc_7_1_2003=0.217;%let dc_7_2_2003=0.295;%let dc_7_3_2003=0.227;%let dc_7_4_2003=0.329;%let dc_8_1_2003=0.025;%let dc_8_2_2003=0.045;%let dc_8_3_2003=0.127;%let dc_8_4_2003=0.122; %let dc_1_1_2004=0.075;%let dc_1_2_2004=0.444;%let dc_1_3_2004=0.683;%let dc_1_4_2004=0.406;%let dc_2_1_2004=0.304;%let dc_2_2_2004=1.031;%let dc_2_3_2004=1.385;%let dc_2_4_2004=0.948;%let dc_3_1_2004=0.559;%let dc_3_2_2004=1.243;%let dc_3_3_2004=1.856;%let dc_3_4_2004=3.557;%let dc_4_1_2004=0.53;%let dc_4_2_2004=1.569;%let dc_4_3_2004=1.885;%let dc_4_4_2004=1.352;%let dc_5_1_2004=0.701;%let dc_5_2_2004=0.701;%let dc_5_3_2004=2.511;%let dc_5_4_2004=1.414;%let dc_6_1_2004=0.214;%let dc_6_2_2004=0.854;%let dc_6_3_2004=3.38;%let dc_6_4_2004=0.551;%let dc_7_1_2004=0.318;%let dc_7_2_2004=0.335;%let dc_7_3_2004=0.263;%let dc_7_4_2004=0.432;%let dc_8_1_2004=0.032;%let dc_8_2_2004=0.05;%let dc_8_3_2004=0.137;%let dc_8_4_2004=0.183; %let dc_1_1_2005=0.077;%let dc_1_2_2005=0.469;%let dc_1_3_2005=0.745;%let dc_1_4_2005=0.426;%let dc_2_1_2005=0.31;%let dc_2_2_2005=1.083;%let dc_2_3_2005=1.491;%let dc_2_4_2005=1.042;%let dc_3_1_2005=0.561;%let dc_3_2_2005=1.287;%let dc_3_3_2005=1.842;%let dc_3_4_2005=2.708;%let dc_4_1_2005=0.517;%let dc_4_2_2005=1.556;%let dc_4_3_2005=2.349;%let dc_4_4_2005=1.262;%let dc_5_1_2005=0.546;%let dc_5_2_2005=0.81;%let dc_5_3_2005=2.202;%let dc_5_4_2005=1.205;%let dc_6_1_2005=0.215;%let dc_6_2_2005=0.886;%let dc_6_3_2005=2.431;%let dc_6_4_2005=0.588;%let dc_7_1_2005=0.22;%let dc_7_2_2005=0.341;%let dc_7_3_2005=0.247;%let dc_7_4_2005=0.38;%let dc_8_1_2005=0.026;%let dc_8_2_2005=0.076;%let dc_8_3_2005=0.162;%let dc_8_4_2005=0.138; %let dc_1_1_2006=0.079;%let dc_1_2_2006=0.494;%let dc_1_3_2006=0.807;%let dc_1_4_2006=0.446;%let dc_2_1_2006=0.317;%let dc_2_2_2006=1.136;%let dc_2_3_2006=1.596;%let dc_2_4_2006=1.137;%let dc_3_1_2006=0.562;%let dc_3_2_2006=1.331;%let dc_3_3_2006=1.828;%let dc_3_4_2006=1.858;%let dc_4_1_2006=0.504;%let dc_4_2_2006=1.542;%let dc_4_3_2006=2.812;%let dc_4_4_2006=1.171;%let dc_5_1_2006=0.391;%let dc_5_2_2006=0.918;%let dc_5_3_2006=1.892;%let dc_5_4_2006=0.996;%let dc_6_1_2006=0.215;%let dc_6_2_2006=0.918;%let dc_6_3_2006=1.483;%let dc_6_4_2006=0.625;%let dc_7_1_2006=0.122;%let dc_7_2_2006=0.348;%let dc_7_3_2006=0.231;%let dc_7_4_2006=0.328;%let dc_8_1_2006=0.02;%let dc_8_2_2006=0.102;%let dc_8_3_2006=0.186;%let dc_8_4_2006=0.092; %let dc_1_1_2007=0.081;%let dc_1_2_2007=0.519;%let dc_1_3_2007=0.869;%let dc_1_4_2007=0.466;%let dc_2_1_2007=0.323;%let dc_2_2_2007=1.189;%let dc_2_3_2007=1.702;%let dc_2_4_2007=1.232;%let dc_3_1_2007=0.564;%let dc_3_2_2007=1.375;%let dc_3_3_2007=1.813;%let dc_3_4_2007=1.009;%let dc_4_1_2007=0.491;%let dc_4_2_2007=1.528;%let dc_4_3_2007=3.275;%let dc_4_4_2007=1.081;%let dc_5_1_2007=0.236;%let dc_5_2_2007=1.026;%let dc_5_3_2007=1.582;%let dc_5_4_2007=0.788;%let dc_6_1_2007=0.216;%let dc_6_2_2007=0.95;%let dc_6_3_2007=0.535;%let dc_6_4_2007=0.661;%let dc_7_1_2007=0.024;%let dc_7_2_2007=0.354;%let dc_7_3_2007=0.215;%let dc_7_4_2007=0.276;%let dc_8_1_2007=0.014;%let dc_8_2_2007=0.128;%let dc_8_3_2007=0.211;%let dc_8_4_2007=0.046; %let dc_1_1_2008=0.083;%let dc_1_2_2008=0.576;%let dc_1_3_2008=0.8;%let dc_1_4_2008=0.532;%let dc_2_1_2008=0.328;%let dc_2_2_2008=1.147;%let dc_2_3_2008=1.84;%let dc_2_4_2008=1.29;%let dc_3_1_2008=0.554;%let dc_3_2_2008=1.523;%let dc_3_3_2008=2.126;%let dc_3_4_2008=1.684;%let dc_4_1_2008=0.464;%let dc_4_2_2008=1.615;%let dc_4_3_2008=2.841;%let dc_4_4_2008=1.714;%let dc_5_1_2008=0.269;%let dc_5_2_2008=1.136;%let dc_5_3_2008=1.772;%let dc_5_4_2008=1.441;%let dc_6_1_2008=0.166;%let dc_6_2_2008=0.925;%let dc_6_3_2008=0.591;%let dc_6_4_2008=1.242;%let dc_7_1_2008=0.034;%let dc_7_2_2008=0.437;%let dc_7_3_2008=0.293;%let dc_7_4_2008=0.277;%let dc_8_1_2008=0.031;%let dc_8_2_2008=0.129;%let dc_8_3_2008=0.246;%let dc_8_4_2008=0.129; %let dc_1_1_2009=0.085;%let dc_1_2_2009=0.632;%let dc_1_3_2009=0.731;%let dc_1_4_2009=0.598;%let dc_2_1_2009=0.332;%let dc_2_2_2009=1.105;%let dc_2_3_2009=1.979;%let dc_2_4_2009=1.349;%let dc_3_1_2009=0.545;%let dc_3_2_2009=1.672;%let dc_3_3_2009=2.438;%let dc_3_4_2009=2.358;%let dc_4_1_2009=0.436;%let dc_4_2_2009=1.703;%let dc_4_3_2009=2.408;%let dc_4_4_2009=2.347;%let dc_5_1_2009=0.303;%let dc_5_2_2009=1.245;%let dc_5_3_2009=1.962;%let dc_5_4_2009=2.095;%let dc_6_1_2009=0.117;%let dc_6_2_2009=0.901;%let dc_6_3_2009=0.647;%let dc_6_4_2009=1.822;%let dc_7_1_2009=0.044;%let dc_7_2_2009=0.521;%let dc_7_3_2009=0.37;%let dc_7_4_2009=0.279;%let dc_8_1_2009=0.047;%let dc_8_2_2009=0.13;%let dc_8_3_2009=0.282;%let dc_8_4_2009=0.212; %let dc_1_1_2010=0.087;%let dc_1_2_2010=0.689;%let dc_1_3_2010=0.662;%let dc_1_4_2010=0.663;%let dc_2_1_2010=0.336;%let dc_2_2_2010=1.063;%let dc_2_3_2010=2.117;%let dc_2_4_2010=1.408;%let dc_3_1_2010=0.536;%let dc_3_2_2010=1.82;%let dc_3_3_2010=2.751;%let dc_3_4_2010=3.033;%let dc_4_1_2010=0.409;%let dc_4_2_2010=1.79;%let dc_4_3_2010=1.974;%let dc_4_4_2010=2.98;%let dc_5_1_2010=0.336;%let dc_5_2_2010=1.355;%let dc_5_3_2010=2.152;%let dc_5_4_2010=2.749;%let dc_6_1_2010=0.067;%let dc_6_2_2010=0.877;%let dc_6_3_2010=0.703;%let dc_6_4_2010=2.402;%let dc_7_1_2010=0.055;%let dc_7_2_2010=0.604;%let dc_7_3_2010=0.448;%let dc_7_4_2010=0.28;%let dc_8_1_2010=0.064;%let dc_8_2_2010=0.132;%let dc_8_3_2010=0.317;%let dc_8_4_2010=0.295; %let dc_1_1_2011=0.092;%let dc_1_2_2011=0.672;%let dc_1_3_2011=0.789;%let dc_1_4_2011=0.565;%let dc_2_1_2011=0.344;%let dc_2_2_2011=1.146;%let dc_2_3_2011=2.115;%let dc_2_4_2011=1.521;%let dc_3_1_2011=0.542;%let dc_3_2_2011=1.749;%let dc_3_3_2011=2.566;%let dc_3_4_2011=3.631;%let dc_4_1_2011=0.479;%let dc_4_2_2011=1.716;%let dc_4_3_2011=2.426;%let dc_4_4_2011=3.104;%let dc_5_1_2011=0.377;%let dc_5_2_2011=1.27;%let dc_5_3_2011=2.351;%let dc_5_4_2011=1.983;%let dc_6_1_2011=0.149;%let dc_6_2_2011=0.876;%let dc_6_3_2011=1.137;%let dc_6_4_2011=1.967;%let dc_7_1_2011=0.043;%let dc_7_2_2011=0.537;%let dc_7_3_2011=0.433;%let dc_7_4_2011=0.532;%let dc_8_1_2011=0.043;%let dc_8_2_2011=0.102;%let dc_8_3_2011=0.222;%let dc_8_4_2011=0.257; %let dc_1_1_2012=0.097;%let dc_1_2_2012=0.654;%let dc_1_3_2012=0.915;%let dc_1_4_2012=0.466;%let dc_2_1_2012=0.352;%let dc_2_2_2012=1.229;%let dc_2_3_2012=2.112;%let dc_2_4_2012=1.634;%let dc_3_1_2012=0.548;%let dc_3_2_2012=1.679;%let dc_3_3_2012=2.382;%let dc_3_4_2012=4.229;%let dc_4_1_2012=0.548;%let dc_4_2_2012=1.643;%let dc_4_3_2012=2.877;%let dc_4_4_2012=3.228;%let dc_5_1_2012=0.419;%let dc_5_2_2012=1.185;%let dc_5_3_2012=2.55;%let dc_5_4_2012=1.217;%let dc_6_1_2012=0.232;%let dc_6_2_2012=0.874;%let dc_6_3_2012=1.57;%let dc_6_4_2012=1.531;%let dc_7_1_2012=0.031;%let dc_7_2_2012=0.47;%let dc_7_3_2012=0.418;%let dc_7_4_2012=0.783;%let dc_8_1_2012=0.021;%let dc_8_2_2012=0.072;%let dc_8_3_2012=0.127;%let dc_8_4_2012=0.219; %let dc_1_1_2013=0.101;%let dc_1_2_2013=0.637;%let dc_1_3_2013=1.041;%let dc_1_4_2013=0.367;%let dc_2_1_2013=0.36;%let dc_2_2_2013=1.312;%let dc_2_3_2013=2.109;%let dc_2_4_2013=1.747;%let dc_3_1_2013=0.555;%let dc_3_2_2013=1.608;%let dc_3_3_2013=2.198;%let dc_3_4_2013=4.828;%let dc_4_1_2013=0.618;%let dc_4_2_2013=1.569;%let dc_4_3_2013=3.329;%let dc_4_4_2013=3.352;%let dc_5_1_2013=0.46;%let dc_5_2_2013=1.1;%let dc_5_3_2013=2.748;%let dc_5_4_2013=0.452;%let dc_6_1_2013=0.314;%let dc_6_2_2013=0.873;%let dc_6_3_2013=2.004;%let dc_6_4_2013=1.096;%let dc_7_1_2013=0.02;%let dc_7_2_2013=0.403;%let dc_7_3_2013=0.403;%let dc_7_4_2013=1.035;%let dc_8_1_2013=0;%let dc_8_2_2013=0.042;%let dc_8_3_2013=0.031;%let dc_8_4_2013=0.182; %let dc_1_1_2014=0.106;%let dc_1_2_2014=0.715;%let dc_1_3_2014=0.876;%let dc_1_4_2014=0.436;%let dc_2_1_2014=0.349;%let dc_2_2_2014=1.303;%let dc_2_3_2014=2.03;%let dc_2_4_2014=1.856;%let dc_3_1_2014=0.648;%let dc_3_2_2014=1.64;%let dc_3_3_2014=2.412;%let dc_3_4_2014=4.456;%let dc_4_1_2014=0.604;%let dc_4_2_2014=1.697;%let dc_4_3_2014=3.285;%let dc_4_4_2014=3.036;%let dc_5_1_2014=0.477;%let dc_5_2_2014=1.18;%let dc_5_3_2014=2.17;%let dc_5_4_2014=0.933;%let dc_6_1_2014=0.256;%let dc_6_2_2014=0.809;%let dc_6_3_2014=1.723;%let dc_6_4_2014=1.031;%let dc_7_1_2014=0.028;%let dc_7_2_2014=0.385;%let dc_7_3_2014=0.442;%let dc_7_4_2014=0.838;%let dc_8_1_2014=0.034;%let dc_8_2_2014=0.041;%let dc_8_3_2014=0.028;%let dc_8_4_2014=0.211; %let dc_1_1_2015=0.111;%let dc_1_2_2015=0.794;%let dc_1_3_2015=0.711;%let dc_1_4_2015=0.504;%let dc_2_1_2015=0.339;%let dc_2_2_2015=1.295;%let dc_2_3_2015=1.951;%let dc_2_4_2015=1.965;%let dc_3_1_2015=0.741;%let dc_3_2_2015=1.673;%let dc_3_3_2015=2.626;%let dc_3_4_2015=4.085;%let dc_4_1_2015=0.589;%let dc_4_2_2015=1.825;%let dc_4_3_2015=3.242;%let dc_4_4_2015=2.72;%let dc_5_1_2015=0.494;%let dc_5_2_2015=1.26;%let dc_5_3_2015=1.592;%let dc_5_4_2015=1.415;%let dc_6_1_2015=0.199;%let dc_6_2_2015=0.744;%let dc_6_3_2015=1.442;%let dc_6_4_2015=0.966;%let dc_7_1_2015=0.035;%let dc_7_2_2015=0.368;%let dc_7_3_2015=0.48;%let dc_7_4_2015=0.64;%let dc_8_1_2015=0.067;%let dc_8_2_2015=0.041;%let dc_8_3_2015=0.025;%let dc_8_4_2015=0.241; %let dc_1_1_2016=0.116;%let dc_1_2_2016=0.873;%let dc_1_3_2016=0.545;%let dc_1_4_2016=0.572;%let dc_2_1_2016=0.328;%let dc_2_2_2016=1.286;%let dc_2_3_2016=1.871;%let dc_2_4_2016=2.073;%let dc_3_1_2016=0.834;%let dc_3_2_2016=1.705;%let dc_3_3_2016=2.84;%let dc_3_4_2016=3.714;%let dc_4_1_2016=0.574;%let dc_4_2_2016=1.953;%let dc_4_3_2016=3.199;%let dc_4_4_2016=2.404;%let dc_5_1_2016=0.511;%let dc_5_2_2016=1.339;%let dc_5_3_2016=1.014;%let dc_5_4_2016=1.896;%let dc_6_1_2016=0.141;%let dc_6_2_2016=0.68;%let dc_6_3_2016=1.16;%let dc_6_4_2016=0.901;%let dc_7_1_2016=0.043;%let dc_7_2_2016=0.35;%let dc_7_3_2016=0.519;%let dc_7_4_2016=0.443;%let dc_8_1_2016=0.101;%let dc_8_2_2016=0.041;%let dc_8_3_2016=0.021;%let dc_8_4_2016=0.27; %let dc_1_1_2016=0.116;%let dc_1_2_2016=0.873;%let dc_1_3_2016=0.545;%let dc_1_4_2016=0.572;%let dc_2_1_2016=0.328;%let dc_2_2_2016=1.286;%let dc_2_3_2016=1.871;%let dc_2_4_2016=2.073;%let dc_3_1_2016=0.834;%let dc_3_2_2016=1.705;%let dc_3_3_2016=2.84;%let dc_3_4_2016=3.714;%let dc_4_1_2016=0.574;%let dc_4_2_2016=1.953;%let dc_4_3_2016=3.199;%let dc_4_4_2016=2.404;%let dc_5_1_2016=0.511;%let dc_5_2_2016=1.339;%let dc_5_3_2016=1.014;%let dc_5_4_2016=1.896;%let dc_6_1_2016=0.141;%let dc_6_2_2016=0.68;%let dc_6_3_2016=1.16;%let dc_6_4_2016=0.901;%let dc_7_1_2016=0.043;%let dc_7_2_2016=0.35;%let dc_7_3_2016=0.519;%let dc_7_4_2016=0.443;%let dc_8_1_2016=0.101;%let dc_8_2_2016=0.041;%let dc_8_3_2016=0.021;%let dc_8_4_2016=0.27; %let dc_1_1_2017=0.108;%let dc_1_2_2017=0.767;%let dc_1_3_2017=0.762;%let dc_1_4_2017=0.511;%let dc_2_1_2017=0.333;%let dc_2_2_2017=1.297;%let dc_2_3_2017=2.036;%let dc_2_4_2017=2.038;%let dc_3_1_2017=0.775;%let dc_3_2_2017=1.773;%let dc_3_3_2017=2.633;%let dc_3_4_2017=3.696;%let dc_4_1_2017=0.637;%let dc_4_2_2017=1.922;%let dc_4_3_2017=2.944;%let dc_4_4_2017=2.934;%let dc_5_1_2017=0.44;%let dc_5_2_2017=1.256;%let dc_5_3_2017=1.085;%let dc_5_4_2017=2.1;%let dc_6_1_2017=0.127;%let dc_6_2_2017=0.704;%let dc_6_3_2017=1.105;%let dc_6_4_2017=0.958;%let dc_7_1_2017=0.047;%let dc_7_2_2017=0.387;%let dc_7_3_2017=0.489;%let dc_7_4_2017=0.733;%let dc_8_1_2017=0.076;%let dc_8_2_2017=0.072;%let dc_8_3_2017=0.064;%let dc_8_4_2017=0.209; %let dc_1_1_2018=0.100;%let dc_1_2_2018=0.662;%let dc_1_3_2018=0.979;%let dc_1_4_2018=0.45;%let dc_2_1_2018=0.337;%let dc_2_2_2018=1.307;%let dc_2_3_2018=2.201;%let dc_2_4_2018=2.002;%let dc_3_1_2018=0.716;%let dc_3_2_2018=1.841;%let dc_3_3_2018=2.427;%let dc_3_4_2018=3.677;%let dc_4_1_2018=0.7;%let dc_4_2_2018=1.891;%let dc_4_3_2018=2.69;%let dc_4_4_2018=3.463;%let dc_5_1_2018=0.369;%let dc_5_2_2018=1.173;%let dc_5_3_2018=1.156;%let dc_5_4_2018=2.304;%let dc_6_1_2018=0.113;%let dc_6_2_2018=0.729;%let dc_6_3_2018=1.049;%let dc_6_4_2018=1.015;%let dc_7_1_2018=0.05;%let dc_7_2_2018=0.424;%let dc_7_3_2018=0.459;%let dc_7_4_2018=1.022;%let dc_8_1_2018=0.052;%let dc_8_2_2018=0.104;%let dc_8_3_2018=0.107;%let dc_8_4_2018=0.147; %let dc_1_1_2019=0.091;%let dc_1_2_2019=0.556;%let dc_1_3_2019=1.196;%let dc_1_4_2019=0.389;%let dc_2_1_2019=0.342;%let dc_2_2_2019=1.317;%let dc_2_3_2019=2.365;%let dc_2_4_2019=1.967;%let dc_3_1_2019=0.657;%let dc_3_2_2019=1.91;%let dc_3_3_2019=2.221;%let dc_3_4_2019=3.659;%let dc_4_1_2019=0.762;%let dc_4_2_2019=1.86;%let dc_4_3_2019=2.435;%let dc_4_4_2019=3.993;%let dc_5_1_2019=0.298;%let dc_5_2_2019=1.089;%let dc_5_3_2019=1.227;%let dc_5_4_2019=2.508;%let dc_6_1_2019=0.099;%let dc_6_2_2019=0.753;%let dc_6_3_2019=0.994;%let dc_6_4_2019=1.071;%let dc_7_1_2019=0.053;%let dc_7_2_2019=0.461;%let dc_7_3_2019=0.43;%let dc_7_4_2019=1.312;%let dc_8_1_2019=0.027;%let dc_8_2_2019=0.136;%let dc_8_3_2019=0.149;%let dc_8_4_2019=0.086; %let dc_1_1_2020=0;%let dc_1_2_2020=0;%let dc_1_3_2020=0;%let dc_1_4_2020=0;%let dc_2_1_2020=0;%let dc_2_2_2020=0;%let dc_2_3_2020=0;%let dc_2_4_2020=0;%let dc_3_1_2020=0;%let dc_3_2_2020=0;%let dc_3_3_2020=0;%let dc_3_4_2020=0;%let dc_4_1_2020=0;%let dc_4_2_2020=0;%let dc_4_3_2020=0;%let dc_4_4_2020=0;%let dc_5_1_2020=0;%let dc_5_2_2020=0;%let dc_5_3_2020=0;%let dc_5_4_2020=0;%let dc_6_1_2020=0;%let dc_6_2_2020=0;%let dc_6_3_2020=0;%let dc_6_4_2020=0;%let dc_7_1_2020=0;%let dc_7_2_2020=0;%let dc_7_3_2020=0;%let dc_7_4_2020=0;%let dc_8_1_2020=0;%let dc_8_2_2020=0;%let dc_8_3_2020=0;%let dc_8_4_2020=0; * Estate tax (online data tab C24); %let frdb1960=1; %let est1960=2242; %let est_1_1960=0.107;%let est_2_1960=0.213;%let est_3_1960=0.092;%let est_4_1960=0.246;%let est_5_1960=0.098;%let est_6_1960=0.118;%let est_7_1960=0.064;%let est_8_1960=0.062; %let frdb1961=1; %let est1961=2509; %let est_1_1961=0.107;%let est_2_1961=0.213;%let est_3_1961=0.092;%let est_4_1961=0.246;%let est_5_1961=0.098;%let est_6_1961=0.118;%let est_7_1961=0.064;%let est_8_1961=0.062; %let frdb1962=1; %let est1962=2638; %let est_1_1962=0.107;%let est_2_1962=0.213;%let est_3_1962=0.092;%let est_4_1962=0.246;%let est_5_1962=0.098;%let est_6_1962=0.118;%let est_7_1962=0.064;%let est_8_1962=0.062; %let frdb1963=1; %let est1963=2885; %let est_1_1963=0.107;%let est_2_1963=0.213;%let est_3_1963=0.092;%let est_4_1963=0.246;%let est_5_1963=0.098;%let est_6_1963=0.118;%let est_7_1963=0.064;%let est_8_1963=0.062; %let frdb1964=1; %let est1964=3305; %let est_1_1964=0.107;%let est_2_1964=0.213;%let est_3_1964=0.092;%let est_4_1964=0.246;%let est_5_1964=0.098;%let est_6_1964=0.118;%let est_7_1964=0.064;%let est_8_1964=0.062; %let frdb1965=1; %let est1965=3608; %let est_1_1965=0.107;%let est_2_1965=0.213;%let est_3_1965=0.092;%let est_4_1965=0.246;%let est_5_1965=0.098;%let est_6_1965=0.118;%let est_7_1965=0.064;%let est_8_1965=0.062; %let frdb1966=1; %let est1966=3886; %let est_1_1966=0.107;%let est_2_1966=0.213;%let est_3_1966=0.092;%let est_4_1966=0.246;%let est_5_1966=0.098;%let est_6_1966=0.118;%let est_7_1966=0.064;%let est_8_1966=0.062; %let frdb1967=1; %let est1967=3978; %let est_1_1967=0.107;%let est_2_1967=0.213;%let est_3_1967=0.092;%let est_4_1967=0.246;%let est_5_1967=0.098;%let est_6_1967=0.118;%let est_7_1967=0.064;%let est_8_1967=0.062; %let frdb1968=1; %let est1968=4088; %let est_1_1968=0.107;%let est_2_1968=0.213;%let est_3_1968=0.092;%let est_4_1968=0.246;%let est_5_1968=0.098;%let est_6_1968=0.118;%let est_7_1968=0.064;%let est_8_1968=0.062; %let frdb1969=0.999; %let est1969=4625; %let est_1_1969=0.107;%let est_2_1969=0.213;%let est_3_1969=0.092;%let est_4_1969=0.246;%let est_5_1969=0.098;%let est_6_1969=0.118;%let est_7_1969=0.064;%let est_8_1969=0.062; %let frdb1970=0.998; %let est1970=4764; %let est_1_1970=0.107;%let est_2_1970=0.213;%let est_3_1970=0.092;%let est_4_1970=0.246;%let est_5_1970=0.098;%let est_6_1970=0.118;%let est_7_1970=0.064;%let est_8_1970=0.062; %let frdb1971=0.998; %let est1971=5797; %let est_1_1971=0.107;%let est_2_1971=0.213;%let est_3_1971=0.092;%let est_4_1971=0.246;%let est_5_1971=0.098;%let est_6_1971=0.118;%let est_7_1971=0.064;%let est_8_1971=0.062; %let frdb1972=0.998; %let est1972=6804; %let est_1_1972=0.107;%let est_2_1972=0.213;%let est_3_1972=0.092;%let est_4_1972=0.246;%let est_5_1972=0.098;%let est_6_1972=0.118;%let est_7_1972=0.064;%let est_8_1972=0.062; %let frdb1973=0.998; %let est1973=6601; %let est_1_1973=0.107;%let est_2_1973=0.213;%let est_3_1973=0.092;%let est_4_1973=0.246;%let est_5_1973=0.098;%let est_6_1973=0.118;%let est_7_1973=0.064;%let est_8_1973=0.062; %let frdb1974=0.998; %let est1974=6298; %let est_1_1974=0.107;%let est_2_1974=0.213;%let est_3_1974=0.092;%let est_4_1974=0.246;%let est_5_1974=0.098;%let est_6_1974=0.118;%let est_7_1974=0.064;%let est_8_1974=0.062; %let frdb1975=0.997; %let est1975=6448; %let est_1_1975=0.107;%let est_2_1975=0.213;%let est_3_1975=0.092;%let est_4_1975=0.246;%let est_5_1975=0.098;%let est_6_1975=0.118;%let est_7_1975=0.064;%let est_8_1975=0.062; %let frdb1976=0.997; %let est1976=7236; %let est_1_1976=0.107;%let est_2_1976=0.213;%let est_3_1976=0.092;%let est_4_1976=0.246;%let est_5_1976=0.098;%let est_6_1976=0.118;%let est_7_1976=0.064;%let est_8_1976=0.062; %let frdb1977=0.995; %let est1977=9276; %let est_1_1977=0.107;%let est_2_1977=0.213;%let est_3_1977=0.092;%let est_4_1977=0.246;%let est_5_1977=0.098;%let est_6_1977=0.118;%let est_7_1977=0.064;%let est_8_1977=0.062; %let frdb1978=0.995; %let est1978=7189; %let est_1_1978=0.107;%let est_2_1978=0.213;%let est_3_1978=0.092;%let est_4_1978=0.246;%let est_5_1978=0.098;%let est_6_1978=0.118;%let est_7_1978=0.064;%let est_8_1978=0.062; %let frdb1979=0.995; %let est1979=7541; %let est_1_1979=0.107;%let est_2_1979=0.213;%let est_3_1979=0.092;%let est_4_1979=0.246;%let est_5_1979=0.098;%let est_6_1979=0.118;%let est_7_1979=0.064;%let est_8_1979=0.062; %let frdb1980=0.995; %let est1980=8778; %let est_1_1980=0.107;%let est_2_1980=0.213;%let est_3_1980=0.092;%let est_4_1980=0.246;%let est_5_1980=0.098;%let est_6_1980=0.118;%let est_7_1980=0.064;%let est_8_1980=0.062; %let frdb1981=0.907; %let est1981=9262; %let est_1_1981=0.107;%let est_2_1981=0.213;%let est_3_1981=0.092;%let est_4_1981=0.246;%let est_5_1981=0.098;%let est_6_1981=0.118;%let est_7_1981=0.064;%let est_8_1981=0.062; %let frdb1982=0.874; %let est1982=10103; %let est_1_1982=0.107;%let est_2_1982=0.213;%let est_3_1982=0.092;%let est_4_1982=0.246;%let est_5_1982=0.098;%let est_6_1982=0.118;%let est_7_1982=0.064;%let est_8_1982=0.062; %let frdb1983=0.85; %let est1983=8290; %let est_1_1983=0.106;%let est_2_1983=0.211;%let est_3_1983=0.091;%let est_4_1983=0.244;%let est_5_1983=0.098;%let est_6_1983=0.12;%let est_7_1983=0.067;%let est_8_1983=0.063; %let frdb1984=0.797; %let est1984=8360; %let est_1_1984=0.105;%let est_2_1984=0.211;%let est_3_1984=0.09;%let est_4_1984=0.242;%let est_5_1984=0.097;%let est_6_1984=0.122;%let est_7_1984=0.069;%let est_8_1984=0.064; %let frdb1985=0.776; %let est1985=8934; %let est_1_1985=0.104;%let est_2_1985=0.209;%let est_3_1985=0.088;%let est_4_1985=0.239;%let est_5_1985=0.097;%let est_6_1985=0.124;%let est_7_1985=0.073;%let est_8_1985=0.066; %let frdb1986=0.732; %let est1986=10019; %let est_1_1986=0.103;%let est_2_1986=0.205;%let est_3_1986=0.086;%let est_4_1986=0.235;%let est_5_1986=0.097;%let est_6_1986=0.128;%let est_7_1986=0.078;%let est_8_1986=0.068; %let frdb1987=0.703; %let est1987=10576; %let est_1_1987=0.102;%let est_2_1987=0.203;%let est_3_1987=0.084;%let est_4_1987=0.231;%let est_5_1987=0.096;%let est_6_1987=0.131;%let est_7_1987=0.083;%let est_8_1987=0.07; %let frdb1988=0.681; %let est1988=11114; %let est_1_1988=0.102;%let est_2_1988=0.204;%let est_3_1988=0.085;%let est_4_1988=0.232;%let est_5_1988=0.096;%let est_6_1988=0.13;%let est_7_1988=0.081;%let est_8_1988=0.07; %let frdb1989=0.701; %let est1989=12435; %let est_1_1989=0.102;%let est_2_1989=0.205;%let est_3_1989=0.085;%let est_4_1989=0.233;%let est_5_1989=0.097;%let est_6_1989=0.129;%let est_7_1989=0.08;%let est_8_1989=0.069; %let frdb1990=0.668; %let est1990=15755; %let est_1_1990=0.102;%let est_2_1990=0.205;%let est_3_1990=0.086;%let est_4_1990=0.234;%let est_5_1990=0.097;%let est_6_1990=0.128;%let est_7_1990=0.079;%let est_8_1990=0.069; %let frdb1991=0.688; %let est1991=15597; %let est_1_1991=0.103;%let est_2_1991=0.205;%let est_3_1991=0.086;%let est_4_1991=0.235;%let est_5_1991=0.097;%let est_6_1991=0.128;%let est_7_1991=0.078;%let est_8_1991=0.068; %let frdb1992=0.683; %let est1992=15795; %let est_1_1992=0.103;%let est_2_1992=0.207;%let est_3_1992=0.086;%let est_4_1992=0.235;%let est_5_1992=0.097;%let est_6_1992=0.127;%let est_7_1992=0.077;%let est_8_1992=0.068; %let frdb1993=0.679; %let est1993=17637; %let est_1_1993=0.103;%let est_2_1993=0.206;%let est_3_1993=0.087;%let est_4_1993=0.236;%let est_5_1993=0.097;%let est_6_1993=0.127;%let est_7_1993=0.077;%let est_8_1993=0.067; %let frdb1994=0.67; %let est1994=20228; %let est_1_1994=0.104;%let est_2_1994=0.207;%let est_3_1994=0.087;%let est_4_1994=0.236;%let est_5_1994=0.097;%let est_6_1994=0.126;%let est_7_1994=0.076;%let est_8_1994=0.067; %let frdb1995=0.688; %let est1995=20039; %let est_1_1995=0.104;%let est_2_1995=0.207;%let est_3_1995=0.087;%let est_4_1995=0.237;%let est_5_1995=0.097;%let est_6_1995=0.126;%let est_7_1995=0.075;%let est_8_1995=0.067; %let frdb1996=0.689; %let est1996=23110; %let est_1_1996=0.103;%let est_2_1996=0.207;%let est_3_1996=0.088;%let est_4_1996=0.237;%let est_5_1996=0.097;%let est_6_1996=0.126;%let est_7_1996=0.075;%let est_8_1996=0.067; %let frdb1997=0.685; %let est1997=26974; %let est_1_1997=0.103;%let est_2_1997=0.207;%let est_3_1997=0.088;%let est_4_1997=0.238;%let est_5_1997=0.097;%let est_6_1997=0.125;%let est_7_1997=0.075;%let est_8_1997=0.067; %let frdb1998=0.68; %let est1998=32393; %let est_1_1998=0.104;%let est_2_1998=0.207;%let est_3_1998=0.087;%let est_4_1998=0.237;%let est_5_1998=0.097;%let est_6_1998=0.126;%let est_7_1998=0.075;%let est_8_1998=0.067; %let frdb1999=0.67; %let est1999=36705; %let est_1_1999=0.104;%let est_2_1999=0.207;%let est_3_1999=0.087;%let est_4_1999=0.236;%let est_5_1999=0.097;%let est_6_1999=0.126;%let est_7_1999=0.076;%let est_8_1999=0.067; %let frdb2000=0.66; %let est2000=35640; %let est_1_2000=0.103;%let est_2_2000=0.207;%let est_3_2000=0.087;%let est_4_2000=0.236;%let est_5_2000=0.097;%let est_6_2000=0.127;%let est_7_2000=0.076;%let est_8_2000=0.067; %let frdb2001=0.645; %let est2001=35697; %let est_1_2001=0.103;%let est_2_2001=0.207;%let est_3_2001=0.087;%let est_4_2001=0.237;%let est_5_2001=0.097;%let est_6_2001=0.126;%let est_7_2001=0.076;%let est_8_2001=0.067; %let frdb2002=0.619; %let est2002=32654; %let est_1_2002=0.1;%let est_2_2002=0.2;%let est_3_2002=0.082;%let est_4_2002=0.227;%let est_5_2002=0.096;%let est_6_2002=0.134;%let est_7_2002=0.088;%let est_8_2002=0.073; %let frdb2003=0.613; %let est2003=28345; %let est_1_2003=0.1;%let est_2_2003=0.2;%let est_3_2003=0.082;%let est_4_2003=0.228;%let est_5_2003=0.096;%let est_6_2003=0.134;%let est_7_2003=0.087;%let est_8_2003=0.073; %let frdb2004=0.592; %let est2004=30355; %let est_1_2004=0.095;%let est_2_2004=0.191;%let est_3_2004=0.074;%let est_4_2004=0.214;%let est_5_2004=0.095;%let est_6_2004=0.146;%let est_7_2004=0.104;%let est_8_2004=0.081; %let frdb2005=0.6; %let est2005=30425; %let est_1_2005=0.096;%let est_2_2005=0.191;%let est_3_2005=0.075;%let est_4_2005=0.215;%let est_5_2005=0.095;%let est_6_2005=0.145;%let est_7_2005=0.103;%let est_8_2005=0.08; %let frdb2006=0.56; %let est2006=33078; %let est_1_2006=0.091;%let est_2_2006=0.182;%let est_3_2006=0.068;%let est_4_2006=0.203;%let est_5_2006=0.094;%let est_6_2006=0.155;%let est_7_2006=0.119;%let est_8_2006=0.088; %let frdb2007=0.588; %let est2007=31927; %let est_1_2007=0.092;%let est_2_2007=0.184;%let est_3_2007=0.068;%let est_4_2007=0.204;%let est_5_2007=0.094;%let est_6_2007=0.154;%let est_7_2007=0.117;%let est_8_2007=0.087; %let frdb2008=0.592; %let est2008=33695; %let est_1_2008=0.093;%let est_2_2008=0.185;%let est_3_2008=0.069;%let est_4_2008=0.205;%let est_5_2008=0.094;%let est_6_2008=0.153;%let est_7_2008=0.115;%let est_8_2008=0.086; %let frdb2009=0.571; %let est2009=25206; %let est_1_2009=0.079;%let est_2_2009=0.157;%let est_3_2009=0.047;%let est_4_2009=0.167;%let est_5_2009=0.09;%let est_6_2009=0.186;%let est_7_2009=0.164;%let est_8_2009=0.11; %let frdb2010=0.549; %let est2010=19699; %let est_1_2010=0.066;%let est_2_2010=0.131;%let est_3_2010=0.026;%let est_4_2010=0.13;%let est_5_2010=0.087;%let est_6_2010=0.218;%let est_7_2010=0.21;%let est_8_2010=0.132; %let frdb2011=0.523; %let est2011=14721; %let est_1_2011=0.067;%let est_2_2011=0.134;%let est_3_2011=0.028;%let est_4_2011=0.133;%let est_5_2011=0.087;%let est_6_2011=0.215;%let est_7_2011=0.206;%let est_8_2011=0.13; %let frdb2012=0.503; %let est2012=19238; %let est_1_2012=0.067;%let est_2_2012=0.134;%let est_3_2012=0.027;%let est_4_2012=0.132;%let est_5_2012=0.087;%let est_6_2012=0.216;%let est_7_2012=0.207;%let est_8_2012=0.13; %let frdb2013=0.519; %let est2013=26178; %let est_1_2013=0.066;%let est_2_2013=0.133;%let est_3_2013=0.026;%let est_4_2013=0.131;%let est_5_2013=0.087;%let est_6_2013=0.217;%let est_7_2013=0.209;%let est_8_2013=0.131; %let frdb2014=0.491; %let est2014=23763; %let est_1_2014=0.066;%let est_2_2014=0.133;%let est_3_2014=0.026;%let est_4_2014=0.131;%let est_5_2014=0.087;%let est_6_2014=0.217;%let est_7_2014=0.209;%let est_8_2014=0.131; %let frdb2015=0.477; %let est2015=25582; %let est_1_2015=0.066;%let est_2_2015=0.131;%let est_3_2015=0.025;%let est_4_2015=0.129;%let est_5_2015=0.087;%let est_6_2015=0.219;%let est_7_2015=0.211;%let est_8_2015=0.132; %let frdb2016=0.465; %let est2016=25389; %let est_1_2016=0.066;%let est_2_2016=0.131;%let est_3_2016=0.025;%let est_4_2016=0.129;%let est_5_2016=0.087;%let est_6_2016=0.219;%let est_7_2016=0.211;%let est_8_2016=0.132; %let frdb2017=0.475; %let est2017=28486; %let est_1_2017=0.066;%let est_2_2017=0.131;%let est_3_2017=0.025;%let est_4_2017=0.129;%let est_5_2017=0.087;%let est_6_2017=0.219;%let est_7_2017=0.211;%let est_8_2017=0.132; %let frdb2018=0.483; %let est2018=28289; %let est_1_2018=0.069;%let est_2_2018=0.139;%let est_3_2018=0.022;%let est_4_2018=0.117;%let est_5_2018=0.087;%let est_6_2018=0.229;%let est_7_2018=0.234;%let est_8_2018=0.103; %let frdb2019=0.465; %let est2019=21744; %let est_1_2019=0.072;%let est_2_2019=0.145;%let est_3_2019=0.02;%let est_4_2019=0.106;%let est_5_2019=0.087;%let est_6_2019=0.239;%let est_7_2019=0.257;%let est_8_2019=0.074; %let c1_1960=0.032; %let c2_1960=0.063; %let c3_1960=0.053; %let c4_1960=0.241; %let c5_1960=0.094; %let c6_1960=0.183; %let c7_1960=0.18; %let c8_1960=0.154; %let c1_1961=0.035; %let c2_1961=0.07; %let c3_1961=0.063; %let c4_1961=0.222; %let c5_1961=0.091; %let c6_1961=0.181; %let c7_1961=0.18; %let c8_1961=0.157; %let c1_1962=0.037; %let c2_1962=0.073; %let c3_1962=0.063; %let c4_1962=0.224; %let c5_1962=0.092; %let c6_1962=0.181; %let c7_1962=0.18; %let c8_1962=0.15; %let c1_1963=0.035; %let c2_1963=0.069; %let c3_1963=0.065; %let c4_1963=0.223; %let c5_1963=0.092; %let c6_1963=0.182; %let c7_1963=0.18; %let c8_1963=0.153; %let c1_1964=0.029; %let c2_1964=0.059; %let c3_1964=0.068; %let c4_1964=0.226; %let c5_1964=0.093; %let c6_1964=0.185; %let c7_1964=0.183; %let c8_1964=0.157; %let c1_1965=0.05; %let c2_1965=0.1; %let c3_1965=0.066; %let c4_1965=0.217; %let c5_1965=0.087; %let c6_1965=0.168; %let c7_1965=0.169; %let c8_1965=0.143; %let c1_1966=0.036; %let c2_1966=0.071; %let c3_1966=0.072; %let c4_1966=0.235; %let c5_1966=0.092; %let c6_1966=0.171; %let c7_1966=0.176; %let c8_1966=0.147; %let c1_1967=0.038; %let c2_1967=0.076; %let c3_1967=0.073; %let c4_1967=0.234; %let c5_1967=0.091; %let c6_1967=0.178; %let c7_1967=0.17; %let c8_1967=0.141; %let c1_1968=0.04; %let c2_1968=0.08; %let c3_1968=0.073; %let c4_1968=0.228; %let c5_1968=0.088; %let c6_1968=0.173; %let c7_1968=0.171; %let c8_1968=0.147; %let c1_1969=0.044; %let c2_1969=0.089; %let c3_1969=0.073; %let c4_1969=0.221; %let c5_1969=0.086; %let c6_1969=0.165; %let c7_1969=0.168; %let c8_1969=0.154; %let c1_1970=0.044; %let c2_1970=0.089; %let c3_1970=0.074; %let c4_1970=0.233; %let c5_1970=0.088; %let c6_1970=0.166; %let c7_1970=0.163; %let c8_1970=0.143; %let c1_1971=0.046; %let c2_1971=0.091; %let c3_1971=0.071; %let c4_1971=0.239; %let c5_1971=0.091; %let c6_1971=0.165; %let c7_1971=0.159; %let c8_1971=0.138; %let c1_1972=0.047; %let c2_1972=0.093; %let c3_1972=0.079; %let c4_1972=0.244; %let c5_1972=0.091; %let c6_1972=0.163; %let c7_1972=0.153; %let c8_1972=0.13; %let c1_1973=0.05; %let c2_1973=0.1; %let c3_1973=0.087; %let c4_1973=0.246; %let c5_1973=0.089; %let c6_1973=0.161; %let c7_1973=0.148; %let c8_1973=0.118; %let c1_1974=0.054; %let c2_1974=0.109; %let c3_1974=0.088; %let c4_1974=0.25; %let c5_1974=0.086; %let c6_1974=0.155; %let c7_1974=0.144; %let c8_1974=0.114; %let c1_1975=0.054; %let c2_1975=0.108; %let c3_1975=0.093; %let c4_1975=0.257; %let c5_1975=0.091; %let c6_1975=0.152; %let c7_1975=0.135; %let c8_1975=0.11; %let c1_1976=0.053; %let c2_1976=0.107; %let c3_1976=0.099; %let c4_1976=0.258; %let c5_1976=0.092; %let c6_1976=0.151; %let c7_1976=0.132; %let c8_1976=0.108; %let c1_1977=0.050; %let c2_1977=0.101; %let c3_1977=0.098; %let c4_1977=0.264; %let c5_1977=0.091; %let c6_1977=0.154; %let c7_1977=0.133; %let c8_1977=0.109; %let c1_1978=0.050; %let c2_1978=0.101; %let c3_1978=0.099; %let c4_1978=0.263; %let c5_1978=0.086; %let c6_1978=0.153; %let c7_1978=0.135; %let c8_1978=0.114; %let c1_1979=0.049; %let c2_1979=0.095; %let c3_1979=0.090; %let c4_1979=0.240; %let c5_1979=0.079; %let c6_1979=0.157; %let c7_1979=0.147; %let c8_1979=0.143; %let c1_1980=0.054; %let c2_1980=0.108; %let c3_1980=0.089; %let c4_1980=0.237; %let c5_1980=0.083; %let c6_1980=0.154; %let c7_1980=0.147; %let c8_1980=0.127; %let c1_1981=0.054; %let c2_1981=0.109; %let c3_1981=0.082; %let c4_1981=0.224; %let c5_1981=0.077; %let c6_1981=0.158; %let c7_1981=0.158; %let c8_1981=0.137; %let c1_1982=0.056; %let c2_1982=0.111; %let c3_1982=0.072; %let c4_1982=0.2; %let c5_1982=0.079; %let c6_1982=0.152; %let c7_1982=0.167; %let c8_1982=0.162; %let c1_1983=0.055; %let c2_1983=0.109; %let c3_1983=0.078; %let c4_1983=0.204; %let c5_1983=0.084; %let c6_1983=0.154; %let c7_1983=0.171; %let c8_1983=0.146; %let c1_1984=0.053; %let c2_1984=0.105; %let c3_1984=0.071; %let c4_1984=0.201; %let c5_1984=0.083; %let c6_1984=0.142; %let c7_1984=0.172; %let c8_1984=0.172; %let c1_1985=0.054; %let c2_1985=0.108; %let c3_1985=0.075; %let c4_1985=0.192; %let c5_1985=0.077; %let c6_1985=0.157; %let c7_1985=0.178; %let c8_1985=0.159; %let c1_1986=0.058; %let c2_1986=0.117; %let c3_1986=0.069; %let c4_1986=0.203; %let c5_1986=0.076; %let c6_1986=0.15; %let c7_1986=0.162; %let c8_1986=0.165; %let c1_1987=0.066; %let c2_1987=0.131; %let c3_1987=0.081; %let c4_1987=0.219; %let c5_1987=0.081; %let c6_1987=0.151; %let c7_1987=0.145; %let c8_1987=0.126; %let c1_1988=0.053; %let c2_1988=0.107; %let c3_1988=0.061; %let c4_1988=0.181; %let c5_1988=0.081; %let c6_1988=0.16; %let c7_1988=0.183; %let c8_1988=0.174; %let c1_1989=0.063; %let c2_1989=0.125; %let c3_1989=0.073; %let c4_1989=0.18; %let c5_1989=0.08; %let c6_1989=0.16; %let c7_1989=0.157; %let c8_1989=0.162; %let c1_1990=0.062; %let c2_1990=0.125; %let c3_1990=0.071; %let c4_1990=0.187; %let c5_1990=0.076; %let c6_1990=0.155; %let c7_1990=0.159; %let c8_1990=0.165; %let c1_1991=0.065; %let c2_1991=0.131; %let c3_1991=0.077; %let c4_1991=0.199; %let c5_1991=0.076; %let c6_1991=0.15; %let c7_1991=0.151; %let c8_1991=0.151; %let c1_1992=0.061; %let c2_1992=0.123; %let c3_1992=0.073; %let c4_1992=0.197; %let c5_1992=0.077; %let c6_1992=0.145; %let c7_1992=0.157; %let c8_1992=0.167; %let c1_1993=0.063; %let c2_1993=0.127; %let c3_1993=0.078; %let c4_1993=0.196; %let c5_1993=0.071; %let c6_1993=0.142; %let c7_1993=0.154; %let c8_1993=0.169; %let c1_1994=0.058; %let c2_1994=0.115; %let c3_1994=0.069; %let c4_1994=0.192; %let c5_1994=0.075; %let c6_1994=0.144; %let c7_1994=0.163; %let c8_1994=0.184; %let c1_1995=0.057; %let c2_1995=0.115; %let c3_1995=0.072; %let c4_1995=0.191; %let c5_1995=0.069; %let c6_1995=0.15; %let c7_1995=0.167; %let c8_1995=0.178; %let c1_1996=0.054; %let c2_1996=0.108; %let c3_1996=0.071; %let c4_1996=0.181; %let c5_1996=0.074; %let c6_1996=0.146; %let c7_1996=0.171; %let c8_1996=0.195; %let c1_1997=0.058; %let c2_1997=0.115; %let c3_1997=0.07; %let c4_1997=0.18; %let c5_1997=0.071; %let c6_1997=0.15; %let c7_1997=0.169; %let c8_1997=0.187; %let c1_1998=0.056; %let c2_1998=0.112; %let c3_1998=0.072; %let c4_1998=0.173; %let c5_1998=0.068; %let c6_1998=0.147; %let c7_1998=0.181; %let c8_1998=0.192; %let c1_1999=0.057; %let c2_1999=0.115; %let c3_1999=0.068; %let c4_1999=0.181; %let c5_1999=0.071; %let c6_1999=0.147; %let c7_1999=0.175; %let c8_1999=0.185; %let c1_2000=0.056; %let c2_2000=0.113; %let c3_2000=0.066; %let c4_2000=0.168; %let c5_2000=0.072; %let c6_2000=0.145; %let c7_2000=0.18; %let c8_2000=0.2; %let c1_2001=0.049; %let c2_2001=0.098; %let c3_2001=0.059; %let c4_2001=0.169; %let c5_2001=0.066; %let c6_2001=0.149; %let c7_2001=0.18; %let c8_2001=0.23; %let c1_2002=0.041; %let c2_2002=0.083; %let c3_2002=0.06; %let c4_2002=0.176; %let c5_2002=0.072; %let c6_2002=0.159; %let c7_2002=0.178; %let c8_2002=0.231; %let c1_2003=0.04; %let c2_2003=0.079; %let c3_2003=0.056; %let c4_2003=0.177; %let c5_2003=0.074; %let c6_2003=0.157; %let c7_2003=0.18; %let c8_2003=0.236; %let c1_2004=0.041; %let c2_2004=0.081; %let c3_2004=0.056; %let c4_2004=0.175; %let c5_2004=0.072; %let c6_2004=0.156; %let c7_2004=0.188; %let c8_2004=0.231; %let c1_2005=0.042; %let c2_2005=0.083; %let c3_2005=0.059; %let c4_2005=0.172; %let c5_2005=0.072; %let c6_2005=0.157; %let c7_2005=0.192; %let c8_2005=0.223; %let c1_2006=0.042; %let c2_2006=0.084; %let c3_2006=0.059; %let c4_2006=0.165; %let c5_2006=0.075; %let c6_2006=0.156; %let c7_2006=0.194; %let c8_2006=0.226; %let c1_2007=0.044; %let c2_2007=0.089; %let c3_2007=0.057; %let c4_2007=0.16; %let c5_2007=0.071; %let c6_2007=0.153; %let c7_2007=0.189; %let c8_2007=0.237; %let c1_2008=0.037; %let c2_2008=0.075; %let c3_2008=0.05; %let c4_2008=0.149; %let c5_2008=0.07; %let c6_2008=0.153; %let c7_2008=0.197; %let c8_2008=0.268; %let c1_2009=0.034; %let c2_2009=0.069; %let c3_2009=0.055; %let c4_2009=0.156; %let c5_2009=0.07; %let c6_2009=0.153; %let c7_2009=0.18; %let c8_2009=0.283; %let c1_2010=0.031; %let c2_2010=0.063; %let c3_2010=0.049; %let c4_2010=0.141; %let c5_2010=0.063; %let c6_2010=0.143; %let c7_2010=0.188; %let c8_2010=0.321; %let c1_2011=0.038; %let c2_2011=0.076; %let c3_2011=0.051; %let c4_2011=0.148; %let c5_2011=0.064; %let c6_2011=0.146; %let c7_2011=0.193; %let c8_2011=0.285; %let c1_2012=0.033; %let c2_2012=0.065; %let c3_2012=0.048; %let c4_2012=0.138; %let c5_2012=0.064; %let c6_2012=0.154; %let c7_2012=0.204; %let c8_2012=0.294; %let c1_2013=0.041; %let c2_2013=0.083; %let c3_2013=0.064; %let c4_2013=0.173; %let c5_2013=0.07; %let c6_2013=0.143; %let c7_2013=0.177; %let c8_2013=0.249; %let c1_2014=0.041; %let c2_2014=0.083; %let c3_2014=0.062; %let c4_2014=0.17; %let c5_2014=0.067; %let c6_2014=0.146; %let c7_2014=0.181; %let c8_2014=0.25; %let c1_2015=0; %let c2_2015=0; %let c3_2015=0; %let c4_2015=0; %let c5_2015=0; %let c6_2015=0; %let c7_2015=0; %let c8_2015=0; %let c1_2016=0; %let c2_2016=0; %let c3_2016=0; %let c4_2016=0; %let c5_2016=0; %let c6_2016=0; %let c7_2016=0; %let c8_2016=0; %let c1_2017=0; %let c2_2017=0; %let c3_2017=0; %let c4_2017=0; %let c5_2017=0; %let c6_2017=0; %let c7_2017=0; %let c8_2017=0; %let c1_2018=0; %let c2_2018=0; %let c3_2018=0; %let c4_2018=0; %let c5_2018=0; %let c6_2018=0; %let c7_2018=0; %let c8_2018=0; %let c1_2019=0; %let c2_2019=0; %let c3_2019=0; %let c4_2019=0; %let c5_2019=0; %let c6_2019=0; %let c7_2019=0; %let c8_2019=0; %let c1_2020=0; %let c2_2020=0; %let c3_2020=0; %let c4_2020=0; %let c5_2020=0; %let c6_2020=0; %let c7_2020=0; %let c8_2020=0; * Medicare premiums (tab T-T2 columns AF and AG) and SSA average wage index; %let mcpr1960=0; %let mcprd1960=0; %let wgindex1960=4007; %let mcpr1961=0; %let mcprd1961=0; %let wgindex1961=4087; %let mcpr1962=0; %let mcprd1962=0; %let wgindex1962=4291; %let mcpr1963=0; %let mcprd1963=0; %let wgindex1963=4397; %let mcpr1964=0; %let mcprd1964=0; %let wgindex1964=4576; %let mcpr1965=0; %let mcprd1965=0; %let wgindex1965=4659; %let mcpr1966=322; %let mcprd1966=0; %let wgindex1966=4938; %let mcpr1967=640; %let mcprd1967=0; %let wgindex1967=5213; %let mcpr1968=832; %let mcprd1968=0; %let wgindex1968=5572; %let mcpr1969=914; %let mcprd1969=0; %let wgindex1969=5894; %let mcpr1970=1096; %let mcprd1970=0; %let wgindex1970=6186; %let mcpr1971=1302; %let mcprd1971=0; %let wgindex1971=6497; %let mcpr1972=1382; %let mcprd1972=0; %let wgindex1972=7134; %let mcpr1973=1550; %let mcprd1973=0; %let wgindex1973=7580; %let mcpr1974=1804; %let mcprd1974=0; %let wgindex1974=8031; %let mcpr1975=1918; %let mcprd1975=0; %let wgindex1975=8631; %let mcpr1976=2060; %let mcprd1976=0; %let wgindex1976=9226; %let mcpr1977=2247; %let mcprd1977=0; %let wgindex1977=9779; %let mcpr1978=2470; %let mcprd1978=0; %let wgindex1978=10556; %let mcpr1979=2719; %let mcprd1979=0; %let wgindex1979=11479; %let mcpr1980=3011; %let mcprd1980=0; %let wgindex1980=12513; %let mcpr1981=3722; %let mcprd1981=0; %let wgindex1981=13773; %let mcpr1982=3697; %let mcprd1982=0; %let wgindex1982=14531; %let mcpr1983=4236; %let mcprd1983=0; %let wgindex1983=15239; %let mcpr1984=5167; %let mcprd1984=0; %let wgindex1984=16135; %let mcpr1985=5613; %let mcprd1985=0; %let wgindex1985=16823; %let mcpr1986=5722; %let mcprd1986=0; %let wgindex1986=17322; %let mcpr1987=7409; %let mcprd1987=0; %let wgindex1987=18427; %let mcpr1988=8761; %let mcprd1988=0; %let wgindex1988=19334; %let mcpr1989=12263; %let mcprd1989=0; %let wgindex1989=20100; %let mcpr1990=11320; %let mcprd1990=0; %let wgindex1990=21028; %let mcpr1991=11934; %let mcprd1991=0; %let wgindex1991=21812; %let mcpr1992=14077; %let mcprd1992=0; %let wgindex1992=22935; %let mcpr1993=14193; %let mcprd1993=0; %let wgindex1993=23133; %let mcpr1994=17386; %let mcprd1994=0; %let wgindex1994=23754; %let mcpr1995=19717; %let mcprd1995=0; %let wgindex1995=24706; %let mcpr1996=18763; %let mcprd1996=0; %let wgindex1996=25914; %let mcpr1997=19289; %let mcprd1997=0; %let wgindex1997=27426; %let mcpr1998=20933; %let mcprd1998=0; %let wgindex1998=28861; %let mcpr1999=18967; %let mcprd1999=0; %let wgindex1999=30470; %let mcpr2000=20555; %let mcprd2000=0; %let wgindex2000=32155; %let mcpr2001=22764; %let mcprd2001=0; %let wgindex2001=32922; %let mcpr2002=25066; %let mcprd2002=0; %let wgindex2002=33252; %let mcpr2003=27402; %let mcprd2003=0; %let wgindex2003=34065; %let mcpr2004=31435; %let mcprd2004=0; %let wgindex2004=35649; %let mcpr2005=37535; %let mcprd2005=0; %let wgindex2005=36953; %let mcpr2006=42853; %let mcprd2006=3484; %let wgindex2006=38651; %let mcpr2007=46773; %let mcprd2007=4071; %let wgindex2007=40405; %let mcpr2008=50232; %let mcprd2008=5030; %let wgindex2008=41335; %let mcpr2009=56040; %let mcprd2009=6330; %let wgindex2009=40712; %let mcpr2010=51986; %let mcprd2010=6527; %let wgindex2010=41674; %let mcpr2011=57514; %let mcprd2011=7714; %let wgindex2011=42980; %let mcpr2012=58024; %let mcprd2012=8334; %let wgindex2012=44322; %let mcpr2013=63085; %let mcprd2013=9925; %let wgindex2013=44888; %let mcpr2014=65644; %let mcprd2014=11377; %let wgindex2014=46482; %let mcpr2015=69446; %let mcprd2015=12758; %let wgindex2015=48099; %let mcpr2016=72055; %let mcprd2016=13799; %let wgindex2016=48642; %let mcpr2017=81522; %let mcprd2017=15494; %let wgindex2017=50322; %let mcpr2018=93300; %let mcprd2018=15900; %let wgindex2018=52146; %let mcpr2019=99400; %let mcprd2019=15800; %let wgindex2019=54100; %let mcpr2020=0; %let mcprd2020=0; %let wgindex2020=0; * Medicare to non-filers (tab C17 column B); %let mcnf1960=0; %let mcnf1961=0; %let mcnf1962=0; %let mcnf1963=0; %let mcnf1964=0; %let mcnf1965=0; %let mcnf1966=0.4601; %let mcnf1967=0.4657; %let mcnf1968=0.4416; %let mcnf1969=0.427; %let mcnf1970=0.4439; %let mcnf1971=0.4905; %let mcnf1972=0.4668; %let mcnf1973=0.4643; %let mcnf1974=0.4791; %let mcnf1975=0.4627; %let mcnf1976=0.4581; %let mcnf1977=0.4742; %let mcnf1978=0.4619; %let mcnf1979=0.4684; %let mcnf1980=0.46; %let mcnf1981=0.4247; %let mcnf1982=0.4019; %let mcnf1983=0.3718; %let mcnf1984=0.3527; %let mcnf1985=0.3273; %let mcnf1986=0.315; %let mcnf1987=0.309; %let mcnf1988=0.3111; %let mcnf1989=0.3087; %let mcnf1990=0.2948; %let mcnf1991=0.288; %let mcnf1992=0.3114; %let mcnf1993=0.3244; %let mcnf1994=0.3311; %let mcnf1995=0.3219; %let mcnf1996=0.3204; %let mcnf1997=0.3244; %let mcnf1998=0.3121; %let mcnf1999=0.3006; %let mcnf2000=0.2895; %let mcnf2001=0.2832; %let mcnf2002=0.2879; %let mcnf2003=0.2847; %let mcnf2004=0.2741; %let mcnf2005=0.2658; %let mcnf2006=0.229; %let mcnf2007=0.229; %let mcnf2008=0.2101; %let mcnf2009=0.2115; %let mcnf2010=0.2089; %let mcnf2011=0.2086; %let mcnf2012=0.2062; %let mcnf2013=0.2067; %let mcnf2014=0.2184; %let mcnf2015=0.2041; %let mcnf2016=0.2453; %let mcnf2017=0.2262; %let mcnf2018=0.2408; %let mcnf2019=0.2408; %let mcnf2020=0.2408; %let mrate1960=1.10; %let mrate1961=1.12; %let mrate1962=1.09; %let mrate1963=1.10; %let mrate1964=1.24; %let mrate1965=1.10; %let mrate1966=1.12; %let mrate1967=1.10; %let mrate1968=1.08; %let mrate1969=1.12; %let mrate1970=1.12; %let mrate1971=1.18; %let mrate1972=1.09; %let mrate1973=1.12; %let mrate1974=1.13; %let mrate1975=1.10; %let mrate1976=1.20; %let mrate1977=1.25; %let mrate1978=1.24; %let mrate1979=1.16; %let mrate1980=1.16; %let mrate1981=1.12; %let mrate1982=1.16; %let mrate1983=1.17; %let mrate1984=1.05; %let mrate1985=1.05; %let mrate1986=1.10; %let mrate1987=1.15; %let mrate1988=1.20; %let mrate1989=1.19; %let mrate1990=1.05; %let mrate1991=1.05; %let mrate1992=1.24; %let mrate1993=1.24; %let mrate1994=1.24; %let mrate1995=1.24; %let mrate1996=1.24; %let mrate1997=1.24; %let mrate1998=1.24; %let mrate1999=1.24; %let mrate2000=1.24; %let mrate2001=1.24; %let mrate2002=1.24; %let mrate2003=1.24; %let mrate2004=1.24; %let mrate2005=1.24; %let mrate2006=1.24; %let mrate2007=1.20; %let mrate2008=1.20; %let mrate2009=1.20; %let mrate2010=1.24; %let mrate2011=1.25; %let mrate2012=1.25; %let mrate2013=1.25; %let mrate2014=1.25; %let mrate2015=1.25; %let mrate2016=1.25; %let mrate2017=1.25; %let mrate2018=1.25; %let mrate2019=1.25; %let mrate2020=1.25; * Employer sponsored insurance (tab C11 column L); %let esi_sin0=0.00024; %let esi_mar0=0.00135; %let esi_sin1=0.09200; %let esi_mar1=0.03420; %let esi_sin2=0.20472; %let esi_mar2=0.41832; %let esi_sin3=0.00987; %let esi_mar3=0.11735; %let esi_sin4=0.00577; %let esi_mar4=0.09568; %let esi_sin5=0.00057; %let esi_mar5=0.01048; %let esi_sin6=0.00040; %let esi_mar6=0.00729; %let esi_sin7=0.00010; %let esi_mar7=0.00147; %let esi_sin8=0.00001; %let esi_mar8=0.00018; %let esi_sinp0=0.00028; %let esi_marp0=0.00155; %let esi_sinp1=0.08782; %let esi_marp1=0.03504; %let esi_sinp2=0.20471; %let esi_marp2=0.42160; %let esi_sinp3=0.00984; %let esi_marp3=0.11790; %let esi_sinp4=0.00563; %let esi_marp4=0.09544; %let esi_sinp5=0.00058; %let esi_marp5=0.01027; %let esi_sinp6=0.00039; %let esi_marp6=0.00723; %let esi_sinp7=0.00009; %let esi_marp7=0.00145; %let esi_sinp8=0.00001; %let esi_marp8=0.00017; %let esi1=0.12800; %let esi2=0.62303; %let esi3=0.12713; %let esi4=0.10137; %let esi5=0.01105; %let esi6=0.00768; %let esi7=0.00157; %let esi8=0.00019; * DISTRIBUTE IMPUTED SS BEFORE 1985; %let ssnf1960=0.5331; %let ss_1_1960=0.3208; %let ss_2_1960=0.1067; %let ss_3_1960=0.0123; %let ss_4_1960=0.0185; %let ss_5_1960=0.0036; %let ss_6_1960=0.0037; %let ss_7_1960=0.0011; %let ss_8_1960=0.0002; %let ssnf1962=0.5331; %let ss_1_1962=0.3208; %let ss_2_1962=0.1067; %let ss_3_1962=0.0123; %let ss_4_1962=0.0185; %let ss_5_1962=0.0036; %let ss_6_1962=0.0037; %let ss_7_1962=0.0011; %let ss_8_1962=0.0002; %let ssnf1964=0.5402; %let ss_1_1964=0.3268; %let ss_2_1964=0.0991; %let ss_3_1964=0.0100; %let ss_4_1964=0.0154; %let ss_5_1964=0.0034; %let ss_6_1964=0.0036; %let ss_7_1964=0.0013; %let ss_8_1964=0.0002; %let ssnf1966=0.5038; %let ss_1_1966=0.341; %let ss_2_1966=0.1145; %let ss_3_1966=0.0116; %let ss_4_1966=0.0198; %let ss_5_1966=0.004; %let ss_6_1966=0.0038; %let ss_7_1966=0.0013; %let ss_8_1966=0.0002; %let ssnf1967=0.5084; %let ss_1_1967=0.3462; %let ss_2_1967=0.1059; %let ss_3_1967=0.0116; %let ss_4_1967=0.0191; %let ss_5_1967=0.0036; %let ss_6_1967=0.0038; %let ss_7_1967=0.0012; %let ss_8_1967=0.0002; %let ssnf1968=0.4864; %let ss_1_1968=0.3507; %let ss_2_1968=0.122; %let ss_3_1968=0.0122; %let ss_4_1968=0.0189; %let ss_5_1968=0.0043; %let ss_6_1968=0.0038; %let ss_7_1968=0.0015; %let ss_8_1968=0.0002; %let ssnf1969=0.4748; %let ss_1_1969=0.3681; %let ss_2_1969=0.1168; %let ss_3_1969=0.0132; %let ss_4_1969=0.0176; %let ss_5_1969=0.0037; %let ss_6_1969=0.0043; %let ss_7_1969=0.0013; %let ss_8_1969=0.0002; %let ssnf1970=0.4874; %let ss_1_1970=0.3668; %let ss_2_1970=0.105; %let ss_3_1970=0.0132; %let ss_4_1970=0.0187; %let ss_5_1970=0.0037; %let ss_6_1970=0.0038; %let ss_7_1970=0.0012; %let ss_8_1970=0.0002; %let ssnf1971=0.5336; %let ss_1_1971=0.3216; %let ss_2_1971=0.1071; %let ss_3_1971=0.0116; %let ss_4_1971=0.0178; %let ss_5_1971=0.0033; %let ss_6_1971=0.0036; %let ss_7_1971=0.0012; %let ss_8_1971=0.0002; %let ssnf1972=0.5124; %let ss_1_1972=0.3234; %let ss_2_1972=0.1257; %let ss_3_1972=0.0121; %let ss_4_1972=0.0176; %let ss_5_1972=0.0038; %let ss_6_1972=0.0037; %let ss_7_1972=0.0011; %let ss_8_1972=0.0002; %let ssnf1973=0.5103; %let ss_1_1973=0.3346; %let ss_2_1973=0.1159; %let ss_3_1973=0.0125; %let ss_4_1973=0.0181; %let ss_5_1973=0.0035; %let ss_6_1973=0.0037; %let ss_7_1973=0.0012; %let ss_8_1973=0.0002; %let ssnf1974=0.5260; %let ss_1_1974=0.3017; %let ss_2_1974=0.1275; %let ss_3_1974=0.0158; %let ss_4_1974=0.0205; %let ss_5_1974=0.0035; %let ss_6_1974=0.0036; %let ss_7_1974=0.0012; %let ss_8_1974=0.0002; %let ssnf1975=0.5121; %let ss_1_1975=0.3138; %let ss_2_1975=0.1358; %let ss_3_1975=0.0129; %let ss_4_1975=0.0171; %let ss_5_1975=0.0035; %let ss_6_1975=0.0036; %let ss_7_1975=0.0011; %let ss_8_1975=0.0001; %let ssnf1976=0.5072; %let ss_1_1976=0.32; %let ss_2_1976=0.1322; %let ss_3_1976=0.0137; %let ss_4_1976=0.0183; %let ss_5_1976=0.0037; %let ss_6_1976=0.0036; %let ss_7_1976=0.0011; %let ss_8_1976=0.0002; %let ssnf1977=0.5244; %let ss_1_1977=0.2966; %let ss_2_1977=0.1391; %let ss_3_1977=0.0132; %let ss_4_1977=0.0184; %let ss_5_1977=0.0035; %let ss_6_1977=0.0036; %let ss_7_1977=0.0011; %let ss_8_1977=0.0001; %let ssnf1978=0.5136; %let ss_1_1978=0.306; %let ss_2_1978=0.1406; %let ss_3_1978=0.0139; %let ss_4_1978=0.0177; %let ss_5_1978=0.0034; %let ss_6_1978=0.0035; %let ss_7_1978=0.0011; %let ss_8_1978=0.0002; %let ssnf1979=0.5186; %let ss_1_1979=0.2945; %let ss_2_1979=0.1399; %let ss_3_1979=0.0154; %let ss_4_1979=0.0214; %let ss_5_1979=0.0045; %let ss_6_1979=0.0043; %let ss_7_1979=0.0013; %let ss_8_1979=0.0001; %let ssnf1980=0.5136; %let ss_1_1980=0.2842; %let ss_2_1980=0.153; %let ss_3_1980=0.0153; %let ss_4_1980=0.0231; %let ss_5_1980=0.0046; %let ss_6_1980=0.0048; %let ss_7_1980=0.0013; %let ss_8_1980=0.0001; %let ssnf1981=0.4814; %let ss_1_1981=0.3016; %let ss_2_1981=0.1629; %let ss_3_1981=0.0176; %let ss_4_1981=0.0252; %let ss_5_1981=0.0051; %let ss_6_1981=0.0048; %let ss_7_1981=0.0013; %let ss_8_1981=0.0001; %let ssnf1982=0.4626; %let ss_1_1982=0.3093; %let ss_2_1982=0.1714; %let ss_3_1982=0.0203; %let ss_4_1982=0.025; %let ss_5_1982=0.0052; %let ss_6_1982=0.0048; %let ss_7_1982=0.0013; %let ss_8_1982=0.0001; %let ssnf1983=0.4337; %let ss_1_1983=0.3282; %let ss_2_1983=0.1831; %let ss_3_1983=0.0195; %let ss_4_1983=0.0245; %let ss_5_1983=0.0047; %let ss_6_1983=0.0049; %let ss_7_1983=0.0013; %let ss_8_1983=0.0001; %let ssnf1984=0.4170; %let ss_1_1984=0.3342; %let ss_2_1984=0.1877; %let ss_3_1984=0.0216; %let ss_4_1984=0.0274; %let ss_5_1984=0.0051; %let ss_6_1984=0.0057; %let ss_7_1984=0.0012; %let ss_8_1984=0.0001; * UI shares from early 1980s returns; %let uinf=(1-0.01701-0.00427-0.00039-0.00013-0.00001)*0.25; %let ui_1=(1-0.01701-0.00427-0.00039-0.00013-0.00001)*0.50; %let ui_2=(1-0.01701-0.00427-0.00039-0.00013-0.00001)*0.25; %let ui_3=0.01701; %let ui_4=0.00427; %let ui_5=0.00039; %let ui_6=0.00013; %let ui_7=0.00001; %let ui_8=0.00000; %let gnoth1962=-193615171.7; %let gnoth1966=-84940516.19; %let xwgt_PS1960=7589; %let xwgt_201960=5285.27; %let xwgt_dep1960=0; %let xwgt_noNR1960=0.71; %let xwgt_mfs1960=1010.41; %let psnfinc1960=906.08; %let xwgt_PS1961=69997.28; %let xwgt_201961=0; %let xwgt_dep1961=0; %let xwgt_noNR1961=0; %let xwgt_mfs1961=0; %let psnfinc1961=788.7; %let xwgt_PS1962=8555.14; %let xwgt_201962=5718.69; %let xwgt_dep1962=0; %let xwgt_noNR1962=4.45; %let xwgt_mfs1962=1817.58; %let psnfinc1962=967.59; %let xwgt_PS1960=7589; %let xwgt_201960=5285.27; %let xwgt_dep1960=0; %let xwgt_noNR1960=0; %let xwgt_mfs1960=1010.41; %let psnfinc1960=906.08; %let xwgt_PS1961=69997.28; %let xwgt_201961=0; %let xwgt_dep1961=0; %let xwgt_noNR1961=0; %let xwgt_mfs1961=0; %let psnfinc1961=788.7; %let xwgt_PS1962=8555.14; %let xwgt_201962=5718.69; %let xwgt_dep1962=0; %let xwgt_noNR1962=1; %let xwgt_mfs1962=1817.58; %let psnfinc1962=967.59; %let xwgt_PS1963=72464.47; %let xwgt_201963=0; %let xwgt_dep1963=0; %let xwgt_noNR1963=0; %let xwgt_mfs1963=0; %let psnfinc1963=857.62; %let xwgt_PS1964=8283.62; %let xwgt_201964=5984.35; %let xwgt_dep1964=0; %let xwgt_noNR1964=4.8; %let xwgt_mfs1964=1451.25; %let psnfinc1964=1068.8; %let xwgt_PS1965=74772.26; %let xwgt_201965=0; %let xwgt_dep1965=0; %let xwgt_noNR1965=0; %let xwgt_mfs1965=0; %let psnfinc1965=963.32; %let xwgt_PS1966=5670.67; %let xwgt_201966=7608.89; %let xwgt_dep1966=0; %let xwgt_noNR1966=21.6; %let xwgt_mfs1966=1470.88; %let psnfinc1966=1223.34; %let xwgt_PS1967=5203.65; %let xwgt_201967=7508.99; %let xwgt_dep1967=0; %let xwgt_noNR1967=8.65; %let xwgt_mfs1967=1323.09; %let psnfinc1967=1293.52; %let xwgt_PS1968=4081.79; %let xwgt_201968=7912.26; %let xwgt_dep1968=0; %let xwgt_noNR1968=4.5; %let xwgt_mfs1968=1391.18; %let psnfinc1968=1396.12; %let xwgt_PS1969=2958.64; %let xwgt_201969=7996.74; %let xwgt_dep1969=0; %let xwgt_noNR1969=0.46; %let xwgt_mfs1969=1217.7; %let psnfinc1969=1498.28; %let xwgt_PS1970=5637.01; %let xwgt_201970=7652.77; %let xwgt_dep1970=0; %let xwgt_noNR1970=87.06; %let xwgt_mfs1970=979.18; %let psnfinc1970=1582.34; %let xwgt_PS1971=7272.78; %let xwgt_201971=7744.13; %let xwgt_dep1971=0; %let xwgt_noNR1971=0.84; %let xwgt_mfs1971=854.89; %let psnfinc1971=1641.23; %let xwgt_PS1972=6072.55; %let xwgt_201972=7663.34; %let xwgt_dep1972=0; %let xwgt_noNR1972=2; %let xwgt_mfs1972=1156.4; %let psnfinc1972=1769.82; %let xwgt_PS1973=4750.82; %let xwgt_201973=8958.34; %let xwgt_dep1973=0; %let xwgt_noNR1973=0.02; %let xwgt_mfs1973=1199.43; %let psnfinc1973=1925.41; %let xwgt_PS1974=3845.35; %let xwgt_201974=9350.12; %let xwgt_dep1974=0; %let xwgt_noNR1974=124.41; %let xwgt_mfs1974=1020.11; %let psnfinc1974=2078.6; %let xwgt_PS1975=6898.34; %let xwgt_201975=9432.2; %let xwgt_dep1975=0; %let xwgt_noNR1975=0; %let xwgt_mfs1975=848.97; %let psnfinc1975=2134.62; %let xwgt_PS1976=6378.08; %let xwgt_201976=9929.3; %let xwgt_dep1976=0; %let xwgt_noNR1976=135.83; %let xwgt_mfs1976=889.85; %let psnfinc1976=2315.25; %let xwgt_PS1977=6441.52; %let xwgt_201977=10124.93; %let xwgt_dep1977=0; %let xwgt_noNR1977=105.52; %let xwgt_mfs1977=600.05; %let psnfinc1977=2490.65; %let xwgt_PS1978=5441.59; %let xwgt_201978=10911.82; %let xwgt_dep1978=0; %let xwgt_noNR1978=123.78; %let xwgt_mfs1978=723.98; %let psnfinc1978=2736.36; %let xwgt_PS1979=4798.58; %let xwgt_201979=11684.56; %let xwgt_dep1979=0; %let xwgt_noNR1979=424.02; %let xwgt_mfs1979=821.39; %let psnfinc1979=3000.17; %let xwgt_PS1980=5722.87; %let xwgt_201980=10963.28; %let xwgt_dep1980=0; %let xwgt_noNR1980=279.46; %let xwgt_mfs1980=814.38; %let psnfinc1980=3238.66; %let xwgt_PS1981=6052.42; %let xwgt_201981=10263.38; %let xwgt_dep1981=0; %let xwgt_noNR1981=598.83; %let xwgt_mfs1981=719.96; %let psnfinc1981=3514.8; %let xwgt_PS1982=7913.01; %let xwgt_201982=9145.12; %let xwgt_dep1982=0; %let xwgt_noNR1982=592.2; %let xwgt_mfs1982=551.47; %let psnfinc1982=3640.02; %let xwgt_PS1983=8745.67; %let xwgt_201983=8863.34; %let xwgt_dep1983=0; %let xwgt_noNR1983=643.71; %let xwgt_mfs1983=457.91; %let psnfinc1983=3753; %let xwgt_PS1984=7444.39; %let xwgt_201984=9087.63; %let xwgt_dep1984=0; %let xwgt_noNR1984=702.58; %let xwgt_mfs1984=427.1; %let psnfinc1984=4048.92; %let xwgt_PS1985=7087.15; %let xwgt_201985=8981.77; %let xwgt_dep1985=0; %let xwgt_noNR1985=682.23; %let xwgt_mfs1985=421.1; %let psnfinc1985=4265.86; %let xwgt_PS1986=7349.95; %let xwgt_201986=8891.09; %let xwgt_dep1986=0; %let xwgt_noNR1986=683.52; %let xwgt_mfs1986=518.94; %let psnfinc1986=4400.17; %let xwgt_PS1987=5643.89; %let xwgt_201987=10805.76; %let xwgt_dep1987=0; %let xwgt_noNR1987=682.89; %let xwgt_mfs1987=772.55; %let psnfinc1987=4691.87; %let xwgt_PS1988=4950.59; %let xwgt_201988=11254.87; %let xwgt_dep1988=0; %let xwgt_noNR1988=730.31; %let xwgt_mfs1988=849.59; %let psnfinc1988=5112.2; %let xwgt_PS1989=4631.66; %let xwgt_201989=11530.38; %let xwgt_dep1989=0; %let xwgt_noNR1989=693.88; %let xwgt_mfs1989=1029.81; %let psnfinc1989=5319.91; %let xwgt_PS1990=5337.86; %let xwgt_201990=11164.8; %let xwgt_dep1990=0; %let xwgt_noNR1990=642.13; %let xwgt_mfs1990=1081.88; %let psnfinc1990=5540.1; %let xwgt_PS1991=5723.14; %let xwgt_201991=10034.65; %let xwgt_dep1991=0; %let xwgt_noNR1991=632.19; %let xwgt_mfs1991=1126.97; %let psnfinc1991=5571.59; %let xwgt_PS1992=8339.55; %let xwgt_201992=9658.63; %let xwgt_dep1992=0; %let xwgt_noNR1992=705.33; %let xwgt_mfs1992=1212.9; %let psnfinc1992=5736.96; %let xwgt_PS1993=8776.68; %let xwgt_201993=9468.87; %let xwgt_dep1993=0; %let xwgt_noNR1993=596.65; %let xwgt_mfs1993=1193.9; %let psnfinc1993=5789.04; %let xwgt_PS1994=8772.67; %let xwgt_201994=9663.26; %let xwgt_dep1994=0; %let xwgt_noNR1994=623.5; %let xwgt_mfs1994=1211.49; %let psnfinc1994=6017.73; %let xwgt_PS1995=7802.18; %let xwgt_201995=10123.18; %let xwgt_dep1995=0; %let xwgt_noNR1995=577.5; %let xwgt_mfs1995=1289.05; %let psnfinc1995=6350.08; %let xwgt_PS1996=7272.06; %let xwgt_201996=10578.69; %let xwgt_dep1996=0; %let xwgt_noNR1996=640.17; %let xwgt_mfs1996=1256.93; %let psnfinc1996=6676.86; %let xwgt_PS1997=6887.55; %let xwgt_201997=11206.35; %let xwgt_dep1997=0; %let xwgt_noNR1997=712.35; %let xwgt_mfs1997=1296.76; %let psnfinc1997=7096.39; %let xwgt_PS1998=6173.36; %let xwgt_201998=11092.42; %let xwgt_dep1998=0; %let xwgt_noNR1998=663.83; %let xwgt_mfs1998=1250.99; %let psnfinc1998=7554.48; %let xwgt_PS1999=3867.25; %let xwgt_201999=11522.98; %let xwgt_dep1999=0; %let xwgt_noNR1999=763.05; %let xwgt_mfs1999=1193.17; %let psnfinc1999=8043.85; %let xwgt_PS2000=4813.76; %let xwgt_202000=11687.27; %let xwgt_dep2000=0; %let xwgt_noNR2000=832.72; %let xwgt_mfs2000=1232.94; %let psnfinc2000=8435.35; %let xwgt_PS2001=6832.77; %let xwgt_202001=10729.76; %let xwgt_dep2001=0; %let xwgt_noNR2001=768.25; %let xwgt_mfs2001=1205.29; %let psnfinc2001=8445.02; %let xwgt_PS2002=9626.55; %let xwgt_202002=9621.84; %let xwgt_dep2002=0; %let xwgt_noNR2002=808.07; %let xwgt_mfs2002=1155.42; %let psnfinc2002=8223.15; %let xwgt_PS2003=11419.37; %let xwgt_202003=9142.78; %let xwgt_dep2003=0; %let xwgt_noNR2003=763.76; %let xwgt_mfs2003=1141.58; %let psnfinc2003=8272.54; %let xwgt_PS2004=11755.96; %let xwgt_202004=9061.62; %let xwgt_dep2004=0; %let xwgt_noNR2004=824.91; %let xwgt_mfs2004=1213.5; %let psnfinc2004=8724.27; %let xwgt_PS2005=11508.32; %let xwgt_202005=9146.81; %let xwgt_dep2005=0; %let xwgt_noNR2005=767.76; %let xwgt_mfs2005=1220.58; %let psnfinc2005=9218.64; %let xwgt_PS2006=9966.25; %let xwgt_202006=9355.86; %let xwgt_dep2006=0; %let xwgt_noNR2006=821.84; %let xwgt_mfs2006=1244.02; %let psnfinc2006=9718.98; %let xwgt_PS2007=6896.19; %let xwgt_202007=9617.13; %let xwgt_dep2007=0; %let xwgt_noNR2007=725.68; %let xwgt_mfs2007=1349.22; %let psnfinc2007=10321.03; %let xwgt_PS2008=10011.43; %let xwgt_202008=9056.93; %let xwgt_dep2008=0; %let xwgt_noNR2008=795.36; %let xwgt_mfs2008=1349.39; %let psnfinc2008=10118.08; %let xwgt_PS2009=13048.87; %let xwgt_202009=7081.69; %let xwgt_dep2009=0; %let xwgt_noNR2009=747.83; %let xwgt_mfs2009=1258.71; %let psnfinc2009=9458.3; %let xwgt_PS2010=13274.95; %let xwgt_202010=6874.21; %let xwgt_dep2010=0; %let xwgt_noNR2010=781.95; %let xwgt_mfs2010=1255.01; %let psnfinc2010=9663.17; %let xwgt_PS2011=12996.76; %let xwgt_202011=7263.13; %let xwgt_dep2011=0; %let xwgt_noNR2011=815.52; %let xwgt_mfs2011=1281.72; %let psnfinc2011=9901.73; %let xwgt_PS2012=15752.53; %let xwgt_202012=7204.72; %let xwgt_dep2012=0; %let xwgt_noNR2012=844.71; %let xwgt_mfs2012=1315.25; %let psnfinc2012=10375.93; %let xwgt_PS2013=15718.78; %let xwgt_202013=7403.15; %let xwgt_dep2013=0; %let xwgt_noNR2013=821.27; %let xwgt_mfs2013=1392.59; %let psnfinc2013=10394.03; %let xwgt_PS2014=16560.67; %let xwgt_202014=7389.81; %let xwgt_dep2014=0; %let xwgt_noNR2014=844.35; %let xwgt_mfs2014=1455.45; %let psnfinc2014=10738.59; %let xwgt_PS2015=16908.65; %let xwgt_202015=7608.66; %let xwgt_dep2015=0; %let xwgt_noNR2015=894.47; %let xwgt_mfs2015=1471.2; %let psnfinc2015=11229.24; %let xwgt_PS2016=19372.84; %let xwgt_202016=7428.93; %let xwgt_dep2016=0; %let xwgt_noNR2016=913.55; %let xwgt_mfs2016=1521.6; %let psnfinc2016=11099.05; %let xwgt_PS2017=17627.77; %let xwgt_202017=7275.69; %let xwgt_dep2017=0; %let xwgt_noNR2017=890.78; %let xwgt_mfs2017=1592.46; %let psnfinc2017=11641.3; %let xwgt_PS2018=19132.70; %let xwgt_202018=6900.00; %let xwgt_dep2018=0; %let xwgt_noNR2018=947.04; %let xwgt_mfs2018=1645.37; %let psnfinc2018=12069.02; %let xwgt_PS2019=17486.19; %let xwgt_202019=6663.52; %let xwgt_dep2019=0; %let xwgt_noNR2019=1013.53; %let xwgt_mfs2019=1859.19; %let psnfinc2019=12408.08; %let nfsh_0_1_1960=0.0521; %let nfsh_0_2_1960=0.0076; %let nfsh_0_3_1960=0.0655; %let nfsh_0_4_1960=0.3391; %let nfsh_1_1_1960=0.2172; %let nfsh_1_2_1960=0.1012; %let nfsh_1_3_1960=0.0393; %let nfsh_1_4_1960=0.178; %let nfsh_0_1_1961=0.0521; %let nfsh_0_2_1961=0.0076; %let nfsh_0_3_1961=0.0655; %let nfsh_0_4_1961=0.3391; %let nfsh_1_1_1961=0.2172; %let nfsh_1_2_1961=0.1012; %let nfsh_1_3_1961=0.0393; %let nfsh_1_4_1961=0.178; %let nfsh_0_1_1962=0.0521; %let nfsh_0_2_1962=0.0076; %let nfsh_0_3_1962=0.0655; %let nfsh_0_4_1962=0.3391; %let nfsh_1_1_1962=0.2172; %let nfsh_1_2_1962=0.1012; %let nfsh_1_3_1962=0.0393; %let nfsh_1_4_1962=0.178; %let nfsh_0_1_1963=0.0682; %let nfsh_0_2_1963=0.0066; %let nfsh_0_3_1963=0.0702; %let nfsh_0_4_1963=0.3487; %let nfsh_1_1_1963=0.213; %let nfsh_1_2_1963=0.0956; %let nfsh_1_3_1963=0.036; %let nfsh_1_4_1963=0.1617; %let nfsh_0_1_1964=0.0843; %let nfsh_0_2_1964=0.0057; %let nfsh_0_3_1964=0.0749; %let nfsh_0_4_1964=0.3584; %let nfsh_1_1_1964=0.2087; %let nfsh_1_2_1964=0.0899; %let nfsh_1_3_1964=0.0327; %let nfsh_1_4_1964=0.1455; %let nfsh_0_1_1965=0.1004; %let nfsh_0_2_1965=0.0047; %let nfsh_0_3_1965=0.0796; %let nfsh_0_4_1965=0.3681; %let nfsh_1_1_1965=0.2044; %let nfsh_1_2_1965=0.0843; %let nfsh_1_3_1965=0.0293; %let nfsh_1_4_1965=0.1292; %let nfsh_0_1_1966=0.1165; %let nfsh_0_2_1966=0.0037; %let nfsh_0_3_1966=0.0843; %let nfsh_0_4_1966=0.3777; %let nfsh_1_1_1966=0.2002; %let nfsh_1_2_1966=0.0786; %let nfsh_1_3_1966=0.026; %let nfsh_1_4_1966=0.1129; %let nfsh_0_1_1967=0.1327; %let nfsh_0_2_1967=0.0028; %let nfsh_0_3_1967=0.089; %let nfsh_0_4_1967=0.3874; %let nfsh_1_1_1967=0.1959; %let nfsh_1_2_1967=0.073; %let nfsh_1_3_1967=0.0227; %let nfsh_1_4_1967=0.0966; %let nfsh_0_1_1968=0.1488; %let nfsh_0_2_1968=0.0018; %let nfsh_0_3_1968=0.0937; %let nfsh_0_4_1968=0.397; %let nfsh_1_1_1968=0.1917; %let nfsh_1_2_1968=0.0673; %let nfsh_1_3_1968=0.0194; %let nfsh_1_4_1968=0.0803; %let nfsh_0_1_1969=0.1649; %let nfsh_0_2_1969=0.0008; %let nfsh_0_3_1969=0.0984; %let nfsh_0_4_1969=0.4067; %let nfsh_1_1_1969=0.1874; %let nfsh_1_2_1969=0.0617; %let nfsh_1_3_1969=0.0161; %let nfsh_1_4_1969=0.064; %let nfsh_0_1_1970=0.181; %let nfsh_0_2_1970=-0.0001; %let nfsh_0_3_1970=0.1031; %let nfsh_0_4_1970=0.4164; %let nfsh_1_1_1970=0.1831; %let nfsh_1_2_1970=0.056; %let nfsh_1_3_1970=0.0127; %let nfsh_1_4_1970=0.0477; %let nfsh_0_1_1971=0.1706; %let nfsh_0_2_1971=0.0001; %let nfsh_0_3_1971=0.1028; %let nfsh_0_4_1971=0.4163; %let nfsh_1_1_1971=0.1837; %let nfsh_1_2_1971=0.0561; %let nfsh_1_3_1971=0.0136; %let nfsh_1_4_1971=0.0568; %let nfsh_0_1_1972=0.1602; %let nfsh_0_2_1972=0.0004; %let nfsh_0_3_1972=0.1024; %let nfsh_0_4_1972=0.4162; %let nfsh_1_1_1972=0.1842; %let nfsh_1_2_1972=0.0562; %let nfsh_1_3_1972=0.0145; %let nfsh_1_4_1972=0.0659; %let nfsh_0_1_1973=0.1498; %let nfsh_0_2_1973=0.0006; %let nfsh_0_3_1973=0.102; %let nfsh_0_4_1973=0.4161; %let nfsh_1_1_1973=0.1847; %let nfsh_1_2_1973=0.0564; %let nfsh_1_3_1973=0.0154; %let nfsh_1_4_1973=0.075; %let nfsh_0_1_1974=0.1394; %let nfsh_0_2_1974=0.0009; %let nfsh_0_3_1974=0.1016; %let nfsh_0_4_1974=0.4159; %let nfsh_1_1_1974=0.1852; %let nfsh_1_2_1974=0.0565; %let nfsh_1_3_1974=0.0163; %let nfsh_1_4_1974=0.0841; %let nfsh_0_1_1975=0.129; %let nfsh_0_2_1975=0.0011; %let nfsh_0_3_1975=0.1013; %let nfsh_0_4_1975=0.4158; %let nfsh_1_1_1975=0.1858; %let nfsh_1_2_1975=0.0566; %let nfsh_1_3_1975=0.0172; %let nfsh_1_4_1975=0.0931; %let nfsh_0_1_1976=0.1186; %let nfsh_0_2_1976=0.0014; %let nfsh_0_3_1976=0.1009; %let nfsh_0_4_1976=0.4157; %let nfsh_1_1_1976=0.1863; %let nfsh_1_2_1976=0.0567; %let nfsh_1_3_1976=0.0181; %let nfsh_1_4_1976=0.1022; %let nfsh_0_1_1977=0.1083; %let nfsh_0_2_1977=0.0017; %let nfsh_0_3_1977=0.1005; %let nfsh_0_4_1977=0.4156; %let nfsh_1_1_1977=0.1868; %let nfsh_1_2_1977=0.0568; %let nfsh_1_3_1977=0.019; %let nfsh_1_4_1977=0.1113; %let nfsh_0_1_1978=0.0979; %let nfsh_0_2_1978=0.0019; %let nfsh_0_3_1978=0.1002; %let nfsh_0_4_1978=0.4155; %let nfsh_1_1_1978=0.1873; %let nfsh_1_2_1978=0.0569; %let nfsh_1_3_1978=0.0199; %let nfsh_1_4_1978=0.1204; %let nfsh_0_1_1979=0.0875; %let nfsh_0_2_1979=0.0022; %let nfsh_0_3_1979=0.0998; %let nfsh_0_4_1979=0.4154; %let nfsh_1_1_1979=0.1879; %let nfsh_1_2_1979=0.057; %let nfsh_1_3_1979=0.0208; %let nfsh_1_4_1979=0.1295; %let nfsh_0_1_1980=0.0771; %let nfsh_0_2_1980=0.0024; %let nfsh_0_3_1980=0.0994; %let nfsh_0_4_1980=0.4153; %let nfsh_1_1_1980=0.1884; %let nfsh_1_2_1980=0.0571; %let nfsh_1_3_1980=0.0217; %let nfsh_1_4_1980=0.1386; %let nfsh_0_1_1981=0.0827; %let nfsh_0_2_1981=0.0036; %let nfsh_0_3_1981=0.0984; %let nfsh_0_4_1981=0.4078; %let nfsh_1_1_1981=0.1875; %let nfsh_1_2_1981=0.0654; %let nfsh_1_3_1981=0.0227; %let nfsh_1_4_1981=0.132; %let nfsh_0_1_1982=0.0884; %let nfsh_0_2_1982=0.0047; %let nfsh_0_3_1982=0.0974; %let nfsh_0_4_1982=0.4002; %let nfsh_1_1_1982=0.1865; %let nfsh_1_2_1982=0.0737; %let nfsh_1_3_1982=0.0237; %let nfsh_1_4_1982=0.1254; %let nfsh_0_1_1983=0.094; %let nfsh_0_2_1983=0.0059; %let nfsh_0_3_1983=0.0964; %let nfsh_0_4_1983=0.3926; %let nfsh_1_1_1983=0.1856; %let nfsh_1_2_1983=0.082; %let nfsh_1_3_1983=0.0247; %let nfsh_1_4_1983=0.1188; %let nfsh_0_1_1984=0.0996; %let nfsh_0_2_1984=0.007; %let nfsh_0_3_1984=0.0954; %let nfsh_0_4_1984=0.3851; %let nfsh_1_1_1984=0.1847; %let nfsh_1_2_1984=0.0903; %let nfsh_1_3_1984=0.0257; %let nfsh_1_4_1984=0.1122; %let nfsh_0_1_1985=0.1053; %let nfsh_0_2_1985=0.0081; %let nfsh_0_3_1985=0.0944; %let nfsh_0_4_1985=0.3775; %let nfsh_1_1_1985=0.1837; %let nfsh_1_2_1985=0.0985; %let nfsh_1_3_1985=0.0267; %let nfsh_1_4_1985=0.1057; %let nfsh_0_1_1986=0.1109; %let nfsh_0_2_1986=0.0093; %let nfsh_0_3_1986=0.0934; %let nfsh_0_4_1986=0.3699; %let nfsh_1_1_1986=0.1828; %let nfsh_1_2_1986=0.1068; %let nfsh_1_3_1986=0.0277; %let nfsh_1_4_1986=0.0991; %let nfsh_0_1_1987=0.1297; %let nfsh_0_2_1987=0.0131; %let nfsh_0_3_1987=0.0901; %let nfsh_0_4_1987=0.3447; %let nfsh_1_1_1987=0.1797; %let nfsh_1_2_1987=0.1344; %let nfsh_1_3_1987=0.0311; %let nfsh_1_4_1987=0.0771; %let nfsh_0_1_1988=0.1354; %let nfsh_0_2_1988=0.0142; %let nfsh_0_3_1988=0.0891; %let nfsh_0_4_1988=0.3372; %let nfsh_1_1_1988=0.1788; %let nfsh_1_2_1988=0.1427; %let nfsh_1_3_1988=0.0321; %let nfsh_1_4_1988=0.0706; %let nfsh_0_1_1989=0.141; %let nfsh_0_2_1989=0.0153; %let nfsh_0_3_1989=0.0881; %let nfsh_0_4_1989=0.3296; %let nfsh_1_1_1989=0.1778; %let nfsh_1_2_1989=0.151; %let nfsh_1_3_1989=0.0331; %let nfsh_1_4_1989=0.064; %let nfsh_0_1_1990=0.1523; %let nfsh_0_2_1990=0.0176; %let nfsh_0_3_1990=0.0861; %let nfsh_0_4_1990=0.3145; %let nfsh_1_1_1990=0.176; %let nfsh_1_2_1990=0.1675; %let nfsh_1_3_1990=0.0352; %let nfsh_1_4_1990=0.0508; %let nfsh_0_1_1991=0.1491; %let nfsh_0_2_1991=0.0217; %let nfsh_0_3_1991=0.0827; %let nfsh_0_4_1991=0.3053; %let nfsh_1_1_1991=0.1788; %let nfsh_1_2_1991=0.1749; %let nfsh_1_3_1991=0.034; %let nfsh_1_4_1991=0.0535; %let nfsh_0_1_1992=0.1458; %let nfsh_0_2_1992=0.0258; %let nfsh_0_3_1992=0.0793; %let nfsh_0_4_1992=0.2961; %let nfsh_1_1_1992=0.1816; %let nfsh_1_2_1992=0.1823; %let nfsh_1_3_1992=0.0329; %let nfsh_1_4_1992=0.0562; %let nfsh_0_1_1993=0.1426; %let nfsh_0_2_1993=0.0299; %let nfsh_0_3_1993=0.0758; %let nfsh_0_4_1993=0.2868; %let nfsh_1_1_1993=0.1845; %let nfsh_1_2_1993=0.1897; %let nfsh_1_3_1993=0.0318; %let nfsh_1_4_1993=0.0589; %let nfsh_0_1_1994=0.1394; %let nfsh_0_2_1994=0.034; %let nfsh_0_3_1994=0.0724; %let nfsh_0_4_1994=0.2776; %let nfsh_1_1_1994=0.1873; %let nfsh_1_2_1994=0.1971; %let nfsh_1_3_1994=0.0307; %let nfsh_1_4_1994=0.0616; %let nfsh_0_1_1995=0.1361; %let nfsh_0_2_1995=0.0381; %let nfsh_0_3_1995=0.069; %let nfsh_0_4_1995=0.2684; %let nfsh_1_1_1995=0.1901; %let nfsh_1_2_1995=0.2045; %let nfsh_1_3_1995=0.0295; %let nfsh_1_4_1995=0.0643; %let nfsh_0_1_1996=0.1329; %let nfsh_0_2_1996=0.0421; %let nfsh_0_3_1996=0.0655; %let nfsh_0_4_1996=0.2592; %let nfsh_1_1_1996=0.193; %let nfsh_1_2_1996=0.2119; %let nfsh_1_3_1996=0.0284; %let nfsh_1_4_1996=0.067; %let nfsh_0_1_1997=0.1296; %let nfsh_0_2_1997=0.0462; %let nfsh_0_3_1997=0.0621; %let nfsh_0_4_1997=0.25; %let nfsh_1_1_1997=0.1958; %let nfsh_1_2_1997=0.2193; %let nfsh_1_3_1997=0.0273; %let nfsh_1_4_1997=0.0696; %let nfsh_0_1_1998=0.1264; %let nfsh_0_2_1998=0.0503; %let nfsh_0_3_1998=0.0587; %let nfsh_0_4_1998=0.2408; %let nfsh_1_1_1998=0.1987; %let nfsh_1_2_1998=0.2267; %let nfsh_1_3_1998=0.0262; %let nfsh_1_4_1998=0.0723; %let nfsh_0_1_1999=0.1232; %let nfsh_0_2_1999=0.0544; %let nfsh_0_3_1999=0.0553; %let nfsh_0_4_1999=0.2316; %let nfsh_1_1_1999=0.2015; %let nfsh_1_2_1999=0.2341; %let nfsh_1_3_1999=0.025; %let nfsh_1_4_1999=0.075; %let nfsh_0_1_2000=0.1199; %let nfsh_0_2_2000=0.0585; %let nfsh_0_3_2000=0.0518; %let nfsh_0_4_2000=0.2223; %let nfsh_1_1_2000=0.2043; %let nfsh_1_2_2000=0.2415; %let nfsh_1_3_2000=0.0239; %let nfsh_1_4_2000=0.0777; %let nfsh_0_1_2001=0.1278; %let nfsh_0_2_2001=0.0679; %let nfsh_0_3_2001=0.0536; %let nfsh_0_4_2001=0.2226; %let nfsh_1_1_2001=0.2011; %let nfsh_1_2_2001=0.2312; %let nfsh_1_3_2001=0.0249; %let nfsh_1_4_2001=0.0709; %let nfsh_0_1_2002=0.1357; %let nfsh_0_2_2002=0.0773; %let nfsh_0_3_2002=0.0554; %let nfsh_0_4_2002=0.2229; %let nfsh_1_1_2002=0.1978; %let nfsh_1_2_2002=0.2209; %let nfsh_1_3_2002=0.026; %let nfsh_1_4_2002=0.064; %let nfsh_0_1_2003=0.1436; %let nfsh_0_2_2003=0.0866; %let nfsh_0_3_2003=0.0572; %let nfsh_0_4_2003=0.2232; %let nfsh_1_1_2003=0.1945; %let nfsh_1_2_2003=0.2106; %let nfsh_1_3_2003=0.027; %let nfsh_1_4_2003=0.0572; %let nfsh_0_1_2004=0.1515; %let nfsh_0_2_2004=0.096; %let nfsh_0_3_2004=0.059; %let nfsh_0_4_2004=0.2235; %let nfsh_1_1_2004=0.1913; %let nfsh_1_2_2004=0.2003; %let nfsh_1_3_2004=0.028; %let nfsh_1_4_2004=0.0504; %let nfsh_0_1_2005=0.1594; %let nfsh_0_2_2005=0.1054; %let nfsh_0_3_2005=0.0608; %let nfsh_0_4_2005=0.2237; %let nfsh_1_1_2005=0.188; %let nfsh_1_2_2005=0.1901; %let nfsh_1_3_2005=0.0291; %let nfsh_1_4_2005=0.0435; %let nfsh_0_1_2006=0.1673; %let nfsh_0_2_2006=0.1148; %let nfsh_0_3_2006=0.0626; %let nfsh_0_4_2006=0.224; %let nfsh_1_1_2006=0.1848; %let nfsh_1_2_2006=0.1798; %let nfsh_1_3_2006=0.0301; %let nfsh_1_4_2006=0.0367; %let nfsh_0_1_2007=0.1752; %let nfsh_0_2_2007=0.1241; %let nfsh_0_3_2007=0.0644; %let nfsh_0_4_2007=0.2243; %let nfsh_1_1_2007=0.1815; %let nfsh_1_2_2007=0.1695; %let nfsh_1_3_2007=0.0311; %let nfsh_1_4_2007=0.0298; %let nfsh_0_1_2008=0.1831; %let nfsh_0_2_2008=0.1335; %let nfsh_0_3_2008=0.0662; %let nfsh_0_4_2008=0.2246; %let nfsh_1_1_2008=0.1782; %let nfsh_1_2_2008=0.1592; %let nfsh_1_3_2008=0.0321; %let nfsh_1_4_2008=0.0231; %let nfsh_0_1_2009=0.191; %let nfsh_0_2_2009=0.1429; %let nfsh_0_3_2009=0.0679; %let nfsh_0_4_2009=0.2248; %let nfsh_1_1_2009=0.175; %let nfsh_1_2_2009=0.149; %let nfsh_1_3_2009=0.0332; %let nfsh_1_4_2009=0.0162; %let nfsh_0_1_2010=0.1989; %let nfsh_0_2_2010=0.1523; %let nfsh_0_3_2010=0.0697; %let nfsh_0_4_2010=0.2251; %let nfsh_1_1_2010=0.1717; %let nfsh_1_2_2010=0.1387; %let nfsh_1_3_2010=0.0342; %let nfsh_1_4_2010=0.0093; %let nfsh_0_1_2011=0.2024; %let nfsh_0_2_2011=0.1314; %let nfsh_0_3_2011=0.0809; %let nfsh_0_4_2011=0.2328; %let nfsh_1_1_2011=0.1643; %let nfsh_1_2_2011=0.1315; %let nfsh_1_3_2011=0.0396; %let nfsh_1_4_2011=0.0171; %let nfsh_0_1_2012=0.2058; %let nfsh_0_2_2012=0.1106; %let nfsh_0_3_2012=0.0922; %let nfsh_0_4_2012=0.2405; %let nfsh_1_1_2012=0.1568; %let nfsh_1_2_2012=0.1242; %let nfsh_1_3_2012=0.045; %let nfsh_1_4_2012=0.0249; %let nfsh_0_1_2013=0.2092; %let nfsh_0_2_2013=0.0898; %let nfsh_0_3_2013=0.1034; %let nfsh_0_4_2013=0.2482; %let nfsh_1_1_2013=0.1494; %let nfsh_1_2_2013=0.117; %let nfsh_1_3_2013=0.0504; %let nfsh_1_4_2013=0.0327; %let nfsh_0_1_2014=0.2127; %let nfsh_0_2_2014=0.0689; %let nfsh_0_3_2014=0.1146; %let nfsh_0_4_2014=0.2559; %let nfsh_1_1_2014=0.1419; %let nfsh_1_2_2014=0.1098; %let nfsh_1_3_2014=0.0558; %let nfsh_1_4_2014=0.0404; %let nfsh_0_1_2015=0.2161; %let nfsh_0_2_2015=0.0481; %let nfsh_0_3_2015=0.1258; %let nfsh_0_4_2015=0.2636; %let nfsh_1_1_2015=0.1344; %let nfsh_1_2_2015=0.1026; %let nfsh_1_3_2015=0.0612; %let nfsh_1_4_2015=0.0482; %let nfsh_0_1_2016=0.2196; %let nfsh_0_2_2016=0.0273; %let nfsh_0_3_2016=0.137; %let nfsh_0_4_2016=0.2713; %let nfsh_1_1_2016=0.127; %let nfsh_1_2_2016=0.0953; %let nfsh_1_3_2016=0.0666; %let nfsh_1_4_2016=0.056; %let nfsh_0_1_2017=0.223; %let nfsh_0_2_2017=0.0064; %let nfsh_0_3_2017=0.1482; %let nfsh_0_4_2017=0.279; %let nfsh_1_1_2017=0.1195; %let nfsh_1_2_2017=0.0881; %let nfsh_1_3_2017=0.072; %let nfsh_1_4_2017=0.0637; %let nfsh_0_1_2018=0.2207; %let nfsh_0_2_2018=0.0326; %let nfsh_0_3_2018=0.1432; %let nfsh_0_4_2018=0.2666; %let nfsh_1_1_2018=0.1021; %let nfsh_1_2_2018=0.0921; %let nfsh_1_3_2018=0.07; %let nfsh_1_4_2018=0.0726; %let nfsh_0_1_2019=0.2207; %let nfsh_0_2_2019=0.0326; %let nfsh_0_3_2019=0.1432; %let nfsh_0_4_2019=0.2666; %let nfsh_1_1_2019=0.1021; %let nfsh_1_2_2019=0.0921; %let nfsh_1_3_2019=0.07; %let nfsh_1_4_2019=0.0726; %let nfsh2000_0_1_1=0.283; %let nfwg2000_0_1_1=0; %let nfdiv2000_0_1_1=0; %let nfint2000_0_1_1=0; %let nfbus2000_0_1_1=0; %let nfret2000_0_1_1=0; %let nfss2000_0_1_1=1027; %let nfui2000_0_1_1=78; %let nfitx2000_0_1_1=2; %let nfsh2000_0_1_2=0.4376; %let nfwg2000_0_1_2=1174; %let nfdiv2000_0_1_2=40; %let nfint2000_0_1_2=1; %let nfbus2000_0_1_2=236; %let nfret2000_0_1_2=23; %let nfss2000_0_1_2=202; %let nfui2000_0_1_2=64; %let nfitx2000_0_1_2=138; %let nfsh2000_0_1_3=0.0895; %let nfwg2000_0_1_3=5593; %let nfdiv2000_0_1_3=136; %let nfint2000_0_1_3=3; %let nfbus2000_0_1_3=1360; %let nfret2000_0_1_3=100; %let nfss2000_0_1_3=81; %let nfui2000_0_1_3=152; %let nfitx2000_0_1_3=744; %let nfsh2000_0_1_4=0.0959; %let nfwg2000_0_1_4=11895; %let nfdiv2000_0_1_4=190; %let nfint2000_0_1_4=8; %let nfbus2000_0_1_4=2269; %let nfret2000_0_1_4=160; %let nfss2000_0_1_4=41; %let nfui2000_0_1_4=172; %let nfitx2000_0_1_4=1724; %let nfsh2000_0_1_5=0.08; %let nfwg2000_0_1_5=23800; %let nfdiv2000_0_1_5=344; %let nfint2000_0_1_5=27; %let nfbus2000_0_1_5=4601; %let nfret2000_0_1_5=453; %let nfss2000_0_1_5=24; %let nfui2000_0_1_5=113; %let nfitx2000_0_1_5=4120; %let nfsh2000_0_1_6=0.0125; %let nfwg2000_0_1_6=26980; %let nfdiv2000_0_1_6=1483; %let nfint2000_0_1_6=117; %let nfbus2000_0_1_6=42314; %let nfret2000_0_1_6=1717; %let nfss2000_0_1_6=39; %let nfui2000_0_1_6=39; %let nfitx2000_0_1_6=6262; %let nfsh2000_0_1_7=0.0015; %let nfwg2000_0_1_7=43499; %let nfdiv2000_0_1_7=129862; %let nfint2000_0_1_7=15082; %let nfbus2000_0_1_7=92396; %let nfret2000_0_1_7=29846; %let nfss2000_0_1_7=0; %let nfui2000_0_1_7=0; %let nfitx2000_0_1_7=11589; %let nfsh2000_0_2_1=0.4079; %let nfwg2000_0_2_1=0; %let nfdiv2000_0_2_1=0; %let nfint2000_0_2_1=0; %let nfbus2000_0_2_1=0; %let nfret2000_0_2_1=0; %let nfss2000_0_2_1=3777; %let nfui2000_0_2_1=90; %let nfitx2000_0_2_1=3; %let nfsh2000_0_2_2=0.2954; %let nfwg2000_0_2_2=920; %let nfdiv2000_0_2_2=68; %let nfint2000_0_2_2=1; %let nfbus2000_0_2_2=406; %let nfret2000_0_2_2=109; %let nfss2000_0_2_2=1214; %let nfui2000_0_2_2=126; %let nfitx2000_0_2_2=105; %let nfsh2000_0_2_3=0.0756; %let nfwg2000_0_2_3=4705; %let nfdiv2000_0_2_3=156; %let nfint2000_0_2_3=5; %let nfbus2000_0_2_3=1851; %let nfret2000_0_2_3=532; %let nfss2000_0_2_3=741; %let nfui2000_0_2_3=271; %let nfitx2000_0_2_3=592; %let nfsh2000_0_2_4=0.0894; %let nfwg2000_0_2_4=10841; %let nfdiv2000_0_2_4=176; %let nfint2000_0_2_4=10; %let nfbus2000_0_2_4=2844; %let nfret2000_0_2_4=724; %let nfss2000_0_2_4=320; %let nfui2000_0_2_4=286; %let nfitx2000_0_2_4=1518; %let nfsh2000_0_2_5=0.1031; %let nfwg2000_0_2_5=24474; %let nfdiv2000_0_2_5=242; %let nfint2000_0_2_5=18; %let nfbus2000_0_2_5=4879; %let nfret2000_0_2_5=1247; %let nfss2000_0_2_5=126; %let nfui2000_0_2_5=179; %let nfitx2000_0_2_5=4359; %let nfsh2000_0_2_6=0.0251; %let nfwg2000_0_2_6=38541; %let nfdiv2000_0_2_6=764; %let nfint2000_0_2_6=65; %let nfbus2000_0_2_6=26391; %let nfret2000_0_2_6=3524; %let nfss2000_0_2_6=123; %let nfui2000_0_2_6=94; %let nfitx2000_0_2_6=8951; %let nfsh2000_0_2_7=0.0035; %let nfwg2000_0_2_7=110506; %let nfdiv2000_0_2_7=51908; %let nfint2000_0_2_7=7001; %let nfbus2000_0_2_7=37492; %let nfret2000_0_2_7=21313; %let nfss2000_0_2_7=207; %let nfui2000_0_2_7=104; %let nfitx2000_0_2_7=29766; %let nfsh2000_0_3_1=0.5726; %let nfwg2000_0_3_1=0; %let nfdiv2000_0_3_1=0; %let nfint2000_0_3_1=0; %let nfbus2000_0_3_1=0; %let nfret2000_0_3_1=0; %let nfss2000_0_3_1=5268; %let nfui2000_0_3_1=27; %let nfitx2000_0_3_1=4; %let nfsh2000_0_3_2=0.2363; %let nfwg2000_0_3_2=465; %let nfdiv2000_0_3_2=119; %let nfint2000_0_3_2=2; %let nfbus2000_0_3_2=371; %let nfret2000_0_3_2=640; %let nfss2000_0_3_2=4098; %let nfui2000_0_3_2=54; %let nfitx2000_0_3_2=48; %let nfsh2000_0_3_3=0.0604; %let nfwg2000_0_3_3=2471; %let nfdiv2000_0_3_3=253; %let nfint2000_0_3_3=8; %let nfbus2000_0_3_3=1468; %let nfret2000_0_3_3=2911; %let nfss2000_0_3_3=4346; %let nfui2000_0_3_3=114; %let nfitx2000_0_3_3=277; %let nfsh2000_0_3_4=0.0541; %let nfwg2000_0_3_4=7621; %let nfdiv2000_0_3_4=356; %let nfint2000_0_3_4=9; %let nfbus2000_0_3_4=2644; %let nfret2000_0_3_4=3738; %let nfss2000_0_3_4=2133; %let nfui2000_0_3_4=164; %let nfitx2000_0_3_4=1057; %let nfsh2000_0_3_5=0.0557; %let nfwg2000_0_3_5=19924; %let nfdiv2000_0_3_5=548; %let nfint2000_0_3_5=35; %let nfbus2000_0_3_5=5332; %let nfret2000_0_3_5=5235; %let nfss2000_0_3_5=840; %let nfui2000_0_3_5=133; %let nfitx2000_0_3_5=3705; %let nfsh2000_0_3_6=0.0177; %let nfwg2000_0_3_6=33635; %let nfdiv2000_0_3_6=1283; %let nfint2000_0_3_6=84; %let nfbus2000_0_3_6=27304; %let nfret2000_0_3_6=8646; %let nfss2000_0_3_6=641; %let nfui2000_0_3_6=84; %let nfitx2000_0_3_6=8004; %let nfsh2000_0_3_7=0.0032; %let nfwg2000_0_3_7=94004; %let nfdiv2000_0_3_7=43723; %let nfint2000_0_3_7=9057; %let nfbus2000_0_3_7=42317; %let nfret2000_0_3_7=46377; %let nfss2000_0_3_7=937; %let nfui2000_0_3_7=0; %let nfitx2000_0_3_7=27483; %let nfsh2000_0_4_1=0.5437; %let nfwg2000_0_4_1=0; %let nfdiv2000_0_4_1=0; %let nfint2000_0_4_1=0; %let nfbus2000_0_4_1=0; %let nfret2000_0_4_1=0; %let nfss2000_0_4_1=7152; %let nfui2000_0_4_1=2; %let nfitx2000_0_4_1=1; %let nfsh2000_0_4_2=0.3217; %let nfwg2000_0_4_2=90; %let nfdiv2000_0_4_2=180; %let nfint2000_0_4_2=4; %let nfbus2000_0_4_2=114; %let nfret2000_0_4_2=1530; %let nfss2000_0_4_2=9104; %let nfui2000_0_4_2=3; %let nfitx2000_0_4_2=8; %let nfsh2000_0_4_3=0.0886; %let nfwg2000_0_4_3=506; %let nfdiv2000_0_4_3=366; %let nfint2000_0_4_3=19; %let nfbus2000_0_4_3=396; %let nfret2000_0_4_3=5582; %let nfss2000_0_4_3=9625; %let nfui2000_0_4_3=4; %let nfitx2000_0_4_3=44; %let nfsh2000_0_4_4=0.0291; %let nfwg2000_0_4_4=2509; %let nfdiv2000_0_4_4=666; %let nfint2000_0_4_4=50; %let nfbus2000_0_4_4=1455; %let nfret2000_0_4_4=8747; %let nfss2000_0_4_4=8135; %let nfui2000_0_4_4=12; %let nfitx2000_0_4_4=258; %let nfsh2000_0_4_5=0.0118; %let nfwg2000_0_4_5=6544; %let nfdiv2000_0_4_5=1881; %let nfint2000_0_4_5=161; %let nfbus2000_0_4_5=6553; %let nfret2000_0_4_5=14493; %let nfss2000_0_4_5=6886; %let nfui2000_0_4_5=19; %let nfitx2000_0_4_5=959; %let nfsh2000_0_4_6=0.004; %let nfwg2000_0_4_6=4914; %let nfdiv2000_0_4_6=3518; %let nfint2000_0_4_6=363; %let nfbus2000_0_4_6=46541; %let nfret2000_0_4_6=21135; %let nfss2000_0_4_6=5584; %let nfui2000_0_4_6=0; %let nfitx2000_0_4_6=1089; %let nfsh2000_0_4_7=0.0011; %let nfwg2000_0_4_7=16041; %let nfdiv2000_0_4_7=113830; %let nfint2000_0_4_7=22314; %let nfbus2000_0_4_7=74344; %let nfret2000_0_4_7=92339; %let nfss2000_0_4_7=8021; %let nfui2000_0_4_7=0; %let nfitx2000_0_4_7=5450; %let nfsh2000_1_1_1=0.1168; %let nfwg2000_1_1_1=0; %let nfdiv2000_1_1_1=0; %let nfint2000_1_1_1=0; %let nfbus2000_1_1_1=0; %let nfret2000_1_1_1=0; %let nfss2000_1_1_1=1829; %let nfui2000_1_1_1=141; %let nfitx2000_1_1_1=0; %let nfsh2000_1_1_2=0.3796; %let nfwg2000_1_1_2=1514; %let nfdiv2000_1_1_2=43; %let nfint2000_1_1_2=0; %let nfbus2000_1_1_2=260; %let nfret2000_1_1_2=87; %let nfss2000_1_1_2=671; %let nfui2000_1_1_2=130; %let nfitx2000_1_1_2=173; %let nfsh2000_1_1_3=0.1262; %let nfwg2000_1_1_3=5855; %let nfdiv2000_1_1_3=130; %let nfint2000_1_1_3=0; %let nfbus2000_1_1_3=1106; %let nfret2000_1_1_3=390; %let nfss2000_1_1_3=390; %let nfui2000_1_1_3=195; %let nfitx2000_1_1_3=716; %let nfsh2000_1_1_4=0.1377; %let nfwg2000_1_1_4=12226; %let nfdiv2000_1_1_4=179; %let nfint2000_1_1_4=0; %let nfbus2000_1_1_4=2028; %let nfret2000_1_1_4=477; %let nfss2000_1_1_4=298; %let nfui2000_1_1_4=239; %let nfitx2000_1_1_4=1670; %let nfsh2000_1_1_5=0.1782; %let nfwg2000_1_1_5=27053; %let nfdiv2000_1_1_5=230; %let nfint2000_1_1_5=0; %let nfbus2000_1_1_5=3779; %let nfret2000_1_1_5=737; %let nfss2000_1_1_5=184; %let nfui2000_1_1_5=230; %let nfitx2000_1_1_5=4240; %let nfsh2000_1_1_6=0.0523; %let nfwg2000_1_1_6=51036; %let nfdiv2000_1_1_6=628; %let nfint2000_1_1_6=0; %let nfbus2000_1_1_6=15075; %let nfret2000_1_1_6=2513; %let nfss2000_1_1_6=0; %let nfui2000_1_1_6=157; %let nfitx2000_1_1_6=10050; %let nfsh2000_1_1_7=0.0093; %let nfwg2000_1_1_7=82447; %let nfdiv2000_1_1_7=33688; %let nfint2000_1_1_7=3546; %let nfbus2000_1_1_7=36348; %let nfret2000_1_1_7=22163; %let nfss2000_1_1_7=0; %let nfui2000_1_1_7=0; %let nfitx2000_1_1_7=20390; %let nfsh2000_1_2_1=0.1883; %let nfwg2000_1_2_1=0; %let nfdiv2000_1_2_1=0; %let nfint2000_1_2_1=0; %let nfbus2000_1_2_1=0; %let nfret2000_1_2_1=0; %let nfss2000_1_2_1=7568; %let nfui2000_1_2_1=125; %let nfitx2000_1_2_1=0; %let nfsh2000_1_2_2=0.2887; %let nfwg2000_1_2_2=1148; %let nfdiv2000_1_2_2=67; %let nfint2000_1_2_2=0; %let nfbus2000_1_2_2=400; %let nfret2000_1_2_2=111; %let nfss2000_1_2_2=3401; %let nfui2000_1_2_2=215; %let nfitx2000_1_2_2=126; %let nfsh2000_1_2_3=0.0973; %let nfwg2000_1_2_3=4989; %let nfdiv2000_1_2_3=154; %let nfint2000_1_2_3=0; %let nfbus2000_1_2_3=1626; %let nfret2000_1_2_3=527; %let nfss2000_1_2_3=2286; %let nfui2000_1_2_3=352; %let nfitx2000_1_2_3=615; %let nfsh2000_1_2_4=0.1247; %let nfwg2000_1_2_4=11138; %let nfdiv2000_1_2_4=172; %let nfint2000_1_2_4=0; %let nfbus2000_1_2_4=2626; %let nfret2000_1_2_4=721; %let nfss2000_1_2_4=1613; %let nfui2000_1_2_4=395; %let nfitx2000_1_2_4=1476; %let nfsh2000_1_2_5=0.1905; %let nfwg2000_1_2_5=26525; %let nfdiv2000_1_2_5=213; %let nfint2000_1_2_5=11; %let nfbus2000_1_2_5=4391; %let nfret2000_1_2_5=1213; %let nfss2000_1_2_5=966; %let nfui2000_1_2_5=359; %let nfitx2000_1_2_5=4279; %let nfsh2000_1_2_6=0.0867; %let nfwg2000_1_2_6=53581; %let nfdiv2000_1_2_6=469; %let nfint2000_1_2_6=25; %let nfbus2000_1_2_6=12538; %let nfret2000_1_2_6=2838; %let nfss2000_1_2_6=444; %let nfui2000_1_2_6=247; %let nfitx2000_1_2_6=10539; %let nfsh2000_1_2_7=0.0238; %let nfwg2000_1_2_7=115146; %let nfdiv2000_1_2_7=16719; %let nfint2000_1_2_7=449; %let nfbus2000_1_2_7=22382; %let nfret2000_1_2_7=13573; %let nfss2000_1_2_7=180; %let nfui2000_1_2_7=90; %let nfitx2000_1_2_7=28225; %let nfsh2000_1_3_1=0.3055; %let nfwg2000_1_3_1=0; %let nfdiv2000_1_3_1=0; %let nfint2000_1_3_1=0; %let nfbus2000_1_3_1=0; %let nfret2000_1_3_1=0; %let nfss2000_1_3_1=10220; %let nfui2000_1_3_1=71; %let nfitx2000_1_3_1=0; %let nfsh2000_1_3_2=0.2999; %let nfwg2000_1_3_2=739; %let nfdiv2000_1_3_2=97; %let nfint2000_1_3_2=0; %let nfbus2000_1_3_2=388; %let nfret2000_1_3_2=497; %let nfss2000_1_3_2=7562; %let nfui2000_1_3_2=121; %let nfitx2000_1_3_2=85; %let nfsh2000_1_3_3=0.1003; %let nfwg2000_1_3_3=3080; %let nfdiv2000_1_3_3=181; %let nfint2000_1_3_3=0; %let nfbus2000_1_3_3=1450; %let nfret2000_1_3_3=2464; %let nfss2000_1_3_3=7719; %let nfui2000_1_3_3=181; %let nfitx2000_1_3_3=362; %let nfsh2000_1_3_4=0.1002; %let nfwg2000_1_3_4=8708; %let nfdiv2000_1_3_4=254; %let nfint2000_1_3_4=0; %let nfbus2000_1_3_4=2540; %let nfret2000_1_3_4=2975; %let nfss2000_1_3_4=5297; %let nfui2000_1_3_4=254; %let nfitx2000_1_3_4=1161; %let nfsh2000_1_3_5=0.1244; %let nfwg2000_1_3_5=22902; %let nfdiv2000_1_3_5=380; %let nfint2000_1_3_5=29; %let nfbus2000_1_3_5=4674; %let nfret2000_1_3_5=3914; %let nfss2000_1_3_5=3038; %let nfui2000_1_3_5=292; %let nfitx2000_1_3_5=3827; %let nfsh2000_1_3_6=0.0525; %let nfwg2000_1_3_6=46169; %let nfdiv2000_1_3_6=1038; %let nfint2000_1_3_6=69; %let nfbus2000_1_3_6=14605; %let nfret2000_1_3_6=8168; %let nfss2000_1_3_6=1523; %let nfui2000_1_3_6=208; %let nfitx2000_1_3_6=9621; %let nfsh2000_1_3_7=0.0172; %let nfwg2000_1_3_7=111064; %let nfdiv2000_1_3_7=25501; %let nfint2000_1_3_7=1264; %let nfbus2000_1_3_7=34563; %let nfret2000_1_3_7=24025; %let nfss2000_1_3_7=843; %let nfui2000_1_3_7=211; %let nfitx2000_1_3_7=29294; %let nfsh2000_1_4_1=0.2955; %let nfwg2000_1_4_1=0; %let nfdiv2000_1_4_1=0; %let nfint2000_1_4_1=0; %let nfbus2000_1_4_1=0; %let nfret2000_1_4_1=0; %let nfss2000_1_4_1=12727; %let nfui2000_1_4_1=23; %let nfitx2000_1_4_1=0; %let nfsh2000_1_4_2=0.3488; %let nfwg2000_1_4_2=231; %let nfdiv2000_1_4_2=133; %let nfint2000_1_4_2=3; %let nfbus2000_1_4_2=155; %let nfret2000_1_4_2=1617; %let nfss2000_1_4_2=14606; %let nfui2000_1_4_2=31; %let nfitx2000_1_4_2=24; %let nfsh2000_1_4_3=0.1972; %let nfwg2000_1_4_3=676; %let nfdiv2000_1_4_3=257; %let nfint2000_1_4_3=12; %let nfbus2000_1_4_3=379; %let nfret2000_1_4_3=5902; %let nfss2000_1_4_3=16185; %let nfui2000_1_4_3=30; %let nfitx2000_1_4_3=72; %let nfsh2000_1_4_4=0.1057; %let nfwg2000_1_4_4=2809; %let nfdiv2000_1_4_4=354; %let nfint2000_1_4_4=28; %let nfbus2000_1_4_4=1029; %let nfret2000_1_4_4=8896; %let nfss2000_1_4_4=14695; %let nfui2000_1_4_4=65; %let nfitx2000_1_4_4=340; %let nfsh2000_1_4_5=0.0404; %let nfwg2000_1_4_5=15449; %let nfdiv2000_1_4_5=803; %let nfint2000_1_4_5=61; %let nfbus2000_1_4_5=4310; %let nfret2000_1_4_5=9545; %let nfss2000_1_4_5=10421; %let nfui2000_1_4_5=134; %let nfitx2000_1_4_5=2520; %let nfsh2000_1_4_6=0.0096; %let nfwg2000_1_4_6=22492; %let nfdiv2000_1_4_6=2522; %let nfint2000_1_4_6=154; %let nfbus2000_1_4_6=24757; %let nfret2000_1_4_6=19919; %let nfss2000_1_4_6=10294; %let nfui2000_1_4_6=51; %let nfitx2000_1_4_6=4890; %let nfsh2000_1_4_7=0.0027; %let nfwg2000_1_4_7=36910; %let nfdiv2000_1_4_7=58336; %let nfint2000_1_4_7=5402; %let nfbus2000_1_4_7=69680; %let nfret2000_1_4_7=63738; %let nfss2000_1_4_7=11703; %let nfui2000_1_4_7=0; %let nfitx2000_1_4_7=12423; %let nfsh2010_0_1_1=0.367; %let nfwg2010_0_1_1=0; %let nfdiv2010_0_1_1=0; %let nfint2010_0_1_1=0; %let nfbus2010_0_1_1=0; %let nfret2010_0_1_1=0; %let nfss2010_0_1_1=1212; %let nfui2010_0_1_1=1163; %let nfitx2010_0_1_1=1; %let nfsh2010_0_1_2=0.3645; %let nfwg2010_0_1_2=1159; %let nfdiv2010_0_1_2=39; %let nfint2010_0_1_2=1; %let nfbus2010_0_1_2=309; %let nfret2010_0_1_2=35; %let nfss2010_0_1_2=237; %let nfui2010_0_1_2=687; %let nfitx2010_0_1_2=114; %let nfsh2010_0_1_3=0.082; %let nfwg2010_0_1_3=5108; %let nfdiv2010_0_1_3=133; %let nfint2010_0_1_3=3; %let nfbus2010_0_1_3=1789; %let nfret2010_0_1_3=157; %let nfss2010_0_1_3=116; %let nfui2010_0_1_3=906; %let nfitx2010_0_1_3=565; %let nfsh2010_0_1_4=0.083; %let nfwg2010_0_1_4=10665; %let nfdiv2010_0_1_4=201; %let nfint2010_0_1_4=9; %let nfbus2010_0_1_4=3404; %let nfret2010_0_1_4=247; %let nfss2010_0_1_4=65; %let nfui2010_0_1_4=817; %let nfitx2010_0_1_4=1240; %let nfsh2010_0_1_5=0.0822; %let nfwg2010_0_1_5=23344; %let nfdiv2010_0_1_5=295; %let nfint2010_0_1_5=15; %let nfbus2010_0_1_5=6161; %let nfret2010_0_1_5=534; %let nfss2010_0_1_5=47; %let nfui2010_0_1_5=531; %let nfitx2010_0_1_5=3139; %let nfsh2010_0_1_6=0.019; %let nfwg2010_0_1_6=31636; %let nfdiv2010_0_1_6=857; %let nfint2010_0_1_6=64; %let nfbus2010_0_1_6=38915; %let nfret2010_0_1_6=1671; %let nfss2010_0_1_6=64; %let nfui2010_0_1_6=334; %let nfitx2010_0_1_6=5359; %let nfsh2010_0_1_7=0.0024; %let nfwg2010_0_1_7=61259; %let nfdiv2010_0_1_7=215901; %let nfint2010_0_1_7=13959; %let nfbus2010_0_1_7=260263; %let nfret2010_0_1_7=39086; %let nfss2010_0_1_7=103; %let nfui2010_0_1_7=310; %let nfitx2010_0_1_7=12925; %let nfsh2010_0_2_1=0.4822; %let nfwg2010_0_2_1=0; %let nfdiv2010_0_2_1=0; %let nfint2010_0_2_1=0; %let nfbus2010_0_2_1=0; %let nfret2010_0_2_1=0; %let nfss2010_0_2_1=5152; %let nfui2010_0_2_1=1273; %let nfitx2010_0_2_1=1; %let nfsh2010_0_2_2=0.226; %let nfwg2010_0_2_2=819; %let nfdiv2010_0_2_2=68; %let nfint2010_0_2_2=1; %let nfbus2010_0_2_2=493; %let nfret2010_0_2_2=127; %let nfss2010_0_2_2=1538; %let nfui2010_0_2_2=1288; %let nfitx2010_0_2_2=82; %let nfsh2010_0_2_3=0.0617; %let nfwg2010_0_2_3=4220; %let nfdiv2010_0_2_3=173; %let nfint2010_0_2_3=3; %let nfbus2010_0_2_3=2199; %let nfret2010_0_2_3=677; %let nfss2010_0_2_3=1038; %let nfui2010_0_2_3=1743; %let nfitx2010_0_2_3=456; %let nfsh2010_0_2_4=0.0753; %let nfwg2010_0_2_4=10087; %let nfdiv2010_0_2_4=204; %let nfint2010_0_2_4=7; %let nfbus2010_0_2_4=3420; %let nfret2010_0_2_4=961; %let nfss2010_0_2_4=548; %let nfui2010_0_2_4=1544; %let nfitx2010_0_2_4=1128; %let nfsh2010_0_2_5=0.108; %let nfwg2010_0_2_5=25137; %let nfdiv2010_0_2_5=216; %let nfint2010_0_2_5=11; %let nfbus2010_0_2_5=5054; %let nfret2010_0_2_5=1577; %let nfss2010_0_2_5=246; %let nfui2010_0_2_5=923; %let nfitx2010_0_2_5=3429; %let nfsh2010_0_2_6=0.0397; %let nfwg2010_0_2_6=42395; %let nfdiv2010_0_2_6=417; %let nfint2010_0_2_6=26; %let nfbus2010_0_2_6=23804; %let nfret2010_0_2_6=4179; %let nfss2010_0_2_6=243; %let nfui2010_0_2_6=552; %let nfitx2010_0_2_6=7654; %let nfsh2010_0_2_7=0.007; %let nfwg2010_0_2_7=105694; %let nfdiv2010_0_2_7=43103; %let nfint2010_0_2_7=29809; %let nfbus2010_0_2_7=88836; %let nfret2010_0_2_7=29735; %let nfss2010_0_2_7=295; %let nfui2010_0_2_7=590; %let nfitx2010_0_2_7=23616; %let nfsh2010_0_3_1=0.5939; %let nfwg2010_0_3_1=0; %let nfdiv2010_0_3_1=0; %let nfint2010_0_3_1=0; %let nfbus2010_0_3_1=0; %let nfret2010_0_3_1=0; %let nfss2010_0_3_1=8418; %let nfui2010_0_3_1=525; %let nfitx2010_0_3_1=2; %let nfsh2010_0_3_2=0.1925; %let nfwg2010_0_3_2=448; %let nfdiv2010_0_3_2=102; %let nfint2010_0_3_2=2; %let nfbus2010_0_3_2=433; %let nfret2010_0_3_2=594; %let nfss2010_0_3_2=5993; %let nfui2010_0_3_2=718; %let nfitx2010_0_3_2=42; %let nfsh2010_0_3_3=0.0561; %let nfwg2010_0_3_3=2278; %let nfdiv2010_0_3_3=226; %let nfint2010_0_3_3=6; %let nfbus2010_0_3_3=1657; %let nfret2010_0_3_3=3044; %let nfss2010_0_3_3=6301; %let nfui2010_0_3_3=879; %let nfitx2010_0_3_3=220; %let nfsh2010_0_3_4=0.0534; %let nfwg2010_0_3_4=7047; %let nfdiv2010_0_3_4=283; %let nfint2010_0_3_4=7; %let nfbus2010_0_3_4=3006; %let nfret2010_0_3_4=4192; %let nfss2010_0_3_4=3790; %let nfui2010_0_3_4=1022; %let nfitx2010_0_3_4=771; %let nfsh2010_0_3_5=0.0692; %let nfwg2010_0_3_5=20638; %let nfdiv2010_0_3_5=341; %let nfint2010_0_3_5=15; %let nfbus2010_0_3_5=4883; %let nfret2010_0_3_5=6069; %let nfss2010_0_3_5=1597; %let nfui2010_0_3_5=692; %let nfitx2010_0_3_5=2971; %let nfsh2010_0_3_6=0.0286; %let nfwg2010_0_3_6=37844; %let nfdiv2010_0_3_6=602; %let nfint2010_0_3_6=25; %let nfbus2010_0_3_6=22596; %let nfret2010_0_3_6=10383; %let nfss2010_0_3_6=1057; %let nfui2010_0_3_6=430; %let nfitx2010_0_3_6=7348; %let nfsh2010_0_3_7=0.0063; %let nfwg2010_0_3_7=86883; %let nfdiv2010_0_3_7=59479; %let nfint2010_0_3_7=29205; %let nfbus2010_0_3_7=107478; %let nfret2010_0_3_7=52051; %let nfss2010_0_3_7=1351; %let nfui2010_0_3_7=506; %let nfitx2010_0_3_7=20652; %let nfsh2010_0_4_1=0.5212; %let nfwg2010_0_4_1=0; %let nfdiv2010_0_4_1=0; %let nfint2010_0_4_1=0; %let nfbus2010_0_4_1=0; %let nfret2010_0_4_1=0; %let nfss2010_0_4_1=10148; %let nfui2010_0_4_1=48; %let nfitx2010_0_4_1=1; %let nfsh2010_0_4_2=0.2804; %let nfwg2010_0_4_2=77; %let nfdiv2010_0_4_2=117; %let nfint2010_0_4_2=2; %let nfbus2010_0_4_2=144; %let nfret2010_0_4_2=1636; %let nfss2010_0_4_2=12709; %let nfui2010_0_4_2=46; %let nfitx2010_0_4_2=7; %let nfsh2010_0_4_3=0.1114; %let nfwg2010_0_4_3=323; %let nfdiv2010_0_4_3=242; %let nfint2010_0_4_3=8; %let nfbus2010_0_4_3=420; %let nfret2010_0_4_3=6157; %let nfss2010_0_4_3=13701; %let nfui2010_0_4_3=35; %let nfitx2010_0_4_3=28; %let nfsh2010_0_4_4=0.0514; %let nfwg2010_0_4_4=1673; %let nfdiv2010_0_4_4=435; %let nfint2010_0_4_4=18; %let nfbus2010_0_4_4=1368; %let nfret2010_0_4_4=10120; %let nfss2010_0_4_4=12192; %let nfui2010_0_4_4=67; %let nfitx2010_0_4_4=158; %let nfsh2010_0_4_5=0.0248; %let nfwg2010_0_4_5=7785; %let nfdiv2010_0_4_5=1049; %let nfint2010_0_4_5=48; %let nfbus2010_0_4_5=5805; %let nfret2010_0_4_5=15537; %let nfss2010_0_4_5=9598; %let nfui2010_0_4_5=108; %let nfitx2010_0_4_5=985; %let nfsh2010_0_4_6=0.0088; %let nfwg2010_0_4_6=9405; %let nfdiv2010_0_4_6=1841; %let nfint2010_0_4_6=107; %let nfbus2010_0_4_6=45733; %let nfret2010_0_4_6=19648; %let nfss2010_0_4_6=7275; %let nfui2010_0_4_6=76; %let nfitx2010_0_4_6=1781; %let nfsh2010_0_4_7=0.0021; %let nfwg2010_0_4_7=19627; %let nfdiv2010_0_4_7=131909; %let nfint2010_0_4_7=168484; %let nfbus2010_0_4_7=335286; %let nfret2010_0_4_7=86672; %let nfss2010_0_4_7=11091; %let nfui2010_0_4_7=62; %let nfitx2010_0_4_7=4673; %let nfsh2010_1_1_1=0.227; %let nfwg2010_1_1_1=0; %let nfdiv2010_1_1_1=0; %let nfint2010_1_1_1=0; %let nfbus2010_1_1_1=0; %let nfret2010_1_1_1=0; %let nfss2010_1_1_1=4659; %let nfui2010_1_1_1=1527; %let nfitx2010_1_1_1=0; %let nfsh2010_1_1_2=0.3497; %let nfwg2010_1_1_2=1294; %let nfdiv2010_1_1_2=50; %let nfint2010_1_1_2=0; %let nfbus2010_1_1_2=336; %let nfret2010_1_1_2=67; %let nfss2010_1_1_2=1680; %let nfui2010_1_1_2=1445; %let nfitx2010_1_1_2=118; %let nfsh2010_1_1_3=0.1059; %let nfwg2010_1_1_3=5157; %let nfdiv2010_1_1_3=166; %let nfint2010_1_1_3=0; %let nfbus2010_1_1_3=1608; %let nfret2010_1_1_3=333; %let nfss2010_1_1_3=1331; %let nfui2010_1_1_3=1331; %let nfitx2010_1_1_3=555; %let nfsh2010_1_1_4=0.1118; %let nfwg2010_1_1_4=10774; %let nfdiv2010_1_1_4=210; %let nfint2010_1_1_4=0; %let nfbus2010_1_1_4=3153; %let nfret2010_1_1_4=420; %let nfss2010_1_1_4=1156; %let nfui2010_1_1_4=1366; %let nfitx2010_1_1_4=1156; %let nfsh2010_1_1_5=0.1435; %let nfwg2010_1_1_5=24491; %let nfdiv2010_1_1_5=369; %let nfint2010_1_1_5=0; %let nfbus2010_1_1_5=6184; %let nfret2010_1_1_5=655; %let nfss2010_1_1_5=819; %let nfui2010_1_1_5=1270; %let nfitx2010_1_1_5=2908; %let nfsh2010_1_1_6=0.0518; %let nfwg2010_1_1_6=43789; %let nfdiv2010_1_1_6=1021; %let nfint2010_1_1_6=0; %let nfbus2010_1_1_6=24844; %let nfret2010_1_1_6=1815; %let nfss2010_1_1_6=681; %let nfui2010_1_1_6=908; %let nfitx2010_1_1_6=6126; %let nfsh2010_1_1_7=0.0103; %let nfwg2010_1_1_7=75000; %let nfdiv2010_1_1_7=68182; %let nfint2010_1_1_7=7386; %let nfbus2010_1_1_7=105114; %let nfret2010_1_1_7=14205; %let nfss2010_1_1_7=568; %let nfui2010_1_1_7=568; %let nfitx2010_1_1_7=13068; %let nfsh2010_1_2_1=0.3053; %let nfwg2010_1_2_1=0; %let nfdiv2010_1_2_1=0; %let nfint2010_1_2_1=0; %let nfbus2010_1_2_1=0; %let nfret2010_1_2_1=0; %let nfss2010_1_2_1=10889; %let nfui2010_1_2_1=1736; %let nfitx2010_1_2_1=0; %let nfsh2010_1_2_2=0.2473; %let nfwg2010_1_2_2=980; %let nfdiv2010_1_2_2=59; %let nfint2010_1_2_2=0; %let nfbus2010_1_2_2=420; %let nfret2010_1_2_2=125; %let nfss2010_1_2_2=5238; %let nfui2010_1_2_2=2336; %let nfitx2010_1_2_2=96; %let nfsh2010_1_2_3=0.0704; %let nfwg2010_1_2_3=4474; %let nfdiv2010_1_2_3=155; %let nfint2010_1_2_3=0; %let nfbus2010_1_2_3=1914; %let nfret2010_1_2_3=698; %let nfss2010_1_2_3=3905; %let nfui2010_1_2_3=2897; %let nfitx2010_1_2_3=466; %let nfsh2010_1_2_4=0.0862; %let nfwg2010_1_2_4=10190; %let nfdiv2010_1_2_4=190; %let nfint2010_1_2_4=0; %let nfbus2010_1_2_4=3213; %let nfret2010_1_2_4=1120; %let nfss2010_1_2_4=3044; %let nfui2010_1_2_4=2939; %let nfitx2010_1_2_4=1099; %let nfsh2010_1_2_5=0.153; %let nfwg2010_1_2_5=26415; %let nfdiv2010_1_2_5=202; %let nfint2010_1_2_5=12; %let nfbus2010_1_2_5=4787; %let nfret2010_1_2_5=1739; %let nfss2010_1_2_5=1989; %let nfui2010_1_2_5=2501; %let nfitx2010_1_2_5=3311; %let nfsh2010_1_2_6=0.0986; %let nfwg2010_1_2_6=53915; %let nfdiv2010_1_2_6=314; %let nfint2010_1_2_6=18; %let nfbus2010_1_2_6=12730; %let nfret2010_1_2_6=3899; %let nfss2010_1_2_6=1090; %let nfui2010_1_2_6=1681; %let nfitx2010_1_2_6=8093; %let nfsh2010_1_2_7=0.0392; %let nfwg2010_1_2_7=118920; %let nfdiv2010_1_2_7=4924; %let nfint2010_1_2_7=511; %let nfbus2010_1_2_7=35955; %let nfret2010_1_2_7=14679; %let nfss2010_1_2_7=557; %let nfui2010_1_2_7=1115; %let nfitx2010_1_2_7=23366; %let nfsh2010_1_3_1=0.3628; %let nfwg2010_1_3_1=0; %let nfdiv2010_1_3_1=0; %let nfint2010_1_3_1=0; %let nfbus2010_1_3_1=0; %let nfret2010_1_3_1=0; %let nfss2010_1_3_1=15582; %let nfui2010_1_3_1=1251; %let nfitx2010_1_3_1=0; %let nfsh2010_1_3_2=0.2434; %let nfwg2010_1_3_2=692; %let nfdiv2010_1_3_2=70; %let nfint2010_1_3_2=0; %let nfbus2010_1_3_2=411; %let nfret2010_1_3_2=491; %let nfss2010_1_3_2=11520; %let nfui2010_1_3_2=1594; %let nfitx2010_1_3_2=60; %let nfsh2010_1_3_3=0.0781; %let nfwg2010_1_3_3=2970; %let nfdiv2010_1_3_3=156; %let nfint2010_1_3_3=0; %let nfbus2010_1_3_3=1594; %let nfret2010_1_3_3=2532; %let nfss2010_1_3_3=11537; %let nfui2010_1_3_3=1876; %let nfitx2010_1_3_3=281; %let nfsh2010_1_3_4=0.0863; %let nfwg2010_1_3_4=7663; %let nfdiv2010_1_3_4=226; %let nfint2010_1_3_4=0; %let nfbus2010_1_3_4=2771; %let nfret2010_1_3_4=3874; %let nfss2010_1_3_4=9049; %let nfui2010_1_3_4=2093; %let nfitx2010_1_3_4=792; %let nfsh2010_1_3_5=0.126; %let nfwg2010_1_3_5=23267; %let nfdiv2010_1_3_5=271; %let nfint2010_1_3_5=0; %let nfbus2010_1_3_5=4533; %let nfret2010_1_3_5=4766; %let nfss2010_1_3_5=5405; %let nfui2010_1_3_5=1976; %let nfitx2010_1_3_5=3022; %let nfsh2010_1_3_6=0.0737; %let nfwg2010_1_3_6=48305; %let nfdiv2010_1_3_6=431; %let nfint2010_1_3_6=0; %let nfbus2010_1_3_6=12689; %let nfret2010_1_3_6=9376; %let nfss2010_1_3_6=3313; %let nfui2010_1_3_6=1425; %let nfitx2010_1_3_6=7852; %let nfsh2010_1_3_7=0.0297; %let nfwg2010_1_3_7=103530; %let nfdiv2010_1_3_7=6240; %let nfint2010_1_3_7=13218; %let nfbus2010_1_3_7=132841; %let nfret2010_1_3_7=31034; %let nfss2010_1_3_7=1888; %let nfui2010_1_3_7=1067; %let nfitx2010_1_3_7=21346; %let nfsh2010_1_4_1=0.3305; %let nfwg2010_1_4_1=0; %let nfdiv2010_1_4_1=0; %let nfint2010_1_4_1=0; %let nfbus2010_1_4_1=0; %let nfret2010_1_4_1=0; %let nfss2010_1_4_1=18125; %let nfui2010_1_4_1=406; %let nfitx2010_1_4_1=0; %let nfsh2010_1_4_2=0.2855; %let nfwg2010_1_4_2=216; %let nfdiv2010_1_4_2=91; %let nfint2010_1_4_2=2; %let nfbus2010_1_4_2=189; %let nfret2010_1_4_2=1574; %let nfss2010_1_4_2=20304; %let nfui2010_1_4_2=439; %let nfitx2010_1_4_2=20; %let nfsh2010_1_4_3=0.1622; %let nfwg2010_1_4_3=610; %let nfdiv2010_1_4_3=177; %let nfint2010_1_4_3=7; %let nfbus2010_1_4_3=450; %let nfret2010_1_4_3=6083; %let nfss2010_1_4_3=22541; %let nfui2010_1_4_3=333; %let nfitx2010_1_4_3=55; %let nfsh2010_1_4_4=0.1414; %let nfwg2010_1_4_4=1721; %let nfdiv2010_1_4_4=266; %let nfint2010_1_4_4=16; %let nfbus2010_1_4_4=914; %let nfret2010_1_4_4=10915; %let nfss2010_1_4_4=22200; %let nfui2010_1_4_4=350; %let nfitx2010_1_4_4=179; %let nfsh2010_1_4_5=0.0559; %let nfwg2010_1_4_5=13342; %let nfdiv2010_1_4_5=593; %let nfint2010_1_4_5=30; %let nfbus2010_1_4_5=4330; %let nfret2010_1_4_5=12518; %let nfss2010_1_4_5=16335; %let nfui2010_1_4_5=733; %let nfitx2010_1_4_5=1738; %let nfsh2010_1_4_6=0.0186; %let nfwg2010_1_4_6=27504; %let nfdiv2010_1_4_6=1208; %let nfint2010_1_4_6=60; %let nfbus2010_1_4_6=23216; %let nfret2010_1_4_6=18990; %let nfss2010_1_4_6=14039; %let nfui2010_1_4_6=604; %let nfitx2010_1_4_6=4710; %let nfsh2010_1_4_7=0.0059; %let nfwg2010_1_4_7=48289; %let nfdiv2010_1_4_7=75951; %let nfint2010_1_4_7=14639; %let nfbus2010_1_4_7=113973; %let nfret2010_1_4_7=54373; %let nfss2010_1_4_7=15114; %let nfui2010_1_4_7=475; %let nfitx2010_1_4_7=10551; %let nfsh2018_0_1_1=0.1966; %let nfwg2018_0_1_1=0; %let nfdiv2018_0_1_1=0; %let nfint2018_0_1_1=0; %let nfbus2018_0_1_1=0; %let nfret2018_0_1_1=0; %let nfss2018_0_1_1=1616; %let nfui2018_0_1_1=80; %let nfitx2018_0_1_1=3; %let nfsh2018_0_1_2=0.2889; %let nfwg2018_0_1_2=1419; %let nfdiv2018_0_1_2=33; %let nfint2018_0_1_2=0; %let nfbus2018_0_1_2=259; %let nfret2018_0_1_2=31; %let nfss2018_0_1_2=251; %let nfui2018_0_1_2=77; %let nfitx2018_0_1_2=162; %let nfsh2018_0_1_3=0.102; %let nfwg2018_0_1_3=5959; %let nfdiv2018_0_1_3=64; %let nfint2018_0_1_3=0; %let nfbus2018_0_1_3=1114; %let nfret2018_0_1_3=97; %let nfss2018_0_1_3=127; %let nfui2018_0_1_3=145; %let nfitx2018_0_1_3=717; %let nfsh2018_0_1_4=0.1327; %let nfwg2018_0_1_4=12330; %let nfdiv2018_0_1_4=79; %let nfint2018_0_1_4=2; %let nfbus2018_0_1_4=2203; %let nfret2018_0_1_4=155; %let nfss2018_0_1_4=67; %let nfui2018_0_1_4=203; %let nfitx2018_0_1_4=1548; %let nfsh2018_0_1_5=0.2117; %let nfwg2018_0_1_5=26914; %let nfdiv2018_0_1_5=99; %let nfint2018_0_1_5=3; %let nfbus2018_0_1_5=3827; %let nfret2018_0_1_5=341; %let nfss2018_0_1_5=29; %let nfui2018_0_1_5=164; %let nfitx2018_0_1_5=3694; %let nfsh2018_0_1_6=0.0545; %let nfwg2018_0_1_6=47271; %let nfdiv2018_0_1_6=340; %let nfint2018_0_1_6=8; %let nfbus2018_0_1_6=15656; %let nfret2018_0_1_6=1317; %let nfss2018_0_1_6=34; %let nfui2018_0_1_6=151; %let nfitx2018_0_1_6=7655; %let nfsh2018_0_1_7=0.0136; %let nfwg2018_0_1_7=63517; %let nfdiv2018_0_1_7=15598; %let nfint2018_0_1_7=31865; %let nfbus2018_0_1_7=14946; %let nfret2018_0_1_7=6904; %let nfss2018_0_1_7=106; %let nfui2018_0_1_7=91; %let nfitx2018_0_1_7=13929; %let nfsh2018_0_2_1=0.2965; %let nfwg2018_0_2_1=0; %let nfdiv2018_0_2_1=0; %let nfint2018_0_2_1=0; %let nfbus2018_0_2_1=0; %let nfret2018_0_2_1=0; %let nfss2018_0_2_1=5931; %let nfui2018_0_2_1=69; %let nfitx2018_0_2_1=3; %let nfsh2018_0_2_2=0.1833; %let nfwg2018_0_2_2=1078; %let nfdiv2018_0_2_2=65; %let nfint2018_0_2_2=1; %let nfbus2018_0_2_2=453; %let nfret2018_0_2_2=83; %let nfss2018_0_2_2=1406; %let nfui2018_0_2_2=127; %let nfitx2018_0_2_2=122; %let nfsh2018_0_2_3=0.0656; %let nfwg2018_0_2_3=4889; %let nfdiv2018_0_2_3=141; %let nfint2018_0_2_3=2; %let nfbus2018_0_2_3=1839; %let nfret2018_0_2_3=373; %let nfss2018_0_2_3=910; %let nfui2018_0_2_3=269; %let nfitx2018_0_2_3=568; %let nfsh2018_0_2_4=0.096; %let nfwg2018_0_2_4=10895; %let nfdiv2018_0_2_4=155; %let nfint2018_0_2_4=3; %let nfbus2018_0_2_4=3170; %let nfret2018_0_2_4=558; %let nfss2018_0_2_4=521; %let nfui2018_0_2_4=377; %let nfitx2018_0_2_4=1297; %let nfsh2018_0_2_5=0.2136; %let nfwg2018_0_2_5=27029; %let nfdiv2018_0_2_5=138; %let nfint2018_0_2_5=2; %let nfbus2018_0_2_5=4567; %let nfret2018_0_2_5=913; %let nfss2018_0_2_5=191; %let nfui2018_0_2_5=286; %let nfitx2018_0_2_5=3593; %let nfsh2018_0_2_6=0.109; %let nfwg2018_0_2_6=50109; %let nfdiv2018_0_2_6=280; %let nfint2018_0_2_6=7; %let nfbus2018_0_2_6=14293; %let nfret2018_0_2_6=2625; %let nfss2018_0_2_6=146; %let nfui2018_0_2_6=214; %let nfitx2018_0_2_6=8184; %let nfsh2018_0_2_7=0.036; %let nfwg2018_0_2_7=96907; %let nfdiv2018_0_2_7=10146; %let nfint2018_0_2_7=1552; %let nfbus2018_0_2_7=11284; %let nfret2018_0_2_7=12382; %let nfss2018_0_2_7=304; %let nfui2018_0_2_7=165; %let nfitx2018_0_2_7=20687; %let nfsh2018_0_3_1=0.4929; %let nfwg2018_0_3_1=0; %let nfdiv2018_0_3_1=0; %let nfint2018_0_3_1=0; %let nfbus2018_0_3_1=0; %let nfret2018_0_3_1=0; %let nfss2018_0_3_1=9954; %let nfui2018_0_3_1=28; %let nfitx2018_0_3_1=2; %let nfsh2018_0_3_2=0.1524; %let nfwg2018_0_3_2=661; %let nfdiv2018_0_3_2=116; %let nfint2018_0_3_2=1; %let nfbus2018_0_3_2=443; %let nfret2018_0_3_2=433; %let nfss2018_0_3_2=5875; %let nfui2018_0_3_2=94; %let nfitx2018_0_3_2=70; %let nfsh2018_0_3_3=0.0531; %let nfwg2018_0_3_3=3190; %let nfdiv2018_0_3_3=265; %let nfint2018_0_3_3=4; %let nfbus2018_0_3_3=1665; %let nfret2018_0_3_3=2094; %let nfss2018_0_3_3=5592; %let nfui2018_0_3_3=206; %let nfitx2018_0_3_3=354; %let nfsh2018_0_3_4=0.0683; %let nfwg2018_0_3_4=8440; %let nfdiv2018_0_3_4=311; %let nfint2018_0_3_4=7; %let nfbus2018_0_3_4=2940; %let nfret2018_0_3_4=2897; %let nfss2018_0_3_4=3710; %let nfui2018_0_3_4=324; %let nfitx2018_0_3_4=1003; %let nfsh2018_0_3_5=0.1335; %let nfwg2018_0_3_5=24018; %let nfdiv2018_0_3_5=312; %let nfint2018_0_3_5=5; %let nfbus2018_0_3_5=4154; %let nfret2018_0_3_5=3717; %let nfss2018_0_3_5=1418; %let nfui2018_0_3_5=266; %let nfitx2018_0_3_5=3365; %let nfsh2018_0_3_6=0.0705; %let nfwg2018_0_3_6=45025; %let nfdiv2018_0_3_6=584; %let nfint2018_0_3_6=13; %let nfbus2018_0_3_6=14691; %let nfret2018_0_3_6=7281; %let nfss2018_0_3_6=895; %let nfui2018_0_3_6=190; %let nfitx2018_0_3_6=8026; %let nfsh2018_0_3_7=0.0293; %let nfwg2018_0_3_7=84183; %let nfdiv2018_0_3_7=10575; %let nfint2018_0_3_7=1391; %let nfbus2018_0_3_7=10468; %let nfret2018_0_3_7=24261; %let nfss2018_0_3_7=1391; %let nfui2018_0_3_7=138; %let nfitx2018_0_3_7=19416; %let nfsh2018_0_4_1=0.5297; %let nfwg2018_0_4_1=0; %let nfdiv2018_0_4_1=0; %let nfint2018_0_4_1=0; %let nfbus2018_0_4_1=0; %let nfret2018_0_4_1=0; %let nfss2018_0_4_1=11785; %let nfui2018_0_4_1=4; %let nfitx2018_0_4_1=1; %let nfsh2018_0_4_2=0.2151; %let nfwg2018_0_4_2=138; %let nfdiv2018_0_4_2=130; %let nfint2018_0_4_2=1; %let nfbus2018_0_4_2=166; %let nfret2018_0_4_2=1592; %let nfss2018_0_4_2=14555; %let nfui2018_0_4_2=9; %let nfitx2018_0_4_2=13; %let nfsh2018_0_4_3=0.0982; %let nfwg2018_0_4_3=530; %let nfdiv2018_0_4_3=290; %let nfint2018_0_4_3=5; %let nfbus2018_0_4_3=456; %let nfret2018_0_4_3=5923; %let nfss2018_0_4_3=16066; %let nfui2018_0_4_3=13; %let nfitx2018_0_4_3=51; %let nfsh2018_0_4_4=0.0693; %let nfwg2018_0_4_4=1827; %let nfdiv2018_0_4_4=523; %let nfint2018_0_4_4=12; %let nfbus2018_0_4_4=1266; %let nfret2018_0_4_4=10056; %let nfss2018_0_4_4=15411; %let nfui2018_0_4_4=31; %let nfitx2018_0_4_4=203; %let nfsh2018_0_4_5=0.0506; %let nfwg2018_0_4_5=9045; %let nfdiv2018_0_4_5=1085; %let nfint2018_0_4_5=20; %let nfbus2018_0_4_5=4093; %let nfret2018_0_4_5=15952; %let nfss2018_0_4_5=12877; %let nfui2018_0_4_5=57; %let nfitx2018_0_4_5=1244; %let nfsh2018_0_4_6=0.0225; %let nfwg2018_0_4_6=17280; %let nfdiv2018_0_4_6=2098; %let nfint2018_0_4_6=50; %let nfbus2018_0_4_6=24561; %let nfret2018_0_4_6=22458; %let nfss2018_0_4_6=10527; %let nfui2018_0_4_6=46; %let nfitx2018_0_4_6=3113; %let nfsh2018_0_4_7=0.0147; %let nfwg2018_0_4_7=21772; %let nfdiv2018_0_4_7=31327; %let nfint2018_0_4_7=4964; %let nfbus2018_0_4_7=12371; %let nfret2018_0_4_7=35273; %let nfss2018_0_4_7=9640; %let nfui2018_0_4_7=21; %let nfitx2018_0_4_7=5322; %let nfsh2018_1_1_1=0.0613; %let nfwg2018_1_1_1=0; %let nfdiv2018_1_1_1=0; %let nfint2018_1_1_1=0; %let nfbus2018_1_1_1=0; %let nfret2018_1_1_1=0; %let nfss2018_1_1_1=2917; %let nfui2018_1_1_1=108; %let nfitx2018_1_1_1=0; %let nfsh2018_1_1_2=0.1861; %let nfwg2018_1_1_2=1671; %let nfdiv2018_1_1_2=36; %let nfint2018_1_1_2=0; %let nfbus2018_1_1_2=284; %let nfret2018_1_1_2=36; %let nfss2018_1_1_2=1031; %let nfui2018_1_1_2=142; %let nfitx2018_1_1_2=178; %let nfsh2018_1_1_3=0.095; %let nfwg2018_1_1_3=6129; %let nfdiv2018_1_1_3=70; %let nfint2018_1_1_3=0; %let nfbus2018_1_1_3=975; %let nfret2018_1_1_3=70; %let nfss2018_1_1_3=627; %let nfui2018_1_1_3=209; %let nfitx2018_1_1_3=696; %let nfsh2018_1_1_4=0.1357; %let nfwg2018_1_1_4=12529; %let nfdiv2018_1_1_4=97; %let nfint2018_1_1_4=0; %let nfbus2018_1_1_4=2047; %let nfret2018_1_1_4=146; %let nfss2018_1_1_4=487; %let nfui2018_1_1_4=292; %let nfitx2018_1_1_4=1511; %let nfsh2018_1_1_5=0.2812; %let nfwg2018_1_1_5=28879; %let nfdiv2018_1_1_5=94; %let nfint2018_1_1_5=0; %let nfbus2018_1_1_5=3836; %let nfret2018_1_1_5=353; %let nfss2018_1_1_5=353; %let nfui2018_1_1_5=306; %let nfitx2018_1_1_5=3789; %let nfsh2018_1_1_6=0.1821; %let nfwg2018_1_1_6=58146; %let nfdiv2018_1_1_6=182; %let nfint2018_1_1_6=0; %let nfbus2018_1_1_6=8431; %let nfret2018_1_1_6=1090; %let nfss2018_1_1_6=145; %let nfui2018_1_1_6=327; %let nfitx2018_1_1_6=8213; %let nfsh2018_1_1_7=0.0586; %let nfwg2018_1_1_7=107724; %let nfdiv2018_1_1_7=1581; %let nfint2018_1_1_7=226; %let nfbus2018_1_1_7=16034; %let nfret2018_1_1_7=4404; %let nfss2018_1_1_7=113; %let nfui2018_1_1_7=226; %let nfitx2018_1_1_7=15696; %let nfsh2018_1_2_1=0.0897; %let nfwg2018_1_2_1=0; %let nfdiv2018_1_2_1=0; %let nfint2018_1_2_1=0; %let nfbus2018_1_2_1=0; %let nfret2018_1_2_1=0; %let nfss2018_1_2_1=11565; %let nfui2018_1_2_1=97; %let nfitx2018_1_2_1=14; %let nfsh2018_1_2_2=0.1217; %let nfwg2018_1_2_2=1315; %let nfdiv2018_1_2_2=61; %let nfint2018_1_2_2=0; %let nfbus2018_1_2_2=418; %let nfret2018_1_2_2=82; %let nfss2018_1_2_2=5230; %let nfui2018_1_2_2=194; %let nfitx2018_1_2_2=153; %let nfsh2018_1_2_3=0.0551; %let nfwg2018_1_2_3=5312; %let nfdiv2018_1_2_3=135; %let nfint2018_1_2_3=0; %let nfbus2018_1_2_3=1553; %let nfret2018_1_2_3=315; %let nfss2018_1_2_3=3714; %let nfui2018_1_2_3=315; %let nfitx2018_1_2_3=608; %let nfsh2018_1_2_4=0.0857; %let nfwg2018_1_2_4=11375; %let nfdiv2018_1_2_4=130; %let nfint2018_1_2_4=0; %let nfbus2018_1_2_4=2840; %let nfret2018_1_2_4=551; %let nfss2018_1_2_4=3144; %let nfui2018_1_2_4=435; %let nfitx2018_1_2_4=1333; %let nfsh2018_1_2_5=0.2267; %let nfwg2018_1_2_5=28428; %let nfdiv2018_1_2_5=137; %let nfint2018_1_2_5=0; %let nfbus2018_1_2_5=4462; %let nfret2018_1_2_5=925; %let nfss2018_1_2_5=2185; %let nfui2018_1_2_5=460; %let nfitx2018_1_2_5=3597; %let nfsh2018_1_2_6=0.2415; %let nfwg2018_1_2_6=59981; %let nfdiv2018_1_2_6=180; %let nfint2018_1_2_6=5; %let nfbus2018_1_2_6=8627; %let nfret2018_1_2_6=2235; %let nfss2018_1_2_6=992; %let nfui2018_1_2_6=452; %let nfitx2018_1_2_6=8463; %let nfsh2018_1_2_7=0.1795; %let nfwg2018_1_2_7=138174; %let nfdiv2018_1_2_7=2054; %let nfint2018_1_2_7=823; %let nfbus2018_1_2_7=11913; %let nfret2018_1_2_7=8961; %let nfss2018_1_2_7=401; %let nfui2018_1_2_7=353; %let nfitx2018_1_2_7=25894; %let nfsh2018_1_3_1=0.2013; %let nfwg2018_1_3_1=0; %let nfdiv2018_1_3_1=0; %let nfint2018_1_3_1=0; %let nfbus2018_1_3_1=0; %let nfret2018_1_3_1=0; %let nfss2018_1_3_1=18974; %let nfui2018_1_3_1=61; %let nfitx2018_1_3_1=7; %let nfsh2018_1_3_2=0.1482; %let nfwg2018_1_3_2=992; %let nfdiv2018_1_3_2=73; %let nfint2018_1_3_2=0; %let nfbus2018_1_3_2=404; %let nfret2018_1_3_2=321; %let nfss2018_1_3_2=12302; %let nfui2018_1_3_2=147; %let nfitx2018_1_3_2=110; %let nfsh2018_1_3_3=0.0598; %let nfwg2018_1_3_3=4207; %let nfdiv2018_1_3_3=182; %let nfint2018_1_3_3=0; %let nfbus2018_1_3_3=1455; %let nfret2018_1_3_3=1433; %let nfss2018_1_3_3=11166; %let nfui2018_1_3_3=273; %let nfitx2018_1_3_3=478; %let nfsh2018_1_3_4=0.0862; %let nfwg2018_1_3_4=9777; %let nfdiv2018_1_3_4=205; %let nfint2018_1_3_4=0; %let nfbus2018_1_3_4=2574; %let nfret2018_1_3_4=2211; %let nfss2018_1_3_4=9524; %let nfui2018_1_3_4=379; %let nfitx2018_1_3_4=1153; %let nfsh2018_1_3_5=0.2023; %let nfwg2018_1_3_5=26495; %let nfdiv2018_1_3_5=222; %let nfint2018_1_3_5=0; %let nfbus2018_1_3_5=3936; %let nfret2018_1_3_5=2900; %let nfss2018_1_3_5=6748; %let nfui2018_1_3_5=410; %let nfitx2018_1_3_5=3452; %let nfsh2018_1_3_6=0.18; %let nfwg2018_1_3_6=55748; %let nfdiv2018_1_3_6=348; %let nfint2018_1_3_6=8; %let nfbus2018_1_3_6=8375; %let nfret2018_1_3_6=5881; %let nfss2018_1_3_6=3591; %let nfui2018_1_3_6=408; %let nfitx2018_1_3_6=8436; %let nfsh2018_1_3_7=0.1221; %let nfwg2018_1_3_7=125863; %let nfdiv2018_1_3_7=337894; %let nfint2018_1_3_7=134; %let nfbus2018_1_3_7=12466; %let nfret2018_1_3_7=19323; %let nfss2018_1_3_7=1773; %let nfui2018_1_3_7=335; %let nfitx2018_1_3_7=25177; %let nfsh2018_1_4_1=0.3117; %let nfwg2018_1_4_1=0; %let nfdiv2018_1_4_1=0; %let nfint2018_1_4_1=0; %let nfbus2018_1_4_1=0; %let nfret2018_1_4_1=0; %let nfss2018_1_4_1=21541; %let nfui2018_1_4_1=19; %let nfitx2018_1_4_1=3; %let nfsh2018_1_4_2=0.2183; %let nfwg2018_1_4_2=348; %let nfdiv2018_1_4_2=98; %let nfint2018_1_4_2=2; %let nfbus2018_1_4_2=209; %let nfret2018_1_4_2=1416; %let nfss2018_1_4_2=23633; %let nfui2018_1_4_2=43; %let nfitx2018_1_4_2=39; %let nfsh2018_1_4_3=0.1207; %let nfwg2018_1_4_3=1178; %let nfdiv2018_1_4_3=201; %let nfint2018_1_4_3=3; %let nfbus2018_1_4_3=552; %let nfret2018_1_4_3=5396; %let nfss2018_1_4_3=25775; %let nfui2018_1_4_3=57; %let nfitx2018_1_4_3=127; %let nfsh2018_1_4_4=0.1382; %let nfwg2018_1_4_4=3093; %let nfdiv2018_1_4_4=310; %let nfint2018_1_4_4=6; %let nfbus2018_1_4_4=1122; %let nfret2018_1_4_4=9766; %let nfss2018_1_4_4=25475; %let nfui2018_1_4_4=96; %let nfitx2018_1_4_4=351; %let nfsh2018_1_4_5=0.1193; %let nfwg2018_1_4_5=16520; %let nfdiv2018_1_4_5=531; %let nfint2018_1_4_5=14; %let nfbus2018_1_4_5=3537; %let nfret2018_1_4_5=11020; %let nfss2018_1_4_5=19597; %let nfui2018_1_4_5=196; %let nfitx2018_1_4_5=2203; %let nfsh2018_1_4_6=0.0605; %let nfwg2018_1_4_6=36403; %let nfdiv2018_1_4_6=1122; %let nfint2018_1_4_6=20; %let nfbus2018_1_4_6=11816; %let nfret2018_1_4_6=18338; %let nfss2018_1_4_6=17998; %let nfui2018_1_4_6=200; %let nfitx2018_1_4_6=5815; %let nfsh2018_1_4_7=0.0313; %let nfwg2018_1_4_7=68767; %let nfdiv2018_1_4_7=27257; %let nfint2018_1_4_7=3982; %let nfbus2018_1_4_7=17888; %let nfret2018_1_4_7=40840; %let nfss2018_1_4_7=17785; %let nfui2018_1_4_7=155; %let nfitx2018_1_4_7=14795; * Auten and Langetieg (2020) estimates of detected net misreported income (underreporting and overreporting) from special audit studies: 1988 TCMP, 2001 NRP, and 2006-2013 NRPs; %let pb1988_1_0=6.94; %let pb1988_1_1=56.28; %let pb1988_1_2=0; %let pb1988_1_3=4.9; %let pb1988_1_4=1.83; %let pb1988_1_5=3.37; %let pb1988_1_6=2.95; %let pb1988_1_7=3.6; %let pb1988_1_8=0.36; %let pb1988_1_9=0.38; %let pb1988_2_0=7.19; %let pb1988_2_1=19.3; %let pb1988_2_2=0; %let pb1988_2_3=1.3; %let pb1988_2_4=1.36; %let pb1988_2_5=3.11; %let pb1988_2_6=4.03; %let pb1988_2_7=16.01; %let pb1988_2_8=13.17; %let pb1988_2_9=8.55; %let pb1988_3_0=0; %let pb1988_3_1=3.3; %let pb1988_3_2=0; %let pb1988_3_3=7.4; %let pb1988_3_4=2.32; %let pb1988_3_5=2.7; %let pb1988_3_6=1.98; %let pb1988_3_7=2.34; %let pb1988_3_8=1.21; %let pb1988_3_9=0.72; %let pb1988_4_0=0; %let pb1988_4_1=2.94; %let pb1988_4_2=0; %let pb1988_4_3=11.6; %let pb1988_4_4=3.12; %let pb1988_4_5=3.5; %let pb1988_4_6=1.58; %let pb1988_4_7=1.19; %let pb1988_4_8=0.18; %let pb1988_4_9=0; %let pb1988_5_0=0; %let pb1988_5_1=3.33; %let pb1988_5_2=0; %let pb1988_5_3=12.9; %let pb1988_5_4=3.06; %let pb1988_5_5=2.71; %let pb1988_5_6=1.06; %let pb1988_5_7=0.52; %let pb1988_5_8=0.09; %let pb1988_5_9=0; %let pb1988_6_0=0; %let pb1988_6_1=4.04; %let pb1988_6_2=0; %let pb1988_6_3=16; %let pb1988_6_4=2.5; %let pb1988_6_5=2; %let pb1988_6_6=0.7; %let pb1988_6_7=0.2; %let pb1988_6_8=0.03; %let pb1988_6_9=0; %let pb1988_7_0=0; %let pb1988_7_1=4.68; %let pb1988_7_2=0; %let pb1988_7_3=17; %let pb1988_7_4=2.22; %let pb1988_7_5=1.39; %let pb1988_7_6=0.38; %let pb1988_7_7=0.18; %let pb1988_7_8=0.03; %let pb1988_7_9=0; %let pb1988_8_0=0; %let pb1988_8_1=4.72; %let pb1988_8_2=0; %let pb1988_8_3=17.1; %let pb1988_8_4=2.12; %let pb1988_8_5=1.42; %let pb1988_8_6=0.36; %let pb1988_8_7=0.25; %let pb1988_8_8=0.02; %let pb1988_8_9=0; %let pb1988_9_0=0; %let pb1988_9_1=5.56; %let pb1988_9_2=0; %let pb1988_9_3=21.6; %let pb1988_9_4=2.52; %let pb1988_9_5=1.79; %let pb1988_9_6=0.34; %let pb1988_9_7=0.13; %let pb1988_9_8=0; %let pb1988_9_9=0; %let pb1988_10_0=0; %let pb1988_10_1=7.2; %let pb1988_10_2=0; %let pb1988_10_3=26.9; %let pb1988_10_4=2.91; %let pb1988_10_5=2.59; %let pb1988_10_6=0.35; %let pb1988_10_7=0.22; %let pb1988_10_8=0; %let pb1988_10_9=0; %let pb1988_11_0=0; %let pb1988_11_1=6.24; %let pb1988_11_2=0; %let pb1988_11_3=24.2; %let pb1988_11_4=2.23; %let pb1988_11_5=1.24; %let pb1988_11_6=0.59; %let pb1988_11_7=0.16; %let pb1988_11_8=0.03; %let pb1988_11_9=0; %let sb1988_1_0=-1.38; %let sb1988_1_1=-0.73; %let sb1988_1_2=0; %let sb1988_1_3=1.04; %let sb1988_1_4=1.15; %let sb1988_1_5=1.32; %let sb1988_1_6=1.72; %let sb1988_1_7=2.44; %let sb1988_1_8=6.63; %let sb1988_1_9=9.96; %let sb1988_2_0=-2.3; %let sb1988_2_1=-0.5; %let sb1988_2_2=0; %let sb1988_2_3=1.05; %let sb1988_2_4=1.14; %let sb1988_2_5=1.35; %let sb1988_2_6=1.77; %let sb1988_2_7=2.77; %let sb1988_2_8=5.56; %let sb1988_2_9=15.77; %let sb1988_3_0=0; %let sb1988_3_1=0.78; %let sb1988_3_2=0; %let sb1988_3_3=1.04; %let sb1988_3_4=1.15; %let sb1988_3_5=1.34; %let sb1988_3_6=1.68; %let sb1988_3_7=2.69; %let sb1988_3_8=5.36; %let sb1988_3_9=15.56; %let sb1988_4_0=0; %let sb1988_4_1=0.85; %let sb1988_4_2=0; %let sb1988_4_3=1.03; %let sb1988_4_4=1.15; %let sb1988_4_5=1.32; %let sb1988_4_6=1.68; %let sb1988_4_7=2.64; %let sb1988_4_8=5.4; %let sb1988_4_9=0; %let sb1988_5_0=0; %let sb1988_5_1=0.94; %let sb1988_5_2=0; %let sb1988_5_3=1.03; %let sb1988_5_4=1.14; %let sb1988_5_5=1.31; %let sb1988_5_6=1.7; %let sb1988_5_7=2.56; %let sb1988_5_8=5.39; %let sb1988_5_9=0; %let sb1988_6_0=0; %let sb1988_6_1=0.95; %let sb1988_6_2=0; %let sb1988_6_3=1.03; %let sb1988_6_4=1.14; %let sb1988_6_5=1.32; %let sb1988_6_6=1.7; %let sb1988_6_7=2.44; %let sb1988_6_8=4.77; %let sb1988_6_9=0; %let sb1988_7_0=0; %let sb1988_7_1=0.94; %let sb1988_7_2=0; %let sb1988_7_3=1.03; %let sb1988_7_4=1.14; %let sb1988_7_5=1.32; %let sb1988_7_6=1.67; %let sb1988_7_7=2.56; %let sb1988_7_8=5.01; %let sb1988_7_9=0; %let sb1988_8_0=0; %let sb1988_8_1=0.96; %let sb1988_8_2=0; %let sb1988_8_3=1.03; %let sb1988_8_4=1.14; %let sb1988_8_5=1.3; %let sb1988_8_6=1.7; %let sb1988_8_7=2.42; %let sb1988_8_8=5.97; %let sb1988_8_9=0; %let sb1988_9_0=0; %let sb1988_9_1=0.97; %let sb1988_9_2=0; %let sb1988_9_3=1.03; %let sb1988_9_4=1.14; %let sb1988_9_5=1.3; %let sb1988_9_6=1.62; %let sb1988_9_7=2.58; %let sb1988_9_8=4.74; %let sb1988_9_9=0; %let sb1988_10_0=0; %let sb1988_10_1=0.96; %let sb1988_10_2=0; %let sb1988_10_3=1.03; %let sb1988_10_4=1.14; %let sb1988_10_5=1.3; %let sb1988_10_6=1.69; %let sb1988_10_7=2.47; %let sb1988_10_8=0; %let sb1988_10_9=0; %let sb1988_11_0=0; %let sb1988_11_1=0.95; %let sb1988_11_2=0; %let sb1988_11_3=1.03; %let sb1988_11_4=1.14; %let sb1988_11_5=1.31; %let sb1988_11_6=1.69; %let sb1988_11_7=2.29; %let sb1988_11_8=5.63; %let sb1988_11_9=0; %let var1988_1_0=0.1; %let var1988_1_1=0.014; %let var1988_1_2=0; %let var1988_1_3=0.008; %let var1988_1_4=0.01; %let var1988_1_5=0.015; %let var1988_1_6=0.04; %let var1988_1_7=0.149; %let var1988_1_8=0.629; %let var1988_1_9=2.189; %let var1988_2_0=0.399; %let var1988_2_1=0.021; %let var1988_2_2=0; %let var1988_2_3=0.007; %let var1988_2_4=0.006; %let var1988_2_5=0.012; %let var1988_2_6=0.017; %let var1988_2_7=0.046; %let var1988_2_8=0.09; %let var1988_2_9=1.179; %let var1988_3_0=0; %let var1988_3_1=0.015; %let var1988_3_2=0; %let var1988_3_3=0.002; %let var1988_3_4=0.002; %let var1988_3_5=0.005; %let var1988_3_6=0.008; %let var1988_3_7=0.025; %let var1988_3_8=0.061; %let var1988_3_9=0.817; %let var1988_4_0=0; %let var1988_4_1=0.013; %let var1988_4_2=0; %let var1988_4_3=0.001; %let var1988_4_4=0.002; %let var1988_4_5=0.004; %let var1988_4_6=0.007; %let var1988_4_7=0.028; %let var1988_4_8=0.107; %let var1988_4_9=0; %let var1988_5_0=0; %let var1988_5_1=0.004; %let var1988_5_2=0; %let var1988_5_3=0.001; %let var1988_5_4=0.001; %let var1988_5_5=0.003; %let var1988_5_6=0.007; %let var1988_5_7=0.027; %let var1988_5_8=0.161; %let var1988_5_9=0; %let var1988_6_0=0; %let var1988_6_1=0.003; %let var1988_6_2=0; %let var1988_6_3=0.001; %let var1988_6_4=0.001; %let var1988_6_5=0.003; %let var1988_6_6=0.008; %let var1988_6_7=0.039; %let var1988_6_8=0.196; %let var1988_6_9=0; %let var1988_7_0=0; %let var1988_7_1=0.005; %let var1988_7_2=0; %let var1988_7_3=0.001; %let var1988_7_4=0.001; %let var1988_7_5=0.004; %let var1988_7_6=0.014; %let var1988_7_7=0.078; %let var1988_7_8=0.121; %let var1988_7_9=0; %let var1988_8_0=0; %let var1988_8_1=0.003; %let var1988_8_2=0; %let var1988_8_3=0.001; %let var1988_8_4=0.002; %let var1988_8_5=0.007; %let var1988_8_6=0.019; %let var1988_8_7=0.059; %let var1988_8_8=0.177; %let var1988_8_9=0; %let var1988_9_0=0; %let var1988_9_1=0.004; %let var1988_9_2=0; %let var1988_9_3=0.001; %let var1988_9_4=0.002; %let var1988_9_5=0.005; %let var1988_9_6=0.014; %let var1988_9_7=0.093; %let var1988_9_8=0.201; %let var1988_9_9=0; %let var1988_10_0=0; %let var1988_10_1=0.006; %let var1988_10_2=0; %let var1988_10_3=0.001; %let var1988_10_4=0.003; %let var1988_10_5=0.011; %let var1988_10_6=0.039; %let var1988_10_7=0.123; %let var1988_10_8=0; %let var1988_10_9=0; %let var1988_11_0=0; %let var1988_11_1=0.008; %let var1988_11_2=0; %let var1988_11_3=0.001; %let var1988_11_4=0.003; %let var1988_11_5=0.011; %let var1988_11_6=0.032; %let var1988_11_7=0.065; %let var1988_11_8=0; %let var1988_11_9=0; %let pb2001_1_0=5.37; %let pb2001_1_1=41.37; %let pb2001_1_2=0; %let pb2001_1_3=3.5; %let pb2001_1_4=2.95; %let pb2001_1_5=7.89; %let pb2001_1_6=2.92; %let pb2001_1_7=4.24; %let pb2001_1_8=0.53; %let pb2001_1_9=0; %let pb2001_2_0=3.87; %let pb2001_2_1=20.52; %let pb2001_2_2=0; %let pb2001_2_3=3.4; %let pb2001_2_4=2.47; %let pb2001_2_5=2.07; %let pb2001_2_6=5.67; %let pb2001_2_7=9.91; %let pb2001_2_8=10.27; %let pb2001_2_9=8.37; %let pb2001_3_0=0; %let pb2001_3_1=2.49; %let pb2001_3_2=0; %let pb2001_3_3=7.6; %let pb2001_3_4=2.85; %let pb2001_3_5=4.39; %let pb2001_3_6=3.12; %let pb2001_3_7=3.84; %let pb2001_3_8=1.32; %let pb2001_3_9=1.16; %let pb2001_4_0=0; %let pb2001_4_1=2.56; %let pb2001_4_2=0; %let pb2001_4_3=11.6; %let pb2001_4_4=2.86; %let pb2001_4_5=5.14; %let pb2001_4_6=2.35; %let pb2001_4_7=1.8; %let pb2001_4_8=0.5; %let pb2001_4_9=0; %let pb2001_5_0=0; %let pb2001_5_1=2.91; %let pb2001_5_2=0; %let pb2001_5_3=13.9; %let pb2001_5_4=3.67; %let pb2001_5_5=3.43; %let pb2001_5_6=1.49; %let pb2001_5_7=1; %let pb2001_5_8=0.12; %let pb2001_5_9=0; %let pb2001_6_0=0; %let pb2001_6_1=3.73; %let pb2001_6_2=0; %let pb2001_6_3=15.7; %let pb2001_6_4=3.12; %let pb2001_6_5=2.77; %let pb2001_6_6=0.91; %let pb2001_6_7=0.44; %let pb2001_6_8=0.02; %let pb2001_6_9=0; %let pb2001_7_0=0; %let pb2001_7_1=3.93; %let pb2001_7_2=0; %let pb2001_7_3=16.2; %let pb2001_7_4=2.41; %let pb2001_7_5=1.74; %let pb2001_7_6=0.38; %let pb2001_7_7=0.15; %let pb2001_7_8=0.05; %let pb2001_7_9=0; %let pb2001_8_0=0; %let pb2001_8_1=4.12; %let pb2001_8_2=0; %let pb2001_8_3=17; %let pb2001_8_4=2.36; %let pb2001_8_5=1.44; %let pb2001_8_6=0.4; %let pb2001_8_7=0.16; %let pb2001_8_8=0.02; %let pb2001_8_9=0; %let pb2001_9_0=0; %let pb2001_9_1=4.99; %let pb2001_9_2=0; %let pb2001_9_3=20.7; %let pb2001_9_4=2.11; %let pb2001_9_5=1.83; %let pb2001_9_6=0.51; %let pb2001_9_7=0.22; %let pb2001_9_8=0.02; %let pb2001_9_9=0; %let pb2001_10_0=0; %let pb2001_10_1=5.09; %let pb2001_10_2=0; %let pb2001_10_3=20.8; %let pb2001_10_4=2.22; %let pb2001_10_5=1.56; %let pb2001_10_6=0.37; %let pb2001_10_7=0.07; %let pb2001_10_8=0.04; %let pb2001_10_9=0; %let pb2001_11_0=0; %let pb2001_11_1=5.02; %let pb2001_11_2=0; %let pb2001_11_3=17.2; %let pb2001_11_4=1.79; %let pb2001_11_5=1.32; %let pb2001_11_6=0.24; %let pb2001_11_7=0.07; %let pb2001_11_8=0; %let pb2001_11_9=0; %let sb2001_1_0=-1.14; %let sb2001_1_1=-0.67; %let sb2001_1_2=0; %let sb2001_1_3=1.06; %let sb2001_1_4=1.16; %let sb2001_1_5=1.35; %let sb2001_1_6=1.7; %let sb2001_1_7=2.82; %let sb2001_1_8=5.12; %let sb2001_1_9=0; %let sb2001_2_0=-2.26; %let sb2001_2_1=-0.61; %let sb2001_2_2=0; %let sb2001_2_3=1.04; %let sb2001_2_4=1.14; %let sb2001_2_5=1.29; %let sb2001_2_6=1.66; %let sb2001_2_7=2.66; %let sb2001_2_8=5.56; %let sb2001_2_9=19.91; %let sb2001_3_0=0; %let sb2001_3_1=0.66; %let sb2001_3_2=0; %let sb2001_3_3=1.04; %let sb2001_3_4=1.15; %let sb2001_3_5=1.33; %let sb2001_3_6=1.72; %let sb2001_3_7=2.68; %let sb2001_3_8=5.63; %let sb2001_3_9=18.19; %let sb2001_4_0=0; %let sb2001_4_1=0.81; %let sb2001_4_2=0; %let sb2001_4_3=1.04; %let sb2001_4_4=1.15; %let sb2001_4_5=1.33; %let sb2001_4_6=1.69; %let sb2001_4_7=2.58; %let sb2001_4_8=5.54; %let sb2001_4_9=0; %let sb2001_5_0=0; %let sb2001_5_1=0.91; %let sb2001_5_2=0; %let sb2001_5_3=1.04; %let sb2001_5_4=1.14; %let sb2001_5_5=1.32; %let sb2001_5_6=1.7; %let sb2001_5_7=2.51; %let sb2001_5_8=4.96; %let sb2001_5_9=0; %let sb2001_6_0=0; %let sb2001_6_1=0.94; %let sb2001_6_2=0; %let sb2001_6_3=1.03; %let sb2001_6_4=1.14; %let sb2001_6_5=1.31; %let sb2001_6_6=1.67; %let sb2001_6_7=2.57; %let sb2001_6_8=4.97; %let sb2001_6_9=0; %let sb2001_7_0=0; %let sb2001_7_1=0.96; %let sb2001_7_2=0; %let sb2001_7_3=1.03; %let sb2001_7_4=1.14; %let sb2001_7_5=1.3; %let sb2001_7_6=1.68; %let sb2001_7_7=2.45; %let sb2001_7_8=5.49; %let sb2001_7_9=0; %let sb2001_8_0=0; %let sb2001_8_1=0.95; %let sb2001_8_2=0; %let sb2001_8_3=1.03; %let sb2001_8_4=1.14; %let sb2001_8_5=1.31; %let sb2001_8_6=1.65; %let sb2001_8_7=2.46; %let sb2001_8_8=6.03; %let sb2001_8_9=0; %let sb2001_9_0=0; %let sb2001_9_1=0.93; %let sb2001_9_2=0; %let sb2001_9_3=1.03; %let sb2001_9_4=1.14; %let sb2001_9_5=1.3; %let sb2001_9_6=1.72; %let sb2001_9_7=2.55; %let sb2001_9_8=4.54; %let sb2001_9_9=0; %let sb2001_10_0=0; %let sb2001_10_1=0.95; %let sb2001_10_2=0; %let sb2001_10_3=1.03; %let sb2001_10_4=1.14; %let sb2001_10_5=1.32; %let sb2001_10_6=1.77; %let sb2001_10_7=2.37; %let sb2001_10_8=4.1; %let sb2001_10_9=0; %let sb2001_11_0=0; %let sb2001_11_1=0.96; %let sb2001_11_2=0; %let sb2001_11_3=1.02; %let sb2001_11_4=1.14; %let sb2001_11_5=1.28; %let sb2001_11_6=1.68; %let sb2001_11_7=2.48; %let sb2001_11_8=0; %let sb2001_11_9=0; %let var2001_1_0=0.098; %let var2001_1_1=0.022; %let var2001_1_2=0; %let var2001_1_3=0.01; %let var2001_1_4=0.006; %let var2001_1_5=0.019; %let var2001_1_6=0.026; %let var2001_1_7=0.155; %let var2001_1_8=0.675; %let var2001_1_9=0; %let var2001_2_0=0.453; %let var2001_2_1=0.022; %let var2001_2_2=0; %let var2001_2_3=0.007; %let var2001_2_4=0.006; %let var2001_2_5=0.013; %let var2001_2_6=0.022; %let var2001_2_7=0.048; %let var2001_2_8=0.121; %let var2001_2_9=1.856; %let var2001_3_0=0; %let var2001_3_1=0.027; %let var2001_3_2=0; %let var2001_3_3=0.002; %let var2001_3_4=0.002; %let var2001_3_5=0.005; %let var2001_3_6=0.009; %let var2001_3_7=0.023; %let var2001_3_8=0.063; %let var2001_3_9=1.062; %let var2001_4_0=0; %let var2001_4_1=0.012; %let var2001_4_2=0; %let var2001_4_3=0.001; %let var2001_4_4=0.001; %let var2001_4_5=0.003; %let var2001_4_6=0.005; %let var2001_4_7=0.019; %let var2001_4_8=0.067; %let var2001_4_9=0; %let var2001_5_0=0; %let var2001_5_1=0.009; %let var2001_5_2=0; %let var2001_5_3=0.001; %let var2001_5_4=0.001; %let var2001_5_5=0.003; %let var2001_5_6=0.006; %let var2001_5_7=0.025; %let var2001_5_8=0.091; %let var2001_5_9=0; %let var2001_6_0=0; %let var2001_6_1=0.004; %let var2001_6_2=0; %let var2001_6_3=0.001; %let var2001_6_4=0.001; %let var2001_6_5=0.003; %let var2001_6_6=0.006; %let var2001_6_7=0.034; %let var2001_6_8=0.166; %let var2001_6_9=0; %let var2001_7_0=0; %let var2001_7_1=0.004; %let var2001_7_2=0; %let var2001_7_3=0.001; %let var2001_7_4=0.002; %let var2001_7_5=0.005; %let var2001_7_6=0.014; %let var2001_7_7=0.07; %let var2001_7_8=0.412; %let var2001_7_9=0; %let var2001_8_0=0; %let var2001_8_1=0.008; %let var2001_8_2=0; %let var2001_8_3=0.001; %let var2001_8_4=0.002; %let var2001_8_5=0.008; %let var2001_8_6=0.025; %let var2001_8_7=0.073; %let var2001_8_8=0.457; %let var2001_8_9=0; %let var2001_9_0=0; %let var2001_9_1=0.009; %let var2001_9_2=0; %let var2001_9_3=0.001; %let var2001_9_4=0.002; %let var2001_9_5=0.007; %let var2001_9_6=0.022; %let var2001_9_7=0.12; %let var2001_9_8=0.192; %let var2001_9_9=0; %let var2001_10_0=0; %let var2001_10_1=0.011; %let var2001_10_2=0; %let var2001_10_3=0.001; %let var2001_10_4=0.004; %let var2001_10_5=0.016; %let var2001_10_6=0.106; %let var2001_10_7=0.226; %let var2001_10_8=0.057; %let var2001_10_9=0; %let var2001_11_0=0; %let var2001_11_1=0.008; %let var2001_11_2=0; %let var2001_11_3=0.001; %let var2001_11_4=0.005; %let var2001_11_5=0.018; %let var2001_11_6=0.046; %let var2001_11_7=0; %let var2001_11_8=0; %let var2001_11_9=0; %let pb2007_1_0=3.9; %let pb2007_1_1=42.4; %let pb2007_1_2=0; %let pb2007_1_3=4.2; %let pb2007_1_4=1.27; %let pb2007_1_5=2.3; %let pb2007_1_6=11.58; %let pb2007_1_7=5.35; %let pb2007_1_8=0.13; %let pb2007_1_9=0; %let pb2007_2_0=1.14; %let pb2007_2_1=21.29; %let pb2007_2_2=0; %let pb2007_2_3=1.3; %let pb2007_2_4=1.36; %let pb2007_2_5=4.87; %let pb2007_2_6=11.21; %let pb2007_2_7=10.2; %let pb2007_2_8=12.98; %let pb2007_2_9=12.16; %let pb2007_3_0=0; %let pb2007_3_1=3.55; %let pb2007_3_2=0; %let pb2007_3_3=8.9; %let pb2007_3_4=3.05; %let pb2007_3_5=5.2; %let pb2007_3_6=3.67; %let pb2007_3_7=3.7; %let pb2007_3_8=2.04; %let pb2007_3_9=2.11; %let pb2007_4_0=0; %let pb2007_4_1=2.55; %let pb2007_4_2=0; %let pb2007_4_3=12.8; %let pb2007_4_4=3.5; %let pb2007_4_5=4.88; %let pb2007_4_6=2.85; %let pb2007_4_7=2.67; %let pb2007_4_8=0.57; %let pb2007_4_9=0; %let pb2007_5_0=0; %let pb2007_5_1=3.23; %let pb2007_5_2=0; %let pb2007_5_3=12.8; %let pb2007_5_4=3.5; %let pb2007_5_5=4.31; %let pb2007_5_6=1.53; %let pb2007_5_7=1.04; %let pb2007_5_8=0.25; %let pb2007_5_9=0; %let pb2007_6_0=0; %let pb2007_6_1=3.47; %let pb2007_6_2=0; %let pb2007_6_3=17; %let pb2007_6_4=3.44; %let pb2007_6_5=3.15; %let pb2007_6_6=1.04; %let pb2007_6_7=0.59; %let pb2007_6_8=0.07; %let pb2007_6_9=0; %let pb2007_7_0=0; %let pb2007_7_1=4.28; %let pb2007_7_2=0; %let pb2007_7_3=16.3; %let pb2007_7_4=2.35; %let pb2007_7_5=2.07; %let pb2007_7_6=0.69; %let pb2007_7_7=0.27; %let pb2007_7_8=0.02; %let pb2007_7_9=0; %let pb2007_8_0=0; %let pb2007_8_1=4.2; %let pb2007_8_2=0; %let pb2007_8_3=19.4; %let pb2007_8_4=2.48; %let pb2007_8_5=2.14; %let pb2007_8_6=0.32; %let pb2007_8_7=0.07; %let pb2007_8_8=0.04; %let pb2007_8_9=0; %let pb2007_9_0=0; %let pb2007_9_1=5.31; %let pb2007_9_2=0; %let pb2007_9_3=20.5; %let pb2007_9_4=2.86; %let pb2007_9_5=2.68; %let pb2007_9_6=0.61; %let pb2007_9_7=0.14; %let pb2007_9_8=0.01; %let pb2007_9_9=0; %let pb2007_10_0=0; %let pb2007_10_1=6.5; %let pb2007_10_2=0; %let pb2007_10_3=22.9; %let pb2007_10_4=2.05; %let pb2007_10_5=2.14; %let pb2007_10_6=0.44; %let pb2007_10_7=0.1; %let pb2007_10_8=0; %let pb2007_10_9=0; %let pb2007_11_0=0; %let pb2007_11_1=3.94; %let pb2007_11_2=0; %let pb2007_11_3=20.3; %let pb2007_11_4=2.53; %let pb2007_11_5=1.16; %let pb2007_11_6=0.37; %let pb2007_11_7=0.28; %let pb2007_11_8=0; %let pb2007_11_9=0; %let sb2007_1_0=-1.19; %let sb2007_1_1=-0.63; %let sb2007_1_2=0; %let sb2007_1_3=1.06; %let sb2007_1_4=1.14; %let sb2007_1_5=1.35; %let sb2007_1_6=1.7; %let sb2007_1_7=2.93; %let sb2007_1_8=7.99; %let sb2007_1_9=0; %let sb2007_2_0=-2.87; %let sb2007_2_1=-0.61; %let sb2007_2_2=0; %let sb2007_2_3=1.06; %let sb2007_2_4=1.14; %let sb2007_2_5=1.36; %let sb2007_2_6=1.7; %let sb2007_2_7=2.86; %let sb2007_2_8=6.04; %let sb2007_2_9=18.92; %let sb2007_3_0=0; %let sb2007_3_1=0.65; %let sb2007_3_2=0; %let sb2007_3_3=1.04; %let sb2007_3_4=1.15; %let sb2007_3_5=1.31; %let sb2007_3_6=1.75; %let sb2007_3_7=2.71; %let sb2007_3_8=5.45; %let sb2007_3_9=22.03; %let sb2007_4_0=0; %let sb2007_4_1=0.8; %let sb2007_4_2=0; %let sb2007_4_3=1.04; %let sb2007_4_4=1.15; %let sb2007_4_5=1.33; %let sb2007_4_6=1.69; %let sb2007_4_7=2.68; %let sb2007_4_8=5.11; %let sb2007_4_9=0; %let sb2007_5_0=0; %let sb2007_5_1=0.87; %let sb2007_5_2=0; %let sb2007_5_3=1.04; %let sb2007_5_4=1.15; %let sb2007_5_5=1.33; %let sb2007_5_6=1.69; %let sb2007_5_7=2.69; %let sb2007_5_8=4.81; %let sb2007_5_9=0; %let sb2007_6_0=0; %let sb2007_6_1=0.93; %let sb2007_6_2=0; %let sb2007_6_3=1.03; %let sb2007_6_4=1.15; %let sb2007_6_5=1.31; %let sb2007_6_6=1.68; %let sb2007_6_7=2.55; %let sb2007_6_8=4.97; %let sb2007_6_9=0; %let sb2007_7_0=0; %let sb2007_7_1=0.95; %let sb2007_7_2=0; %let sb2007_7_3=1.03; %let sb2007_7_4=1.14; %let sb2007_7_5=1.3; %let sb2007_7_6=1.64; %let sb2007_7_7=2.43; %let sb2007_7_8=5.73; %let sb2007_7_9=0; %let sb2007_8_0=0; %let sb2007_8_1=0.96; %let sb2007_8_2=0; %let sb2007_8_3=1.03; %let sb2007_8_4=1.15; %let sb2007_8_5=1.27; %let sb2007_8_6=1.71; %let sb2007_8_7=2.23; %let sb2007_8_8=4.36; %let sb2007_8_9=0; %let sb2007_9_0=0; %let sb2007_9_1=0.91; %let sb2007_9_2=0; %let sb2007_9_3=1.03; %let sb2007_9_4=1.15; %let sb2007_9_5=1.28; %let sb2007_9_6=1.67; %let sb2007_9_7=2.45; %let sb2007_9_8=4.82; %let sb2007_9_9=0; %let sb2007_10_0=0; %let sb2007_10_1=0.95; %let sb2007_10_2=0; %let sb2007_10_3=1.03; %let sb2007_10_4=1.14; %let sb2007_10_5=1.25; %let sb2007_10_6=1.75; %let sb2007_10_7=2.06; %let sb2007_10_8=0; %let sb2007_10_9=0; %let sb2007_11_0=0; %let sb2007_11_1=0.93; %let sb2007_11_2=0; %let sb2007_11_3=1.03; %let sb2007_11_4=1.14; %let sb2007_11_5=1.35; %let sb2007_11_6=1.69; %let sb2007_11_7=2.23; %let sb2007_11_8=0; %let sb2007_11_9=0; %let var2007_1_0=0.107; %let var2007_1_1=0.038; %let var2007_1_2=0; %let var2007_1_3=0.013; %let var2007_1_4=0.006; %let var2007_1_5=0.031; %let var2007_1_6=0.022; %let var2007_1_7=0.123; %let var2007_1_8=0; %let var2007_1_9=0; %let var2007_2_0=0.889; %let var2007_2_1=0.033; %let var2007_2_2=0; %let var2007_2_3=0.003; %let var2007_2_4=0.009; %let var2007_2_5=0.025; %let var2007_2_6=0.023; %let var2007_2_7=0.072; %let var2007_2_8=0.161; %let var2007_2_9=2.355; %let var2007_3_0=0; %let var2007_3_1=0.034; %let var2007_3_2=0; %let var2007_3_3=0.002; %let var2007_3_4=0.002; %let var2007_3_5=0.005; %let var2007_3_6=0.011; %let var2007_3_7=0.035; %let var2007_3_8=0.088; %let var2007_3_9=2.472; %let var2007_4_0=0; %let var2007_4_1=0.021; %let var2007_4_2=0; %let var2007_4_3=0.001; %let var2007_4_4=0.002; %let var2007_4_5=0.005; %let var2007_4_6=0.009; %let var2007_4_7=0.035; %let var2007_4_8=0.14; %let var2007_4_9=0; %let var2007_5_0=0; %let var2007_5_1=0.012; %let var2007_5_2=0; %let var2007_5_3=0.001; %let var2007_5_4=0.002; %let var2007_5_5=0.004; %let var2007_5_6=0.01; %let var2007_5_7=0.044; %let var2007_5_8=0.176; %let var2007_5_9=0; %let var2007_6_0=0; %let var2007_6_1=0.009; %let var2007_6_2=0; %let var2007_6_3=0.001; %let var2007_6_4=0.001; %let var2007_6_5=0.004; %let var2007_6_6=0.011; %let var2007_6_7=0.051; %let var2007_6_8=0.297; %let var2007_6_9=0; %let var2007_7_0=0; %let var2007_7_1=0.007; %let var2007_7_2=0; %let var2007_7_3=0.001; %let var2007_7_4=0.002; %let var2007_7_5=0.007; %let var2007_7_6=0.019; %let var2007_7_7=0.077; %let var2007_7_8=0.543; %let var2007_7_9=0; %let var2007_8_0=0; %let var2007_8_1=0.006; %let var2007_8_2=0; %let var2007_8_3=0.001; %let var2007_8_4=0.003; %let var2007_8_5=0.008; %let var2007_8_6=0.036; %let var2007_8_7=0.072; %let var2007_8_8=0.298; %let var2007_8_9=0; %let var2007_9_0=0; %let var2007_9_1=0.014; %let var2007_9_2=0; %let var2007_9_3=0.001; %let var2007_9_4=0.003; %let var2007_9_5=0.008; %let var2007_9_6=0.023; %let var2007_9_7=0.133; %let var2007_9_8=0.452; %let var2007_9_9=0; %let var2007_10_0=0; %let var2007_10_1=0.011; %let var2007_10_2=0; %let var2007_10_3=0.002; %let var2007_10_4=0.006; %let var2007_10_5=0.012; %let var2007_10_6=0.035; %let var2007_10_7=0.055; %let var2007_10_8=0; %let var2007_10_9=0; %let var2007_11_0=0; %let var2007_11_1=0.014; %let var2007_11_2=0; %let var2007_11_3=0.001; %let var2007_11_4=0.005; %let var2007_11_5=0.022; %let var2007_11_6=0.059; %let var2007_11_7=0.231; %let var2007_11_8=0; %let var2007_11_9=0; %let pb2009_1_0=5.14; %let pb2009_1_1=45.79; %let pb2009_1_2=0; %let pb2009_1_3=8.8; %let pb2009_1_4=1.06; %let pb2009_1_5=10.02; %let pb2009_1_6=2.76; %let pb2009_1_7=8.58; %let pb2009_1_8=0.52; %let pb2009_1_9=0; %let pb2009_2_0=5.48; %let pb2009_2_1=23.17; %let pb2009_2_2=0; %let pb2009_2_3=2.7; %let pb2009_2_4=0.63; %let pb2009_2_5=6.1; %let pb2009_2_6=7.11; %let pb2009_2_7=12.16; %let pb2009_2_8=10.2; %let pb2009_2_9=9.67; %let pb2009_3_0=0; %let pb2009_3_1=3.93; %let pb2009_3_2=0; %let pb2009_3_3=9.1; %let pb2009_3_4=2.96; %let pb2009_3_5=4.54; %let pb2009_3_6=3.7; %let pb2009_3_7=3.68; %let pb2009_3_8=2.02; %let pb2009_3_9=1.57; %let pb2009_4_0=0; %let pb2009_4_1=3.39; %let pb2009_4_2=0; %let pb2009_4_3=11.4; %let pb2009_4_4=3.79; %let pb2009_4_5=4.82; %let pb2009_4_6=3.1; %let pb2009_4_7=1.94; %let pb2009_4_8=0.59; %let pb2009_4_9=0; %let pb2009_5_0=0; %let pb2009_5_1=3.67; %let pb2009_5_2=0; %let pb2009_5_3=14.6; %let pb2009_5_4=3.21; %let pb2009_5_5=3.91; %let pb2009_5_6=2.04; %let pb2009_5_7=1.08; %let pb2009_5_8=0.18; %let pb2009_5_9=0; %let pb2009_6_0=0; %let pb2009_6_1=4; %let pb2009_6_2=0; %let pb2009_6_3=16.2; %let pb2009_6_4=3.7; %let pb2009_6_5=3.09; %let pb2009_6_6=1.16; %let pb2009_6_7=0.34; %let pb2009_6_8=0.08; %let pb2009_6_9=0; %let pb2009_7_0=0; %let pb2009_7_1=3.37; %let pb2009_7_2=0; %let pb2009_7_3=18.5; %let pb2009_7_4=2.95; %let pb2009_7_5=2.15; %let pb2009_7_6=0.48; %let pb2009_7_7=0.24; %let pb2009_7_8=0; %let pb2009_7_9=0; %let pb2009_8_0=0; %let pb2009_8_1=4.65; %let pb2009_8_2=0; %let pb2009_8_3=17.1; %let pb2009_8_4=2.49; %let pb2009_8_5=1.44; %let pb2009_8_6=0.34; %let pb2009_8_7=0.26; %let pb2009_8_8=0.01; %let pb2009_8_9=0; %let pb2009_9_0=0; %let pb2009_9_1=3.77; %let pb2009_9_2=0; %let pb2009_9_3=15.2; %let pb2009_9_4=2.27; %let pb2009_9_5=1.48; %let pb2009_9_6=0.42; %let pb2009_9_7=0.18; %let pb2009_9_8=0.02; %let pb2009_9_9=0; %let pb2009_10_0=0; %let pb2009_10_1=4.11; %let pb2009_10_2=0; %let pb2009_10_3=20.8; %let pb2009_10_4=3.88; %let pb2009_10_5=0.77; %let pb2009_10_6=0.25; %let pb2009_10_7=0.09; %let pb2009_10_8=0; %let pb2009_10_9=0; %let pb2009_11_0=0; %let pb2009_11_1=3.95; %let pb2009_11_2=0; %let pb2009_11_3=18.4; %let pb2009_11_4=1.46; %let pb2009_11_5=0.41; %let pb2009_11_6=0.59; %let pb2009_11_7=0.12; %let pb2009_11_8=0; %let pb2009_11_9=0; %let sb2009_1_0=-1.09; %let sb2009_1_1=-0.72; %let sb2009_1_2=0; %let sb2009_1_3=1.05; %let sb2009_1_4=1.13; %let sb2009_1_5=1.39; %let sb2009_1_6=1.83; %let sb2009_1_7=2.27; %let sb2009_1_8=5.15; %let sb2009_1_9=0; %let sb2009_2_0=-2.88; %let sb2009_2_1=-0.63; %let sb2009_2_2=0; %let sb2009_2_3=1.06; %let sb2009_2_4=1.14; %let sb2009_2_5=1.4; %let sb2009_2_6=1.75; %let sb2009_2_7=3.02; %let sb2009_2_8=6.21; %let sb2009_2_9=31.21; %let sb2009_3_0=0; %let sb2009_3_1=0.57; %let sb2009_3_2=0; %let sb2009_3_3=1.04; %let sb2009_3_4=1.14; %let sb2009_3_5=1.34; %let sb2009_3_6=1.73; %let sb2009_3_7=2.67; %let sb2009_3_8=5.49; %let sb2009_3_9=23.43; %let sb2009_4_0=0; %let sb2009_4_1=0.71; %let sb2009_4_2=0; %let sb2009_4_3=1.04; %let sb2009_4_4=1.15; %let sb2009_4_5=1.32; %let sb2009_4_6=1.7; %let sb2009_4_7=2.68; %let sb2009_4_8=5.19; %let sb2009_4_9=0; %let sb2009_5_0=0; %let sb2009_5_1=0.89; %let sb2009_5_2=0; %let sb2009_5_3=1.04; %let sb2009_5_4=1.15; %let sb2009_5_5=1.33; %let sb2009_5_6=1.69; %let sb2009_5_7=2.62; %let sb2009_5_8=4.84; %let sb2009_5_9=0; %let sb2009_6_0=0; %let sb2009_6_1=0.9; %let sb2009_6_2=0; %let sb2009_6_3=1.03; %let sb2009_6_4=1.15; %let sb2009_6_5=1.31; %let sb2009_6_6=1.7; %let sb2009_6_7=2.55; %let sb2009_6_8=5.15; %let sb2009_6_9=0; %let sb2009_7_0=0; %let sb2009_7_1=0.94; %let sb2009_7_2=0; %let sb2009_7_3=1.03; %let sb2009_7_4=1.14; %let sb2009_7_5=1.3; %let sb2009_7_6=1.68; %let sb2009_7_7=2.61; %let sb2009_7_8=0; %let sb2009_7_9=0; %let sb2009_8_0=0; %let sb2009_8_1=0.95; %let sb2009_8_2=0; %let sb2009_8_3=1.03; %let sb2009_8_4=1.15; %let sb2009_8_5=1.29; %let sb2009_8_6=1.64; %let sb2009_8_7=2.49; %let sb2009_8_8=4.74; %let sb2009_8_9=0; %let sb2009_9_0=0; %let sb2009_9_1=0.95; %let sb2009_9_2=0; %let sb2009_9_3=1.03; %let sb2009_9_4=1.14; %let sb2009_9_5=1.28; %let sb2009_9_6=1.65; %let sb2009_9_7=2.7; %let sb2009_9_8=6.93; %let sb2009_9_9=0; %let sb2009_10_0=0; %let sb2009_10_1=0.95; %let sb2009_10_2=0; %let sb2009_10_3=1.03; %let sb2009_10_4=1.13; %let sb2009_10_5=1.26; %let sb2009_10_6=1.58; %let sb2009_10_7=2.07; %let sb2009_10_8=0; %let sb2009_10_9=0; %let sb2009_11_0=0; %let sb2009_11_1=0.93; %let sb2009_11_2=0; %let sb2009_11_3=1.02; %let sb2009_11_4=1.15; %let sb2009_11_5=1.3; %let sb2009_11_6=1.77; %let sb2009_11_7=2.72; %let sb2009_11_8=0; %let sb2009_11_9=0; %let var2009_1_0=0.045; %let var2009_1_1=0.03; %let var2009_1_2=0; %let var2009_1_3=0.008; %let var2009_1_4=0.001; %let var2009_1_5=0.022; %let var2009_1_6=0.065; %let var2009_1_7=0.088; %let var2009_1_8=0.567; %let var2009_1_9=0; %let var2009_2_0=0.487; %let var2009_2_1=0.027; %let var2009_2_2=0; %let var2009_2_3=0.009; %let var2009_2_4=0.006; %let var2009_2_5=0.015; %let var2009_2_6=0.02; %let var2009_2_7=0.078; %let var2009_2_8=0.173; %let var2009_2_9=8.559; %let var2009_3_0=0; %let var2009_3_1=0.029; %let var2009_3_2=0; %let var2009_3_3=0.002; %let var2009_3_4=0.002; %let var2009_3_5=0.005; %let var2009_3_6=0.01; %let var2009_3_7=0.034; %let var2009_3_8=0.087; %let var2009_3_9=2.506; %let var2009_4_0=0; %let var2009_4_1=0.027; %let var2009_4_2=0; %let var2009_4_3=0.001; %let var2009_4_4=0.002; %let var2009_4_5=0.005; %let var2009_4_6=0.01; %let var2009_4_7=0.042; %let var2009_4_8=0.149; %let var2009_4_9=0; %let var2009_5_0=0; %let var2009_5_1=0.014; %let var2009_5_2=0; %let var2009_5_3=0.001; %let var2009_5_4=0.002; %let var2009_5_5=0.004; %let var2009_5_6=0.01; %let var2009_5_7=0.054; %let var2009_5_8=0.176; %let var2009_5_9=0; %let var2009_6_0=0; %let var2009_6_1=0.012; %let var2009_6_2=0; %let var2009_6_3=0.001; %let var2009_6_4=0.002; %let var2009_6_5=0.005; %let var2009_6_6=0.012; %let var2009_6_7=0.071; %let var2009_6_8=0.289; %let var2009_6_9=0; %let var2009_7_0=0; %let var2009_7_1=0.008; %let var2009_7_2=0; %let var2009_7_3=0.001; %let var2009_7_4=0.002; %let var2009_7_5=0.006; %let var2009_7_6=0.02; %let var2009_7_7=0.117; %let var2009_7_8=0; %let var2009_7_9=0; %let var2009_8_0=0; %let var2009_8_1=0.007; %let var2009_8_2=0; %let var2009_8_3=0.001; %let var2009_8_4=0.004; %let var2009_8_5=0.011; %let var2009_8_6=0.026; %let var2009_8_7=0.15; %let var2009_8_8=0.365; %let var2009_8_9=0; %let var2009_9_0=0; %let var2009_9_1=0.009; %let var2009_9_2=0; %let var2009_9_3=0.001; %let var2009_9_4=0.002; %let var2009_9_5=0.009; %let var2009_9_6=0.028; %let var2009_9_7=0.123; %let var2009_9_8=0.013; %let var2009_9_9=0; %let var2009_10_0=0; %let var2009_10_1=0.018; %let var2009_10_2=0; %let var2009_10_3=0.002; %let var2009_10_4=0.004; %let var2009_10_5=0.023; %let var2009_10_6=0; %let var2009_10_7=0.071; %let var2009_10_8=0; %let var2009_10_9=0; %let var2009_11_0=0; %let var2009_11_1=0.016; %let var2009_11_2=0; %let var2009_11_3=0.001; %let var2009_11_4=0.007; %let var2009_11_5=0.026; %let var2009_11_6=0.033; %let var2009_11_7=0.488; %let var2009_11_8=0; %let var2009_11_9=0; %let pb2011_1_0=4.06; %let pb2011_1_1=37.01; %let pb2011_1_2=0; %let pb2011_1_3=3.1; %let pb2011_1_4=3.5; %let pb2011_1_5=11.42; %let pb2011_1_6=1.9; %let pb2011_1_7=4.15; %let pb2011_1_8=0.61; %let pb2011_1_9=0; %let pb2011_2_0=6.98; %let pb2011_2_1=20.09; %let pb2011_2_2=0; %let pb2011_2_3=2.8; %let pb2011_2_4=2.31; %let pb2011_2_5=5.5; %let pb2011_2_6=6.28; %let pb2011_2_7=10.46; %let pb2011_2_8=9.26; %let pb2011_2_9=7.23; %let pb2011_3_0=0; %let pb2011_3_1=5.12; %let pb2011_3_2=0; %let pb2011_3_3=8.6; %let pb2011_3_4=3.29; %let pb2011_3_5=5.62; %let pb2011_3_6=3.43; %let pb2011_3_7=3.73; %let pb2011_3_8=1.78; %let pb2011_3_9=1.89; %let pb2011_4_0=0; %let pb2011_4_1=4.7; %let pb2011_4_2=0; %let pb2011_4_3=10.6; %let pb2011_4_4=3.34; %let pb2011_4_5=5.07; %let pb2011_4_6=2.97; %let pb2011_4_7=2.22; %let pb2011_4_8=0.5; %let pb2011_4_9=0; %let pb2011_5_0=0; %let pb2011_5_1=4.18; %let pb2011_5_2=0; %let pb2011_5_3=11.8; %let pb2011_5_4=3.4; %let pb2011_5_5=4.48; %let pb2011_5_6=2.03; %let pb2011_5_7=1.28; %let pb2011_5_8=0.19; %let pb2011_5_9=0; %let pb2011_6_0=0; %let pb2011_6_1=3.59; %let pb2011_6_2=0; %let pb2011_6_3=17.2; %let pb2011_6_4=3.38; %let pb2011_6_5=3.45; %let pb2011_6_6=0.93; %let pb2011_6_7=0.53; %let pb2011_6_8=0.01; %let pb2011_6_9=0; %let pb2011_7_0=0; %let pb2011_7_1=3.75; %let pb2011_7_2=0; %let pb2011_7_3=16.4; %let pb2011_7_4=2.48; %let pb2011_7_5=2.15; %let pb2011_7_6=0.63; %let pb2011_7_7=0.17; %let pb2011_7_8=0.01; %let pb2011_7_9=0; %let pb2011_8_0=0; %let pb2011_8_1=3.38; %let pb2011_8_2=0; %let pb2011_8_3=15.5; %let pb2011_8_4=3.27; %let pb2011_8_5=2.12; %let pb2011_8_6=0.43; %let pb2011_8_7=0.12; %let pb2011_8_8=0.01; %let pb2011_8_9=0; %let pb2011_9_0=0; %let pb2011_9_1=4.58; %let pb2011_9_2=0; %let pb2011_9_3=18.2; %let pb2011_9_4=2.73; %let pb2011_9_5=1.32; %let pb2011_9_6=0.25; %let pb2011_9_7=0.13; %let pb2011_9_8=0; %let pb2011_9_9=0; %let pb2011_10_0=0; %let pb2011_10_1=4.84; %let pb2011_10_2=0; %let pb2011_10_3=17.7; %let pb2011_10_4=1.72; %let pb2011_10_5=0.46; %let pb2011_10_6=0.4; %let pb2011_10_7=0.09; %let pb2011_10_8=0; %let pb2011_10_9=0; %let pb2011_11_0=0; %let pb2011_11_1=3.79; %let pb2011_11_2=0; %let pb2011_11_3=15.4; %let pb2011_11_4=2.02; %let pb2011_11_5=0.82; %let pb2011_11_6=0.18; %let pb2011_11_7=0.07; %let pb2011_11_8=0; %let pb2011_11_9=0; %let sb2011_1_0=-1.21; %let sb2011_1_1=-0.77; %let sb2011_1_2=1; %let sb2011_1_3=1.08; %let sb2011_1_4=1.17; %let sb2011_1_5=1.36; %let sb2011_1_6=1.67; %let sb2011_1_7=2.92; %let sb2011_1_8=4.64; %let sb2011_1_9=0; %let sb2011_2_0=-1.67; %let sb2011_2_1=-0.59; %let sb2011_2_2=1; %let sb2011_2_3=1.03; %let sb2011_2_4=1.12; %let sb2011_2_5=1.36; %let sb2011_2_6=1.86; %let sb2011_2_7=2.85; %let sb2011_2_8=6.24; %let sb2011_2_9=24.08; %let sb2011_3_0=0; %let sb2011_3_1=0.56; %let sb2011_3_2=1; %let sb2011_3_3=1.04; %let sb2011_3_4=1.15; %let sb2011_3_5=1.34; %let sb2011_3_6=1.72; %let sb2011_3_7=2.74; %let sb2011_3_8=5.63; %let sb2011_3_9=17.41; %let sb2011_4_0=0; %let sb2011_4_1=0.51; %let sb2011_4_2=1; %let sb2011_4_3=1.04; %let sb2011_4_4=1.15; %let sb2011_4_5=1.32; %let sb2011_4_6=1.68; %let sb2011_4_7=2.75; %let sb2011_4_8=5.29; %let sb2011_4_9=0; %let sb2011_5_0=0; %let sb2011_5_1=0.76; %let sb2011_5_2=1; %let sb2011_5_3=1.04; %let sb2011_5_4=1.15; %let sb2011_5_5=1.33; %let sb2011_5_6=1.7; %let sb2011_5_7=2.55; %let sb2011_5_8=4.91; %let sb2011_5_9=0; %let sb2011_6_0=0; %let sb2011_6_1=0.94; %let sb2011_6_2=1; %let sb2011_6_3=1.03; %let sb2011_6_4=1.14; %let sb2011_6_5=1.31; %let sb2011_6_6=1.7; %let sb2011_6_7=2.59; %let sb2011_6_8=5.16; %let sb2011_6_9=0; %let sb2011_7_0=0; %let sb2011_7_1=0.94; %let sb2011_7_2=1; %let sb2011_7_3=1.03; %let sb2011_7_4=1.14; %let sb2011_7_5=1.32; %let sb2011_7_6=1.71; %let sb2011_7_7=2.46; %let sb2011_7_8=5.17; %let sb2011_7_9=0; %let sb2011_8_0=0; %let sb2011_8_1=0.96; %let sb2011_8_2=1; %let sb2011_8_3=1.03; %let sb2011_8_4=1.15; %let sb2011_8_5=1.31; %let sb2011_8_6=1.64; %let sb2011_8_7=2.59; %let sb2011_8_8=4.85; %let sb2011_8_9=0; %let sb2011_9_0=0; %let sb2011_9_1=0.95; %let sb2011_9_2=1; %let sb2011_9_3=1.03; %let sb2011_9_4=1.13; %let sb2011_9_5=1.31; %let sb2011_9_6=1.69; %let sb2011_9_7=2.66; %let sb2011_9_8=4.17; %let sb2011_9_9=0; %let sb2011_10_0=0; %let sb2011_10_1=0.93; %let sb2011_10_2=1; %let sb2011_10_3=1.03; %let sb2011_10_4=1.14; %let sb2011_10_5=1.36; %let sb2011_10_6=1.68; %let sb2011_10_7=2.03; %let sb2011_10_8=0; %let sb2011_10_9=0; %let sb2011_11_0=0; %let sb2011_11_1=0.95; %let sb2011_11_2=1; %let sb2011_11_3=1.03; %let sb2011_11_4=1.13; %let sb2011_11_5=1.31; %let sb2011_11_6=1.66; %let sb2011_11_7=3.08; %let sb2011_11_8=0; %let sb2011_11_9=0; %let var2011_1_0=0.1; %let var2011_1_1=0.03; %let var2011_1_2=0; %let var2011_1_3=0.01; %let var2011_1_4=0.01; %let var2011_1_5=0.02; %let var2011_1_6=0.04; %let var2011_1_7=0.19; %let var2011_1_8=0.15; %let var2011_1_9=0; %let var2011_2_0=0.38; %let var2011_2_1=0.03; %let var2011_2_2=0; %let var2011_2_3=0.01; %let var2011_2_4=0.01; %let var2011_2_5=0.03; %let var2011_2_6=0.02; %let var2011_2_7=0.08; %let var2011_2_8=0.17; %let var2011_2_9=2.72; %let var2011_3_0=0; %let var2011_3_1=0.03; %let var2011_3_2=0; %let var2011_3_3=0; %let var2011_3_4=0; %let var2011_3_5=0.01; %let var2011_3_6=0.01; %let var2011_3_7=0.03; %let var2011_3_8=0.1; %let var2011_3_9=0.93; %let var2011_4_0=0; %let var2011_4_1=0.03; %let var2011_4_2=0; %let var2011_4_3=0; %let var2011_4_4=0; %let var2011_4_5=0.01; %let var2011_4_6=0.01; %let var2011_4_7=0.04; %let var2011_4_8=0.14; %let var2011_4_9=0; %let var2011_5_0=0; %let var2011_5_1=0.03; %let var2011_5_2=0; %let var2011_5_3=0; %let var2011_5_4=0; %let var2011_5_5=0.01; %let var2011_5_6=0.01; %let var2011_5_7=0.04; %let var2011_5_8=0.18; %let var2011_5_9=0; %let var2011_6_0=0; %let var2011_6_1=0.01; %let var2011_6_2=0; %let var2011_6_3=0; %let var2011_6_4=0; %let var2011_6_5=0; %let var2011_6_6=0.01; %let var2011_6_7=0.05; %let var2011_6_8=0.29; %let var2011_6_9=0; %let var2011_7_0=0; %let var2011_7_1=0.01; %let var2011_7_2=0; %let var2011_7_3=0; %let var2011_7_4=0; %let var2011_7_5=0.01; %let var2011_7_6=0.02; %let var2011_7_7=0.08; %let var2011_7_8=0.49; %let var2011_7_9=0; %let var2011_8_0=0; %let var2011_8_1=0.01; %let var2011_8_2=0; %let var2011_8_3=0; %let var2011_8_4=0; %let var2011_8_5=0.01; %let var2011_8_6=0.02; %let var2011_8_7=0.13; %let var2011_8_8=0; %let var2011_8_9=0; %let var2011_9_0=0; %let var2011_9_1=0.01; %let var2011_9_2=0; %let var2011_9_3=0; %let var2011_9_4=0; %let var2011_9_5=0.01; %let var2011_9_6=0.02; %let var2011_9_7=0.11; %let var2011_9_8=0; %let var2011_9_9=0; %let var2011_10_0=0; %let var2011_10_1=0.02; %let var2011_10_2=0; %let var2011_10_3=0; %let var2011_10_4=0.01; %let var2011_10_5=0.02; %let var2011_10_6=0.07; %let var2011_10_7=0; %let var2011_10_8=0; %let var2011_10_9=0; %let var2011_11_0=0; %let var2011_11_1=0.01; %let var2011_11_2=0; %let var2011_11_3=0; %let var2011_11_4=0; %let var2011_11_5=0.01; %let var2011_11_6=0.06; %let var2011_11_7=0.08; %let var2011_11_8=0; %let var2011_11_9=0; %let pb2013_1_0=4.82; %let pb2013_1_1=32.08; %let pb2013_1_2=0; %let pb2013_1_3=2; %let pb2013_1_4=0.42; %let pb2013_1_5=9.28; %let pb2013_1_6=5.1; %let pb2013_1_7=1.92; %let pb2013_1_8=0.34; %let pb2013_1_9=0; %let pb2013_2_0=5.89; %let pb2013_2_1=19.17; %let pb2013_2_2=0; %let pb2013_2_3=3.3; %let pb2013_2_4=0.04; %let pb2013_2_5=3.12; %let pb2013_2_6=8.35; %let pb2013_2_7=14.45; %let pb2013_2_8=8.2; %let pb2013_2_9=10.13; %let pb2013_3_0=0.31; %let pb2013_3_1=4.42; %let pb2013_3_2=0; %let pb2013_3_3=9.8; %let pb2013_3_4=3.08; %let pb2013_3_5=3.95; %let pb2013_3_6=3.48; %let pb2013_3_7=4.62; %let pb2013_3_8=2.05; %let pb2013_3_9=1.54; %let pb2013_4_0=0; %let pb2013_4_1=3.94; %let pb2013_4_2=0; %let pb2013_4_3=11.1; %let pb2013_4_4=3.44; %let pb2013_4_5=4.63; %let pb2013_4_6=3.89; %let pb2013_4_7=2.65; %let pb2013_4_8=0.55; %let pb2013_4_9=0; %let pb2013_5_0=0; %let pb2013_5_1=2.64; %let pb2013_5_2=0; %let pb2013_5_3=13.9; %let pb2013_5_4=3.6; %let pb2013_5_5=4.16; %let pb2013_5_6=1.98; %let pb2013_5_7=1.26; %let pb2013_5_8=0.17; %let pb2013_5_9=0; %let pb2013_6_0=0; %let pb2013_6_1=3.09; %let pb2013_6_2=0; %let pb2013_6_3=15; %let pb2013_6_4=3.45; %let pb2013_6_5=3.61; %let pb2013_6_6=1.11; %let pb2013_6_7=0.6; %let pb2013_6_8=0.03; %let pb2013_6_9=0; %let pb2013_7_0=0; %let pb2013_7_1=4.1; %let pb2013_7_2=0; %let pb2013_7_3=16.4; %let pb2013_7_4=3.27; %let pb2013_7_5=1.86; %let pb2013_7_6=0.56; %let pb2013_7_7=0.15; %let pb2013_7_8=0.01; %let pb2013_7_9=0; %let pb2013_8_0=0; %let pb2013_8_1=3.24; %let pb2013_8_2=0; %let pb2013_8_3=18.4; %let pb2013_8_4=2.74; %let pb2013_8_5=1.62; %let pb2013_8_6=0.46; %let pb2013_8_7=0.12; %let pb2013_8_8=0.03; %let pb2013_8_9=0; %let pb2013_9_0=0; %let pb2013_9_1=3.59; %let pb2013_9_2=0; %let pb2013_9_3=19.1; %let pb2013_9_4=2.79; %let pb2013_9_5=1.48; %let pb2013_9_6=0.36; %let pb2013_9_7=0.05; %let pb2013_9_8=0.02; %let pb2013_9_9=0; %let pb2013_10_0=0; %let pb2013_10_1=4.35; %let pb2013_10_2=0; %let pb2013_10_3=19.6; %let pb2013_10_4=2.05; %let pb2013_10_5=0.57; %let pb2013_10_6=0.58; %let pb2013_10_7=0.06; %let pb2013_10_8=0; %let pb2013_10_9=0; %let pb2013_11_0=0; %let pb2013_11_1=3.72; %let pb2013_11_2=0; %let pb2013_11_3=15.9; %let pb2013_11_4=1.34; %let pb2013_11_5=1.07; %let pb2013_11_6=0.1; %let pb2013_11_7=0.22; %let pb2013_11_8=0; %let pb2013_11_9=0; %let sb2013_1_0=-1.13; %let sb2013_1_1=-0.83; %let sb2013_1_2=0; %let sb2013_1_3=1.06; %let sb2013_1_4=1.15; %let sb2013_1_5=1.31; %let sb2013_1_6=1.68; %let sb2013_1_7=2.62; %let sb2013_1_8=5.28; %let sb2013_1_9=0; %let sb2013_2_0=-1.58; %let sb2013_2_1=-0.56; %let sb2013_2_2=0; %let sb2013_2_3=1.05; %let sb2013_2_4=1.15; %let sb2013_2_5=1.37; %let sb2013_2_6=1.76; %let sb2013_2_7=2.99; %let sb2013_2_8=5.41; %let sb2013_2_9=19.11; %let sb2013_3_0=-1.44; %let sb2013_3_1=0.49; %let sb2013_3_2=0; %let sb2013_3_3=1.04; %let sb2013_3_4=1.14; %let sb2013_3_5=1.33; %let sb2013_3_6=1.74; %let sb2013_3_7=2.67; %let sb2013_3_8=5.34; %let sb2013_3_9=19.66; %let sb2013_4_0=0; %let sb2013_4_1=0.61; %let sb2013_4_2=0; %let sb2013_4_3=1.04; %let sb2013_4_4=1.15; %let sb2013_4_5=1.32; %let sb2013_4_6=1.72; %let sb2013_4_7=2.59; %let sb2013_4_8=5.14; %let sb2013_4_9=0; %let sb2013_5_0=0; %let sb2013_5_1=0.8; %let sb2013_5_2=0; %let sb2013_5_3=1.03; %let sb2013_5_4=1.14; %let sb2013_5_5=1.32; %let sb2013_5_6=1.71; %let sb2013_5_7=2.59; %let sb2013_5_8=5.03; %let sb2013_5_9=0; %let sb2013_6_0=0; %let sb2013_6_1=0.92; %let sb2013_6_2=0; %let sb2013_6_3=1.03; %let sb2013_6_4=1.14; %let sb2013_6_5=1.31; %let sb2013_6_6=1.7; %let sb2013_6_7=2.49; %let sb2013_6_8=5.39; %let sb2013_6_9=0; %let sb2013_7_0=0; %let sb2013_7_1=0.96; %let sb2013_7_2=0; %let sb2013_7_3=1.03; %let sb2013_7_4=1.14; %let sb2013_7_5=1.32; %let sb2013_7_6=1.72; %let sb2013_7_7=2.62; %let sb2013_7_8=6.07; %let sb2013_7_9=0; %let sb2013_8_0=0; %let sb2013_8_1=0.96; %let sb2013_8_2=0; %let sb2013_8_3=1.03; %let sb2013_8_4=1.14; %let sb2013_8_5=1.3; %let sb2013_8_6=1.69; %let sb2013_8_7=2.61; %let sb2013_8_8=5.5; %let sb2013_8_9=0; %let sb2013_9_0=0; %let sb2013_9_1=0.96; %let sb2013_9_2=0; %let sb2013_9_3=1.03; %let sb2013_9_4=1.14; %let sb2013_9_5=1.31; %let sb2013_9_6=1.64; %let sb2013_9_7=2.46; %let sb2013_9_8=5.42; %let sb2013_9_9=0; %let sb2013_10_0=0; %let sb2013_10_1=0.96; %let sb2013_10_2=0; %let sb2013_10_3=1.03; %let sb2013_10_4=1.14; %let sb2013_10_5=1.32; %let sb2013_10_6=1.64; %let sb2013_10_7=2.6; %let sb2013_10_8=0; %let sb2013_10_9=0; %let sb2013_11_0=0; %let sb2013_11_1=0.94; %let sb2013_11_2=0; %let sb2013_11_3=1.03; %let sb2013_11_4=1.14; %let sb2013_11_5=1.29; %let sb2013_11_6=1.82; %let sb2013_11_7=3.23; %let sb2013_11_8=0; %let sb2013_11_9=0; %let var2013_1_0=0.058; %let var2013_1_1=0.017; %let var2013_1_2=0; %let var2013_1_3=0.005; %let var2013_1_4=0.022; %let var2013_1_5=0.019; %let var2013_1_6=0.041; %let var2013_1_7=0.142; %let var2013_1_8=0.529; %let var2013_1_9=0; %let var2013_2_0=0.346; %let var2013_2_1=0.033; %let var2013_2_2=0; %let var2013_2_3=0.007; %let var2013_2_4=0; %let var2013_2_5=0.015; %let var2013_2_6=0.025; %let var2013_2_7=0.061; %let var2013_2_8=0.151; %let var2013_2_9=2.676; %let var2013_3_0=0.709; %let var2013_3_1=0.032; %let var2013_3_2=0; %let var2013_3_3=0.002; %let var2013_3_4=0.003; %let var2013_3_5=0.007; %let var2013_3_6=0.012; %let var2013_3_7=0.031; %let var2013_3_8=0.085; %let var2013_3_9=1.87; %let var2013_4_0=0; %let var2013_4_1=0.029; %let var2013_4_2=0; %let var2013_4_3=0.001; %let var2013_4_4=0.002; %let var2013_4_5=0.005; %let var2013_4_6=0.009; %let var2013_4_7=0.029; %let var2013_4_8=0.11; %let var2013_4_9=0; %let var2013_5_0=0; %let var2013_5_1=0.023; %let var2013_5_2=0; %let var2013_5_3=0.001; %let var2013_5_4=0.002; %let var2013_5_5=0.004; %let var2013_5_6=0.008; %let var2013_5_7=0.036; %let var2013_5_8=0.168; %let var2013_5_9=0; %let var2013_6_0=0; %let var2013_6_1=0.01; %let var2013_6_2=0; %let var2013_6_3=0.001; %let var2013_6_4=0.001; %let var2013_6_5=0.004; %let var2013_6_6=0.009; %let var2013_6_7=0.035; %let var2013_6_8=0.289; %let var2013_6_9=0; %let var2013_7_0=0; %let var2013_7_1=0.005; %let var2013_7_2=0; %let var2013_7_3=0.001; %let var2013_7_4=0.002; %let var2013_7_5=0.005; %let var2013_7_6=0.015; %let var2013_7_7=0.085; %let var2013_7_8=0.868; %let var2013_7_9=0; %let var2013_8_0=0; %let var2013_8_1=0.007; %let var2013_8_2=0; %let var2013_8_3=0.001; %let var2013_8_4=0.002; %let var2013_8_5=0.008; %let var2013_8_6=0.021; %let var2013_8_7=0.097; %let var2013_8_8=0.209; %let var2013_8_9=0; %let var2013_9_0=0; %let var2013_9_1=0.006; %let var2013_9_2=0; %let var2013_9_3=0.001; %let var2013_9_4=0.002; %let var2013_9_5=0.008; %let var2013_9_6=0.022; %let var2013_9_7=0.149; %let var2013_9_8=0.497; %let var2013_9_9=0; %let var2013_10_0=0; %let var2013_10_1=0.009; %let var2013_10_2=0; %let var2013_10_3=0.002; %let var2013_10_4=0.006; %let var2013_10_5=0.026; %let var2013_10_6=0.042; %let var2013_10_7=0.138; %let var2013_10_8=0; %let var2013_10_9=0; %let var2013_11_0=0; %let var2013_11_1=0.012; %let var2013_11_2=0; %let var2013_11_3=0.001; %let var2013_11_4=0.004; %let var2013_11_5=0.011; %let var2013_11_6=0.06; %let var2013_11_7=0.214; %let var2013_11_8=0; %let var2013_11_9=0; %macro GroupsAll(dsn, var, wts, decvar, cutoff); *Relative IncGrps: 1 = P0-50 2 = P50-90 3 = P90-95 4 = P95-99 5 = P99-99.5 6 = P99.5-99.9 7 = P99.9-99.99% 8 = Top 0.01% ; /* calculate the cutpoints for Income Groups */ proc univariate noprint data = &dsn; var &var; output out = decile pctlpts = 50 90 95 99 99.5 99.9 99.99 pctlpre = pct; weight &wts; run; /* write the cutoffs to macro variables */ data _null_; set decile; call symput('d1' , pct50) ; call symput('d2' , pct90) ; call symput('d3' , pct95) ; call symput('d4' , pct99) ; call symput('d5' , pct99_5) ; call symput('d6' , pct99_9) ; call symput('d7' , pct99_99) ; run; data &dsn; set &dsn; if &var =. then &decvar =.; else if &var le &d1 then do; &decvar=1; end; else if &var le &d2 then do; &decvar=2; &cutoff=&d1; end; else if &var le &d3 then do; &decvar=3; &cutoff=&d2; end; else if &var le &d4 then do; &decvar=4; &cutoff=&d3; end; else if &var le &d5 then do; &decvar=5; &cutoff=&d4; end; else if &var le &d6 then do; &decvar=6; &cutoff=&d5; end; else if &var le &d7 then do; &decvar=7; &cutoff=&d6; end; else if &var > &d7 then do; &decvar=8; &cutoff=&d7; end; run; %mend GroupsAll; %macro GroupsAll2(dsn, var, wts, decvar, cutoff); *Relative IncGrps: 1 = P0-20 2 = P20-40 3 = P40-50 4 = P50-60 5 = P60-80 6 = P80-90 7 = P90-95 8 = P95-99 9 = P99-99.5 10 = P99.5-99.9 11 = P99.9-99.99% 12 = Top 0.01% 13 = ALL INCOME ; /* calculate the cutpoints for Income Groups */ proc univariate noprint data = &dsn; var &var; output out = decile pctlpts = 20 40 50 60 80 90 95 99 99.5 99.9 99.99 pctlpre = pct; weight &wts; run; /* write the cutoffs to macro variables */ data _null_; set decile; call symput('d1' , pct20) ; call symput('d2' , pct40) ; call symput('d3' , pct50) ; call symput('d4' , pct60) ; call symput('d5' , pct80) ; call symput('d6' , pct90) ; call symput('d7' , pct95) ; call symput('d8' , pct99) ; call symput('d9' , pct99_5) ; call symput('d10' , pct99_9) ; call symput('d11' , pct99_99) ; run; data &dsn; set &dsn; if &var =. then &decvar =.; else if &var le &d1 then do; &decvar=1; end; else if &var le &d2 then do; &decvar=2; &cutoff=&d1; end; else if &var le &d3 then do; &decvar=3; &cutoff=&d2; end; else if &var le &d4 then do; &decvar=4; &cutoff=&d3; end; else if &var le &d5 then do; &decvar=5; &cutoff=&d4; end; else if &var le &d6 then do; &decvar=6; &cutoff=&d5; end; else if &var le &d7 then do; &decvar=7; &cutoff=&d6; end; else if &var le &d8 then do; &decvar=8; &cutoff=&d7; end; else if &var le &d9 then do; &decvar=9; &cutoff=&d8; end; else if &var le &d10 then do; &decvar=10; &cutoff=&d9; end; else if &var le &d11 then do; &decvar=11; &cutoff=&d10; end; else if &var > &d11 then do; &decvar=12; &cutoff=&d11; end; run; %mend GroupsAll2; %macro GroupsAL(dsn, var, wts, decvar); * 1 = <-$50K 2 = -$50K to -$1 3 = P0-20 (centiles based on all returns and so bottom often missing due to negative income groups) 4 = P20-40 5 = P40-60 6 = P60-80 7 = P80-90 8 = P90-95 9 = P95-99 10 = P99-99.5 11 = top 0.5%; /* calculate the cutpoints for Income Groups */ proc univariate noprint data = &dsn; var &var; output out = decile pctlpts = 20 40 60 80 90 95 99 99.5 pctlpre = pct; weight &wts; run; /* write the cutoffs to macro variables */ data _null_; set decile; call symput('d1' , pct20) ; call symput('d2' , pct40) ; call symput('d3' , pct60) ; call symput('d4' , pct80) ; call symput('d5' , pct90) ; call symput('d6' , pct95) ; call symput('d7' , pct99) ; call symput('d8' , pct99_5); run; data &dsn; set &dsn; if &var =. then &decvar =.; else if &var le &d1 then do; &decvar=3; end; else if &var le &d2 then do; &decvar=4; end; else if &var le &d3 then do; &decvar=5; end; else if &var le &d4 then do; &decvar=6; end; else if &var le &d5 then do; &decvar=7; end; else if &var le &d6 then do; &decvar=8; end; else if &var le &d7 then do; &decvar=9; end; else if &var le &d8 then do; &decvar=10; end; else if &var > &d8 then do; &decvar=11; end; if &var lt 0 then &decvar=2; if &var lt -50000 then &decvar=1; run; %mend GroupsAL; %macro Quintiles(dsn, var, wts, group, cutoff); /* calculate the cutpoints for Income Groups */ proc univariate noprint data = &dsn; var &var; output out = group pctlpts = 20 40 60 80 pctlpre = pct; weight &wts; run; /* write the cutoffs to macro variables */ data _null_; set group; call symput('d1' , pct20); call symput('d2' , pct40); call symput('d3' , pct60); call symput('d4' , pct80); run; data &dsn; set &dsn; if &var =. then &group =.; else if &var le &d1 then do; &group=1; end; else if &var le &d2 then do; &group=2; &cutoff=&d1; end; else if &var le &d3 then do; &group=3; &cutoff=&d2; end; else if &var le &d4 then do; &group=4; &cutoff=&d3; end; else if &var > &d4 then do; &group=5; &cutoff=&d4; end; run; %mend Quintiles; %macro GroupsDeciles(dsn, var, wts, decvar); /* calculate the cutpoints for Income Groups */ proc univariate noprint data = &dsn; var &var; output out = decile pctlpts = 10 20 30 40 50 60 70 80 90 95 99 99.5 pctlpre = pct; weight &wts; run; /* write the cutoffs to macro variables */ data _null_; set decile; call symput('d1' , pct10) ; call symput('d2' , pct20) ; call symput('d3' , pct30) ; call symput('d4' , pct40) ; call symput('d5' , pct50) ; call symput('d6' , pct60) ; call symput('d7' , pct70) ; call symput('d8' , pct80) ; call symput('d9' , pct90) ; call symput('d10' , pct95) ; call symput('d11' , pct99) ; call symput('d12' , pct99_5) ; run; data &dsn; set &dsn; if &var =. then &decvar =.; else if &var le &d1 then do; &decvar=1; end; else if &var le &d2 then do; &decvar=2; end; else if &var le &d3 then do; &decvar=3; end; else if &var le &d4 then do; &decvar=4; end; else if &var le &d5 then do; &decvar=5; end; else if &var le &d6 then do; &decvar=6; end; else if &var le &d7 then do; &decvar=7; end; else if &var le &d8 then do; &decvar=8; end; else if &var le &d9 then do; &decvar=9; end; else if &var le &d10 then do; &decvar=10; end; else if &var le &d11 then do; &decvar=11; end; else if &var le &d12 then do; &decvar=12; end; else if &var > &d12 then do; &decvar=13; end; *if (&var < 0) then &decvar=0; run; %mend GroupsDeciles; %macro GroupsDecilesN(dsn, var, wts, decvar); /* calculate the cutpoints for Income Groups */ proc univariate noprint data = &dsn; var &var; output out = decile pctlpts = 10 20 30 40 50 60 70 80 90 95 99 99.5 pctlpre = pct; weight &wts; run; /* write the cutoffs to macro variables */ data _null_; set decile; call symput('d1' , pct10) ; call symput('d2' , pct20) ; call symput('d3' , pct30) ; call symput('d4' , pct40) ; call symput('d5' , pct50) ; call symput('d6' , pct60) ; call symput('d7' , pct70) ; call symput('d8' , pct80) ; call symput('d9' , pct90) ; call symput('d10' , pct95) ; call symput('d11' , pct99) ; call symput('d12' , pct99_5) ; run; data &dsn; set &dsn; if &var =. then &decvar =.; else if &var le &d1 then do; &decvar=1; end; else if &var le &d2 then do; &decvar=2; end; else if &var le &d3 then do; &decvar=3; end; else if &var le &d4 then do; &decvar=4; end; else if &var le &d5 then do; &decvar=5; end; else if &var le &d6 then do; &decvar=6; end; else if &var le &d7 then do; &decvar=7; end; else if &var le &d8 then do; &decvar=8; end; else if &var le &d9 then do; &decvar=9; end; else if &var le &d10 then do; &decvar=10; end; else if &var le &d11 then do; &decvar=11; end; else if &var le &d12 then do; &decvar=12; end; else if &var > &d12 then do; &decvar=13; end; if (&var < 0) then &decvar=0; run; %mend GroupsDecilesN; %macro Group40(dsn, var, wts, group, cutoff); /* calculate the cutpoints for Income Groups */ proc univariate noprint data = &dsn; var &var; output out = group pctlpts = 40 pctlpre = pct; weight &wts; run; /* write the cutoffs to macro variables */ data _null_; set group; call symput('d1' , pct40); run; data &dsn; set &dsn; if &var =. then &group =.; else if &var le &d1 then do; &group=1; end; else if &var > &d1 then do; &group=2; &cutoff=&d1; end; run; %mend Group40; %macro GroupsUnd(dsn, var, wts, decvar); * 1 = <-$25K 2 = -25 to -1 3 = P0-40 (centiles based on all returns and so bottom often missing due to negative income groups) 4 = P40-60 5 = P60-80 6 = P80-90 7 = P90-95 8 = P95-99 9 = P99-99.5 10 = P99.5-99.9 11 = top 0.1%; /* calculate the cutpoints for Income Groups */ proc univariate noprint data = &dsn; var &var; output out = decile pctlpts = 40 60 80 90 95 99 99.5 99.9 pctlpre = pct; weight &wts; run; /* write the cutoffs to macro variables */ data _null_; set decile; call symput('d1' , pct40) ; call symput('d2' , pct60) ; call symput('d3' , pct80) ; call symput('d4' , pct90) ; call symput('d5' , pct95) ; call symput('d6' , pct99) ; call symput('d7' , pct99_5) ; call symput('d8' , pct99_9) ; run; data &dsn; set &dsn; if &var =. then &decvar =.; else if &var le &d1 then do; &decvar=3; end; else if &var le &d2 then do; &decvar=4; end; else if &var le &d3 then do; &decvar=5; end; else if &var le &d4 then do; &decvar=6; end; else if &var le &d5 then do; &decvar=7; end; else if &var le &d6 then do; &decvar=8; end; else if &var le &d7 then do; &decvar=9; end; else if &var le &d8 then do; &decvar=10; end; else if &var > &d8 then do; &decvar=11; end; if &var lt 0 then &decvar=2; if &var lt -25000 then &decvar=1; run; %mend GroupsUnd; %macro GroupsUndwg(dsn, var, wts, decvar); * 1 = P0-20 2 = P20-40 3 = P40-60 4 = P60-80 5 = P80-90 6 = P90-95 7 = P95-99 8 = P99-99.5 9 = P99.5-99.9 10 = top 0.1%; /* calculate the cutpoints for Income Groups */ proc univariate noprint data = &dsn; var &var; output out = decile pctlpts = 20 40 60 80 90 95 99 99.5 99.9 pctlpre = pct; weight &wts; run; /* write the cutoffs to macro variables */ data _null_; set decile; call symput('d1' , pct20) ; call symput('d2' , pct40) ; call symput('d3' , pct60) ; call symput('d4' , pct80) ; call symput('d5' , pct90) ; call symput('d6' , pct95) ; call symput('d7' , pct99) ; call symput('d8' , pct99_5) ; call symput('d9' , pct99_9) ; run; data &dsn; set &dsn; if &var =. then &decvar =.; else if &var le &d1 then do; &decvar=1; end; else if &var le &d2 then do; &decvar=2; end; else if &var le &d3 then do; &decvar=3; end; else if &var le &d4 then do; &decvar=4; end; else if &var le &d5 then do; &decvar=5; end; else if &var le &d6 then do; &decvar=6; end; else if &var le &d7 then do; &decvar=7; end; else if &var le &d8 then do; &decvar=8; end; else if &var le &d9 then do; &decvar=9; end; else if &var > &d9 then do; &decvar=10; end; run; %mend GroupsUndwg; %macro centiles(dsn, var, wts, cent); /* calculate the cutpoints for quintiles */ proc univariate noprint data = &dsn; var &var; by agegroup married dep_kids; output out = centile pctlpts=1 to 99 pctlpre = pct; weight &wts; run; /* write the decile cutoffs to macro variables */ data _null_; set centile; *call symput('d0' , pct0) ; call symput('d1' , pct1) ; call symput('d2' , pct2) ; call symput('d3' , pct3) ; call symput('d4' , pct4) ; call symput('d5' , pct5) ; call symput('d6' , pct6) ; call symput('d7' , pct7) ; call symput('d8' , pct8) ; call symput('d9' , pct9) ; call symput('d10' , pct10); call symput('d11' , pct11); call symput('d12' , pct12); call symput('d13' , pct13); call symput('d14' , pct14); call symput('d15' , pct15); call symput('d16' , pct16); call symput('d17' , pct17); call symput('d18' , pct18); call symput('d19' , pct19); call symput('d20' , pct20); call symput('d21' , pct21); call symput('d22' , pct22); call symput('d23' , pct23); call symput('d24' , pct24); call symput('d25' , pct25); call symput('d26' , pct26); call symput('d27' , pct27); call symput('d28' , pct28); call symput('d29' , pct29); call symput('d30' , pct30); call symput('d31' , pct31); call symput('d32' , pct32); call symput('d33' , pct33); call symput('d34' , pct34); call symput('d35' , pct35); call symput('d36' , pct36); call symput('d37' , pct37); call symput('d38' , pct38); call symput('d39' , pct39); call symput('d40' , pct40); call symput('d41' , pct41); call symput('d42' , pct42); call symput('d43' , pct43); call symput('d44' , pct44); call symput('d45' , pct45); call symput('d46' , pct46); call symput('d47' , pct47); call symput('d48' , pct48); call symput('d49' , pct49); call symput('d50' , pct50); call symput('d51' , pct51); call symput('d52' , pct52); call symput('d53' , pct53); call symput('d54' , pct54); call symput('d55' , pct55); call symput('d56' , pct56); call symput('d57' , pct57); call symput('d58' , pct58); call symput('d59' , pct59); call symput('d60' , pct60); call symput('d61' , pct61); call symput('d62' , pct62); call symput('d63' , pct63); call symput('d64' , pct64); call symput('d65' , pct65); call symput('d66' , pct66); call symput('d67' , pct67); call symput('d68' , pct68); call symput('d69' , pct69); call symput('d70' , pct70); call symput('d71' , pct71); call symput('d72' , pct72); call symput('d73' , pct73); call symput('d74' , pct74); call symput('d75' , pct75); call symput('d76' , pct76); call symput('d77' , pct77); call symput('d78' , pct78); call symput('d79' , pct79); call symput('d80' , pct80); call symput('d81' , pct81); call symput('d82' , pct82); call symput('d83' , pct83); call symput('d84' , pct84); call symput('d85' , pct85); call symput('d86' , pct86); call symput('d87' , pct87); call symput('d88' , pct88); call symput('d89' , pct89); call symput('d90' , pct90); call symput('d91' , pct91); call symput('d92' , pct92); call symput('d93' , pct93); call symput('d94' , pct94); call symput('d95' , pct95); call symput('d96' , pct96); call symput('d97' , pct97); call symput('d98' , pct98); call symput('d99' , pct99); run; * use centile cutoffs to set centile variable cent; data &dsn; set &dsn; if &var =. then ¢ =.; %do centile = 1 %to 99; if (¢=.) and (&var < &&d¢ile) then ¢=¢ile; %end; if (&var > &d99) then ¢=100; run; %mend centiles; %macro gini(capinc, capwts, dsin, yr, var); /* GINI CODE: based on SAS code written by Philip N. Cohen */ * Income distribution; proc freq data = &dsin; tables &capinc / noprint out = table; format &capinc 7.0; weight &capwts; run; /* this data step creates cumulative income and population columns */ data table; set table; retain suminc perpop; suminc + (&capinc * count); perpop + percent; /* suminc is the cumulative income at each point in the distribution. perpop is the cumulative population at each point in the distribution. Note that PERCENT and COUNT are variables created by PROC FREQ. */ run; /* This sort and data step takes the last value of suminc, which is the total income, and adds it onto every record in the table as totalinc. Then it divides suminc by totalinc for each line to create the percent of income below that point in the distribution */ proc sort data=table; by descending suminc; run; data table; set table; by descending suminc; if _n_=1 then do; totalinc=suminc; end; retain totalinc; perinc = (suminc/totalinc) * 100; run; /* this sort just puts it back in order from low to high */ proc sort data=table; by perpop; run; /* To calculate Gini: sum[Xsub(i) * Ysub(i+1)] - sum[Xsub(i+1) * Ysub(i)] where X is the proportion of population column and Y is the proportion of income column. */ data ginidat; set table; xlag = lag(perpop); xlag = xlag / 100; ylag = lag(perinc); ylag = ylag / 100; columna = (perinc/100) * xlag; columnb = (perpop/100) * ylag; retain suma sumb; suma + columna; sumb + columnb; gini&yr = suma - sumb; qq = 1; year = &yr; gini&var = gini&yr; gini = gini&yr; if (perinc ne 100) then delete; keep gini; *year; run; /*data gini&var; set ginidat; keep year gini&var; run;*/ /*data gini; merge gini ginidat; by qq; run;*/ proc append base=gini data=ginidat force; run; %mend gini; %macro giniconcindex(concinc, rankinc, wts, dsin, yr, var); * Example giniconcindex(tax, income, wt, TAB, &yr, 2); /* macro originally written by Philip N. Cohen and modified for concentration indexes (e.g., Kakwani index) by David Splinter */ * Order by rank income (which may differ from concentration income); proc sort data=&dsin; by &rankinc; run; * this data step creates cumulative income and population columns; data t; set &dsin; retain suminc sumwts; suminc + &concinc*&wts; * suminc is the cumulative income at each point in the distribution; sumwts + &wts; *sumwts is the cumulative population at each point in the distribution; keep suminc sumwts &rankinc &concinc &wts; run; proc sort data=t; by descending &rankinc; run; * (was suminc) rank by irank or centile, which may not equal capinc; data t; set t; by descending &rankinc; if _n_=1 then do; totalinc=suminc; totalwts=sumwts; end; retain totalinc totalwts; perinc = (suminc/totalinc) * 100; perpop = (sumwts/totalwts) * 100; run; proc sort data=t; by perpop; run; * puts it back in order from low to high; * To calculate Gini: sum[Xsub(i) * Ysub(i+1)] - sum[Xsub(i+1) * Ysub(i)] where X is the proportion of population column and Y is the proportion of income column. ; data giniconcdat&var; set t; year = &yr; xlag = lag(perpop); xlag = xlag / 100; ylag = lag(perinc); ylag = ylag / 100; columna = (perinc/100) * xlag; columnb = (perpop/100) * ylag; retain suma sumb; suma + columna; sumb + columnb; gini&var = suma - sumb; if (perinc ne 100) then delete; keep gini&var year; run; /*proc append base=giniconc data=giniconcdat force; run;*/ %if (&var = reynsmol)or(&var eq kakall) %then %do; data giniconc; set giniconcdat&var; run; %end; /*proc sort data=giniconcdat&var; by year; run; */ %if (&var ne reynsmol)and(&var ne kakall) %then %do; data giniconc; merge giniconc giniconcdat&var; by year; run; %end; %mend giniconcindex; %macro EST_INCOME(yr, filingtype, incometype); %IF (&yr >= 1979) %then %do; data TAB&yr; set indiv.soi&yr; ARRAY X(*) X001-X008; year=&yr; filingtype=&filingtype; incometype=&incometype; * initialize some variables; id = _N_; DEPD = 0; ADJ_MV = 0; EMPEX = 0; ADJ_IRA = 0; ADJ_KEO = 0; ADJ_FIP = 0; ADJ_ALM = 0; ADJ_MAR = 0; ADJ_HEA = 0; ADJ_OTH = 0; ADJ_FHS = 0; PART=0; SCORPNET=0; %IF (&yr eq 1979) %then %do; id = pssn; IF MARS = . THEN MARS = 0; EXEM = N5+N8; IF EXEM = . THEN EXEM = 1; AGIX = E73; IF AGIX = . THEN AGIX = 0; WAGE = E50; IF WAGE = . THEN WAGE = 0; INTEREST = E51; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = E53; IF DIVID = . THEN DIVID = 0; * DIVIDENDS:IN AGI; CGSD = E158; IF CGSD = . THEN CGSD = 0; * Net Cap Gain/Loss Sch D, 60% of cap gain excluded 1976-1986; CGDS = E57; IF CGDS = . THEN CGDS = 0; * Capital Gain Dist, E58 Sale of property other than capital assets, E148 CAPL GAIN DISTRIB Sch B; CGOTH = E58; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss; PENSION = E59*1.03+E200; IF PENSION = . THEN PENSION = 0; * Pensions and annuities received this year, E218 Retirement Inc sch RRP, Column B sch RRP(2.7 tril), E217 Col A (0.3 tril); TXPENS = PENSION; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities; UNEM = E63; IF UNEM = . THEN UNEM = 0; * Unemp compensation in AGI; TUNEM=E62; * Gross UI; SSAGIX = 0; IF SSAGIX = . THEN SSAGIX = 0; * NO SS benefits reported until 1984, E213 Social Security or RRA Benefits, Column A; STATADJ = E72; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); BUSN = E56; IF BUSN = . THEN BUSN = 0; * Business or professional net profit or loss; PARTSCP = E206+E212; IF PARTSCP = . THEN PARTSCP = 0; FARM = E61; IF FARM = . THEN FARM = 0; * Farm net profit or loss (taxpayer); RENTS = E202+E203+E209; RENT = E202+E203; IF RENTS = . THEN RENTS = 0; * Rent net inc/loss, E203 royal net inc/loss, E209 Estate or Trust net inc/loss; TRUST = E209; IF TRUST = . THEN TRUST = 0.0; STXRF = E54; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; OTHR=e64; STATE=STATE; FOREX=E227; * Excluded earned income abroad; PENSNT = PENSION-E59-E201; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E59+E201; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); MISDED=E145-E144; GAMBLS = 0; if (MISDED<(OTHR+300*&&cpi&yr/&cpi1991))and(MISDED>(OTHR-10)) THEN GAMBLS=MISDED; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; TOTDIV = e52; * total dividends; SETX = e103; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = e111; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = e135; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e131; * state/local income taxes deducted; PRPD = e132; * real estate tax deduction; SSTX = e133; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = e82; * foreign tax credit; SCP = e212; IRA = e67 + e68; * IRA and KEOGH adjustments; EMPEX = e66; MID = e136; ALIMRC = e55; * alimony received; ALIMPD = e70; * alimony paid; REFCR = e114; IntEx = e138-MID; * Investment expenses estimated as a share of interest received; %END; %IF (&yr eq 1980) %then %do; idc =CATS(put(pssnhigh,z5.),put(pssnlow,z4.)); id=input(idc,10.); IF MARS = . THEN MARS = 0; EXEM = N5+N8; IF EXEM = . THEN EXEM = 1; AGIX = E73; IF AGIX = . THEN AGIX = 0; WAGE = E50; IF WAGE = . THEN WAGE = 0; INTEREST = E51; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = E53; IF DIVID = . THEN DIVID = 0; CGSD = E158; IF CGSD = . THEN CGSD = 0; * Net Cap Gain/Loss Sch D, 60% of cap gain excluded 1976-1986; CGDS = E57; IF CGDS = . THEN CGDS = 0; * Capital Gain Dist, E58 Sale of property other than capital assets, E148 CAPL GAIN DISTRIB Sch B; CGOTH = E58; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss; PENSION = E59*1.03+E200; IF PENSION = . THEN PENSION = 0; UNEM = E63; IF UNEM = . THEN UNEM = 0; * Unemp compensation in AGI; TUNEM=E62; * Gross UI; SSAGIX = 0; IF SSAGIX = . THEN SSAGIX = 0; * NO SS benefits reported until 1984, E213 Social Security or RRA Benefits, Column A; STATADJ = E72; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); BUSN = E56; IF BUSN = . THEN BUSN = 0; * Business or professional net profit or loss; PARTSCP = E206+E212; IF PARTSCP = . THEN PARTSCP = 0; FARM = E61; IF FARM = . THEN FARM = 0; * E61 Farm net profit or loss (taxpayer); RENTS = E202+E203+E209; RENT = E202+E203; IF RENTS = . THEN RENTS = 0; * E202 Rent net inc/loss, E203 royal net inc/loss, E209 Estate or Trust net inc/loss; TRUST = E209; IF TRUST = . THEN TRUST = 0.0; STXRF = E54; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; OTHR=e64; STATE=STATE; FOREX=E228; *E225: Total income earned abroad E226: Living expense deduction E227: Excluded earned income E228: Exempt income earned abroad; PENSNT = PENSION-E59-E201; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E59+E201; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); MISDED=E145-E144; GAMBLS = 0; if (MISDED<(OTHR+300*&&cpi&yr/&cpi1991))and(MISDED>(OTHR-10)) THEN GAMBLS=MISDED; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; TOTDIV = e52; * total dividends; SETX = e103; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = e111; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = e135; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e131; * state/local income taxes deducted; PRPD = e132; * real estate tax deduction; SSTX = e133; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = e82; * foreign tax credit; SCP = E212; IRA = E67 + E68; * IRA and KEOGH adjustments; EMPEX = E66; MID = E136; ALIMRC = E55; * alimony received; ALIMPD = E70; * alimony paid; REFCR = E114; IntEx = E138-MID; * Investment expenses estimated as a share of non-mortgage interest deducted; %END; %IF (&yr eq 1981) %then %do; id = S002; * primary SSN; IF MARS = . THEN MARS = 0; EXEM = N3+N6; IF EXEM = . THEN EXEM = 1; AGIX = E76; IF AGIX = . THEN AGIX = 0; WAGE = E50; IF WAGE = . THEN WAGE = 0; INTEREST = E51; IF INTEREST = . THEN INTEREST = 0; * Gross INTEREST; DIVID = E53-E51*0.937; IF DIVID = . THEN DIVID = 0; * dividends in agi, together with interest so remove estimated taxable interest; DIVEX = 0; IF DIVEX = . THEN DIVEX = 0; * Excluded Dividends, E53 Taxable Dividends and Interest; CGSD = E311; IF CGSD = . THEN CGSD = 0; * E57 1040 cap gain, E311 Schedule D capital gain distributions, E310 60% of cap gain excluded 1976-1986; CGDS = E57; *was 58; IF CGDS = . THEN CGDS = 0; * E58/E308 CAPL GAIN DISTRIB REPORTED ON 4797, E309 Small business corp gain; CGOTH = E58;*+E308; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss; PENSION = E59+E60; IF PENSION = . THEN PENSION = 0; * E60 Total pensions and annuities received, E61 Pensions and annuities in AGI; UNEM = E65; IF UNEM = . THEN UNEM = 0; * Unemp compensation in AGI; TUNEM=E64; * Gross UI; SSAGIX = 0; IF SSAGIX = . THEN SSAGIX = 0; * SS benefits not taxable before 1984; STATADJ = E75; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); BUSN = E56; IF BUSN = . THEN BUSN = 0; * E203-204 Partnership PROFIT-LOSS, E208-209 Small Bus Corp PROFIT-LOSS; PARTSCP = E203-E204+E208-E209; IF PARTSCP = . THEN PARTSCP = 0; FARM = E63; IF FARM = . THEN FARM = 0; RENTS = E200+E201+E206-E207; RENT = E200+E201; *+E202; IF RENTS = . THEN RENTS = 0; * E200 Net Rent (E), E201 Net Roy(E), E202 Net Farm(Sch E), E206 Estate or Trust Income minus loss; TRUST = E206-E207; IF TRUST = . THEN TRUST = 0.0; STXRF = E54; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; OTHR=e66; STATE=STATE; FOREX=E911; *Foreign expense deduction; PENSNT = E60-E61; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E61; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); MISDED=E146; GAMBLS = 0; if (MISDED<(OTHR+300*&&cpi&yr/&cpi1991))and(MISDED>(OTHR-10)) THEN GAMBLS=MISDED; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR;* No NOLs variable before 1989, so assume that 80% negative other income are NOLs; TOTDIV = e52; * total dividends; SETX = e107; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = e114; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = e138; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e134; * state/local income taxes deducted; PRPD = e135; * real estate tax deduction; SSTX = e136; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = e100; * foreign tax credit; SCP = E208-E209; IRA = E69 + E70; * IRA and KEOGH adjustments; EMPEX = E68; MID = E139; ALIMRC = E55; * alimony received; ALIMPD = E72; * alimony paid; IntEx = E140-MID; * Investment expenses as non-mortgage interest deducted (adj. below); PropDepr = E354; * proprietor depreciation deduction; REFCR = E117; %END; %IF (&yr eq 1982) %then %do; id = S002; * primary SSN; IF MARS = . THEN MARS = 0; EXEM = N2; IF EXEM = . THEN EXEM = 1; EXEM = N3+N6; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions; AGIX = E10; IF AGIX = . THEN AGIX = 0.0; WAGE = E20; IF WAGE = . THEN WAGE = 0; INTEREST = E30; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = E60; IF DIVID = . THEN DIVID = 0; * E25 DIVIDENDS:RECIEVED, E28 DIVIDENDS:IN AGI; DIVEX = E50; IF DIVEX = . THEN DIVEX = 0.0; * Excluded Dividends; CGSD = E100; IF CGSD = . THEN CGSD = 0.0; * NET CAP GN/LOSS SCH D, 60% of cap gain excluded 1976-1986; CGDS = E110; IF CGDS = . THEN CGDS = 0.0; * CAPL GAIN DISTRIB REPORTED ON 1040; CGOTH = E120; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss; PENSION = E130; IF PENSION = . THEN PENSION = 0; * Total pensions and annuities received; UNEM = E230; IF UNEM = . THEN UNEM = 0.0; * Unemp compensation in AGI, E220 Unempl Gross; TUNEM=E220; * Gross UI; SSAGIX = 0; IF SSAGIX = . THEN SSAGIX = 0.0; * SS benefits not taxable before 1984; STATADJ = E290; IF STATADJ = . THEN STATADJ = 0.0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); BUSN = E90; IF BUSN = . THEN BUSN = 0.0; * BUSINESS/PROF NET PROFIT/LOSS; PARTSCP = E2620; IF PARTSCP = . THEN PARTSCP = 0; FARM = E210; IF FARM = . THEN FARM = 0.0; RENTS = E2650+E2570+E2580; RENT = E2570+E2580; IF RENTS = . THEN RENTS = 0.0; TRUST = E2580; IF TRUST = . THEN TRUST = 0.0; STXRF = E70; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; OTHR=e240; STATE=STATE; FOREX= e400; * foreign housing as no variable for earnings; PENSNT = E180; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E170; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); MISDED=E2040; GAMBLS = 0; if (MISDED<(OTHR+300*&&cpi&yr/&cpi1991))and(MISDED>(OTHR-10)) THEN GAMBLS=MISDED; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; TOTDIV = e40; * total dividends; SETX = e940; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = e920; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = e1830; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e1840; * state/local income taxes deducted; PRPD = e1850; * real estate tax deduction; SSTX = e1860; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = e730; * foreign tax credit; SCP = E2650; IRA = E320 + E330; * IRA and KEOGH adjustments; EMPEX = E310; MID = E1940; ALIMRC = E80; * alimony received; ALIMPD = E350; * alimony paid; IntEx = E1270; * Investment expenses; PropDepr = E5810; * proprietor depreciation deduction; REFCR = E1100; %END; %IF (&yr eq 1983) %then %do; id = S002; * primary SSN; IF MARS = . THEN MARS = 0; EXEM = N2; IF EXEM = . THEN EXEM = 1; EXEM = N3+N6; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions; AGIX = E10; IF AGIX = . THEN AGIX = 0.0; WAGE = E20; IF WAGE = . THEN WAGE = 0; INTEREST = E30; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = E60; IF DIVID = . THEN DIVID = 0; DIVEX = E50; IF DIVEX = . THEN DIVEX = 0.0; * Excluded Dividends; CGSD = E100; IF CGSD = . THEN CGSD = 0.0; * NET CAP GN/LOSS SCH D, 60% of cap gain excluded 1976-1986; CGDS = E110; IF CGDS = . THEN CGDS = 0.0; * CAPL GAIN DISTRIB REPORTED ON 1040, E120 Supplemental Schedule net gains or losses; CGOTH = E120; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss (Form 4797); PENSION = E130; IF PENSION = . THEN PENSION = 0; * Total pensions and annuities received; UNEM = E230; IF UNEM = . THEN UNEM = 0.0; * Unemp compensation in AGI, E220 Unempl Gross; TUNEM=E220; * Gross UI; SSAGIX = 0; IF SSAGIX = . THEN SSAGIX = 0.0; * SS benefits not taxable before 1984; STATADJ = E290; IF STATADJ = . THEN STATADJ = 0.0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); BUSN = E90; IF BUSN = . THEN BUSN = 0.0; * BUSINESS/PROF NET PROFIT/LOSS; PARTSCP = E2620+E2680; IF PARTSCP = . THEN PARTSCP = 0; FARM = E210; IF FARM = . THEN FARM = 0.0; RENTS = E2570+E2580+E2650; RENT = E2570+E2580; IF RENTS = . THEN RENTS = 0.0; TRUST = E2650; IF TRUST = . THEN TRUST = 0.0; STXRF = E70; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; OTHR=e240; STATE=STATE; FOREX=E380; PENSNT = E180; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E170; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); MISDED=E2040; GAMBLS = 0; if (MISDED<(OTHR+300*&&cpi&yr/&cpi1991))and(MISDED>(OTHR-10)) THEN GAMBLS=MISDED; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; TOTDIV = e40; * total dividends; SETX = e940; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = e920; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = e1830; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e1840; * state/local income taxes deducted; PRPD = e1850; * real estate tax deduction; SSTX = e1860; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = e730; * foreign tax credit; SCP = E2680; IRA = E320 + E330; * IRA and KEOGH adjustments; EMPEX = E310; MID = E1940; ALIMRC = E80; * alimony received; ALIMPD = E350; * alimony paid; IntEx = E3750; * Investment interest expense (form 4952 for itemized deduction); PropDepr = E5810; * proprietor depreciation deduction; REFCR = E1100; %END; %IF (&yr eq 1984) %then %do; id = a2; * primary SSN; mars = ac43; EXEM = E2; IF EXEM = . THEN EXEM = 1; EXEM = E3+E6; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions; AGIX = E22; IF AGIX = . THEN AGIX = 0.0; WAGE = E23; IF WAGE = . THEN WAGE = 0; INTEREST = E24; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = E27; IF DIVID = . THEN DIVID = 0; DIVEX = E26; IF DIVEX = . THEN DIVEX = 0.0; * Excluded Dividends; CGSD = E31; IF CGSD = . THEN CGSD = 0.0; * NET CAP GN/LOSS SCH D, 60% of cap gain excluded 1976-1986; CGDS = E32; IF CGDS = . THEN CGDS = 0.0; * CAP GN DISTRIB (Form 1040); CGOTH = E33; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss (Form 4797); PENSION = E34; IF PENSION = . THEN PENSION = 0; * Total pensions and annuities received(Form) (E35 Pensions and annuities in AGI); UNEM = E44; IF UNEM = . THEN UNEM = 0.0; * Unemp compensation in AGI; TUNEM=E43; * E43 Unempl Gross; SSAGIX = E46; IF SSAGIX = . THEN SSAGIX = 0.0; TSSA=E45; * SS benefits in AGI; STATADJ = E50; IF STATADJ = . THEN STATADJ = 0.0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); BUSN = E30; IF BUSN = . THEN BUSN = 0.0; * BUSINESS/PROF NET PROFIT/LOSS; PARTSCP = E283+E290; IF PARTSCP = . THEN PARTSCP = 0; FARM = E42; IF FARM = . THEN FARM = 0.0; * FARM NET PROFIT OR LOSS; RENTS = E278+E279+E286; RENT = E278+E279; IF RENTS = . THEN RENTS = 0.0; TRUST = E286; IF TRUST = . THEN TRUST = 0.0; STXRF = E28; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; OTHR=e47; ST=PSTATE; if (st='FA')or(st='GU')or(st='MP')or(st='AS')or(st='VI')or(st='PR')or(st='AP') then STATE=54; * pstate did nothing and state does not exist; STATE=AC75; FOREX=E373; PENSNT = E39; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E38; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); MISDED=E225; GAMBLS = 0; if (MISDED<(OTHR+300*&&cpi&yr/&cpi1991))and(MISDED>(OTHR-10)) THEN GAMBLS=MISDED; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; TOTDIV = e25; * total dividends; SETX = e115; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = e113; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = e204; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e205; * state/local income taxes deducted; PRPD = e206; * real estate tax deduction; DED = e190; * total itemized deductions; SSTX = e207; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = e92; if (e428>FTC) then FTC=e428; * foreign tax credit; SCP = E290; IRA = E53 + E55; * IRA and KEOGH adjustments; EMPEX = E52; MID = E214; DEPINC=0; if (AC16=1) then DEPINC=1; * depinc, unearned income by dependent, 0 if blank, 1 if selected, 2 if no box on form; ALIMRC = E29; * alimony received; ALIMPD = E57; * alimony paid; IntEx = E396; * Investment interest expense (form 4952 for itemized deduction); PropDepr = E602; * proprietor depreciation deduction; REFCR = E131; %END; %IF (&yr eq 1985) %then %do; id = a1; * primary SSN; mars = ac44; EXEM = E2; IF EXEM = . THEN EXEM = 1; EXEM = E3+E6; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions; AGIX = E22; IF AGIX = . THEN AGIX = 0.0; WAGE = E23; IF WAGE = . THEN WAGE = 0; INTEREST = E24; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = E27; IF DIVID = . THEN DIVID = 0; DIVEX = E26; IF DIVEX = . THEN DIVEX = 0.0; * Excluded Dividends; CGSD = E31; IF CGSD = . THEN CGSD = 0.0; * NET CAP GN/LOSS SCH D, 60% of cap gain excluded 1976-1986; CGDS = E32; IF CGDS = . THEN CGDS = 0.0; * CAP GN DISTRIB (Form 1040); CGOTH = E33; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss (Form 4797); PENSION = E34; IF PENSION = . THEN PENSION = 0; * Total pensions and annuities received(Form) ; UNEM = E44; IF UNEM = . THEN UNEM = 0.0; TUNEM=E43; * Unemp compensation in AGI, E43 Unempl Gross; SSAGIX = E46; IF SSAGIX = . THEN SSAGIX = 0.0; TSSA=E45; * E46 SS benefits in AGI, E45 SS benefits gross; STATADJ = E50; IF STATADJ = . THEN STATADJ = 0.0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); BUSN = E30; IF BUSN = . THEN BUSN = 0.0; * BUSINESS/PROF NET PROFIT/LOSS; PARTSCP = E290; IF PARTSCP = . THEN PARTSCP = 0; FARM = E42; IF FARM = . THEN FARM = 0.0; RENTS = E278+E279+E289; RENT = E278+E279; IF RENTS = . THEN RENTS = 0.0; TRUST = E289; IF TRUST = . THEN TRUST = 0.0; STXRF = E28; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; OTHR=e47; ST=PSTATE; if (st='FA')or(st='GU')or(st='MP')or(st='AS')or(st='VI')or(st='PR')or(st='AP') then STATE=54; * pstate did nothing and state does not exist; STATE=AC75; FOREX=E373; PENSNT = E34-E40; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E38; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); MISDED=E225; GAMBLS = 0; if (MISDED<(OTHR+300*&&cpi&yr/&cpi1991))and(MISDED>(OTHR-10)) THEN GAMBLS=MISDED; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=0; IF NOLS = . THEN NOLS = 0; *net operating loss from previous years, positive; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; TOTDIV = e25; * total dividends; SETX = e115; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = e113; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = e204; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e205; * state/local income taxes deducted; PRPD = e206; * real estate tax deduction; DED = e190; * total itemized deductions; SSTX = e207; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; itemize = e190; if (itemize=0)or(itemize=.) then itemize = e400; * if no itemize then use add AMT deductions; FTC = e92; if (e428>FTC) then FTC=e428; * foreign tax credit, greater of normal or AMT credit; SCP = E282 - E283;* S corp income less loss; IRA = E53 + E55; * IRA and KEOGH adjustments; EMPEX = E52; MID = E214; DEPINC=0; if (AC16=1) then DEPINC=1; * depinc, unearned income by dependent, 0 if blank, 1 if selected, 2 if no box on form; ALIMRC = E29; * alimony received; ALIMPD = E57; * alimony paid; IntEx = E396; * Investment interest expense (form 4952 for itemized deduction); PropDepr = E602; * proprietor depreciation deduction; REFCR = E131; recid2 = retid; %END; %IF (&yr eq 1986) %then %do; id = a1; * primary SSN; mars = ac46; EXEM = E2; IF EXEM = . THEN EXEM = 1; EXEM = E3+E6; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions; AGIX = E22; IF AGIX = . THEN AGIX = 0.0; WAGE = E24; IF WAGE = . THEN WAGE = 0; INTEREST = E25; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = E28; IF DIVID = . THEN DIVID = 0; DIVEX = E27; IF DIVEX = . THEN DIVEX = 0.0; * Excluded Dividends; CGSD = E33; IF CGSD = . THEN CGSD = 0.0; * NET CAP GN/LOSS SCH D, 60% of cap gain excluded 1976-1986; CGDS = E34; IF CGDS = . THEN CGDS = 0.0; * CAP GN DISTRIB (Form 1040); CGOTH = E35; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss (Form 4797); PENSION = E36; IF PENSION = . THEN PENSION = 0; * Total pensions and annuities received ; UNEM = E47; IF UNEM = . THEN UNEM = 0.0; * Unemp compensation in AGI, E46 Unempl Gross; TUNEM=E46; * Gross UI; SSAGIX = E50; IF SSAGIX = . THEN SSAGIX = 0.0; TSSA=E48; * E50 SS benefits in AGI, E48 SS benefits gross; STATADJ = E55; IF STATADJ = . THEN STATADJ = 0.0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); BUSN = E31; IF BUSN = . THEN BUSN = 0.0; PARTSCP = E304; IF PARTSCP = . THEN PARTSCP = 0; FARM = E44; IF FARM = . THEN FARM = 0.0; RENTS = E303+E308-E309; RENT = E308-E309; IF RENTS = . THEN RENTS = 0.0; TRUST = E303; IF TRUST = . THEN TRUST = 0.0; STXRF = E29; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; OTHR=e51; ST=PSTATE; if (st='FA')or(st='GU')or(st='MP')or(st='AS')or(st='VI')or(st='PR')or(st='AP') then STATE=54; * pstate did nothing and state does not exist; STATE=AC74; FOREX=E382; PENSNT = E41; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E40; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); MISDED=E225; GAMBLS = 0; if (MISDED<(OTHR+300*&&cpi&yr/&cpi1991))and(MISDED>(OTHR-10)) THEN GAMBLS=MISDED; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; TOTDIV = e26; * total dividends; CGPRSCP = E245+E246+E253+E254; IF CGPRSCP = . THEN CGPRSCP = 0.0; * Net short and long-term partnership/S-Corp. gain-loss. Sch D from Schedule(s) K-1; SETX = e125; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = e123; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = e204; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e205; * state/local income taxes deducted; PRPD = e206; * real estate tax deduction; DED = e188; * total itemized deductions; SSTX = e207; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = e99; if (e448>FTC) then FTC=e448; * foreign tax credit; SCP = E296 - E297;* S corp income less loss; IRA = E58 + E60; * IRA and KEOGH adjustments; EMPEX = E57; MID = E214; ALIMRC = E30; * alimony received; ALIMPD = E62; * alimony paid; IntEx = E410; * Investment interest expense (form 4952 for itemized deduction); PropDepr = E621; * proprietor depreciation deduction; REFCR = E142; recid2 = retid; %END; %IF (&yr eq 1987) %then %do; id = a1; * primary SSN; DEPD = AC29; * Dependent Status; mars = ac66; EXEM = E2; IF EXEM = . THEN EXEM = 1; EXEM = E3+E6; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions; AGIX = E22; IF AGIX = . THEN AGIX = 0.0; WAGE = E24; IF WAGE = . THEN WAGE = 0; INTEREST = E25; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED, E26 Tax Exempt Interest; DIVID = E27; IF DIVID = . THEN DIVID = 0; * DIVIDEND INCOME; CGSD = E32; IF CGSD = . THEN CGSD = 0.0; * NET CAP GN/LOSS SCH D; CGDS = E33; IF CGDS = . THEN CGDS = 0.0; * CAP GN DISTRIB (Form 1040), E34 SUPPL SCH NET GAIN/LOSS; CGOTH = E34; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss (Form 4797); PENSION = E35; IF PENSION = . THEN PENSION = 0; * Total pensions and annuities received(Form), E36 Pensions and annuities in AGI; UNEM = E42; IF UNEM = . THEN UNEM = 0.0; * Unemp compensation in AGI; SSAGIX = E45; IF SSAGIX = . THEN SSAGIX = 0.0; TSSA=E43; * E45 SS benefits in AGI, E43 Gross SS; STATADJ = E49; IF STATADJ = . THEN STATADJ = 0.0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); BUSN = E30; IF BUSN = . THEN BUSN = 0.0; * E30 BUSINESS/PROF NET PROFIT/LOSS, E351 COMB PARTNERSHIP & S-CORP INC/LOSS; PARTSCP = E351; IF PARTSCP = . THEN PARTSCP = 0; FARM = E39; IF FARM = . THEN FARM = 0.0; RENTS = E358+E350; RENT = E358; IF RENTS = . THEN RENTS = 0.0; TRUST = E350; IF TRUST = . THEN TRUST = 0.0; STXRF = E28; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; PASNDLS=E329+E338; IF PASNDLS = . THEN PASNDLS = 0.0; * 1. non-deductible passive loss variable computed by SOI based on the 8582, E205 or E4120 for previous years. This is almost all partnerships; RENTNDLS=E357; IF RENTNDLS = . THEN RENTNDLS = 0.0; * 2. non-deductible rental pieces On Schedule E. This is for the phaseout of an allowed $50,000 of rental losses for AGI over $100K; OTHR=e46; ST=PSTATE; if (st='FA')or(st='GU')or(st='MP')or(st='AS')or(st='VI')or(st='PR')or(st='AP') then STATE=54; * pstate did nothing and state does not exist; STATE=AC107; FOREX=E48; PENSNT = E37; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E36; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); MISDED=E244; GAMBLS = 0; if (MISDED<(OTHR+960*&&cpi&yr/&cpi1991))and(MISDED>(OTHR-10)) THEN GAMBLS=MISDED; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; NTINT = e26; * non-taxable interest; CGPRSCP = E263+E264+E271+E272; IF CGPRSCP = . THEN CGPRSCP = 0.0; * Net short and long-term partnership/S-Corp. gain-loss. Sch D from Schedule(s) K-1; SETX = e122; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = e120; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = e211; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e212; * state/local income taxes deducted; PRPD = e213; * real estate tax deduction; DED = e195; * total itemized deductions; SSTX = e214; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = e96; if (e728>FTC) then FTC=e728; * foreign tax credit; SCP = -E338 + E339 - E340 - E336 + E341; * S corp passive loss/income and active loss/179exp/income; IRA = E52 + E56; * IRA and KEOGH adjustments; recid2 = input(retid, 8.); if e237=. then e237=0; if e51=. then e51=0; EMPEX = e237 + e51; * e51 is above the line amount, much smaller; MID = E222; ALIMRC = E29; * alimony received; ALIMPD = E58; * alimony paid; IntEx = E171; * Investment interest expense (form 4952 for itemized deduction); PropDepr = E696; * proprietor depreciation deduction; REFCR = E139; flpdyr = AC33; %END; %IF (&yr eq 1988) %then %do; id = a1; * primary SSN; DEPD = AC31; * Dependent Status; mars = ac68; EXEM = E2; IF EXEM = . THEN EXEM = 1; EXEM = E3+E6; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions; AGIX = E22; IF AGIX = . THEN AGIX = 0.0; WAGE = E24; IF WAGE = . THEN WAGE = 0; INTEREST = E25; IF INTEREST=. THEN INTEREST=0; * E25 INTEREST RECEIVED + E26 Tax Exempt Interest; DIVID = E27; IF DIVID = . THEN DIVID = 0; * only taxable dividend amount DIVIDEND INCOME ); CGSD = E32; IF CGSD = . THEN CGSD = 0.0; * NET CAP GN/LOSS SCH D; CGDS = E33; IF CGDS = . THEN CGDS = 0.0; * CAP GN DISTRIB (Form 1040); CGOTH = E34; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss (Form 4797); PENSION = E35+E37; IF PENSION = . THEN PENSION = 0; * Total pensions and annuities received(Form) (E38 Pensions and annuities in AGI) IRAs first broken out in 1988, included in pensions line previously; UNEM = E44; IF UNEM = . THEN UNEM = 0.0; * Unemp compensation in AGI; SSAGIX = E47; IF SSAGIX = . THEN SSAGIX = 0.0; TSSA=E45; * SS benefits in AGI; STATADJ = E51; IF STATADJ = . THEN STATADJ = 0.0;* Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); BUSN = E30; IF BUSN = . THEN BUSN = 0.0; * E30 BUSINESS/PROF NET PROFIT/LOSS, E351 COMB PARTNERSHIP & S-CORP INC/LOSS; PARTSCP = E351; IF PARTSCP = . THEN PARTSCP = 0; FARM = E41; IF FARM = . THEN FARM = 0.0; RENTS = E358+E350; RENT = E358; IF RENTS = . THEN RENTS = 0.0; TRUST = E350; IF TRUST = . THEN TRUST = 0.0; STXRF = E28; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; PASNDLS=E329+E338; IF PASNDLS = . THEN PASNDLS = 0.0; * 1. non-deductible passive loss variable computed by SOI based on the 8582, E205 or E4120 for previous years. Susie thinks this is almost all partnerhips; RENTNDLS=E357; IF RENTNDLS = . THEN RENTNDLS = 0.0; * 2. non-deductible rental pieces On Schedule E. This is for the phaseout of an allowed $50,000 of rental losses for AGI over $100K; OTHR=e48; ST=PSTATE; if (st='FA')or(st='GU')or(st='MP')or(st='AS')or(st='VI')or(st='PR')or(st='AP') then STATE=54; * pstate did nothing and state does not exist; STATE=AC119; FOREX=E50; PENSNT = (E35-E36)+E39; IF PENSNT = . THEN PENSNT = 0; * Nontaxable IRAs and nontaxable pensions and annuities (not in AGI); TXPENS = E38; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); MISDED=E244; GAMBLS = 0; if (MISDED<(OTHR+960*&&cpi&yr/&cpi1991))and(MISDED>(OTHR-10)) THEN GAMBLS=MISDED; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; NTINT = e26; * non-taxable interest; CGPRSCP = E263+E264+E271+E272; IF CGPRSCP = . THEN CGPRSCP = 0.0; *Net short and long-term partnership/S-Corp. gain-loss. Sch D from Schedule(s) K-1; SETX = e122; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = e120; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = e211; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e212; * state/local income taxes deducted; PRPD = e213; * real estate tax deduction; DED = e195; * total itemized deductions; FTC = e524; if (e684>FTC) then FTC=e684; * foreign tax credit; SCP = -E338 + E339 - E340 - E336 + E341; * S corp passive loss/income and active loss/179exp/income; IRA = E54 + E58; * IRA and KEOGH adjustments; recid2 = input(retid, 8.); if e237=. then e237=0; if e53=. then e53=0; EMPEX = e237 + e53; * e53 is above the line amount, much smaller; MID = e222; ALIMRC = E29; * alimony received; ALIMPD = E60; * alimony paid; IntEx = E171; * Investment interest expense (form 4952 for itemized deduction); PropDepr = E650; * proprietor depreciation deduction; REFCR = E139; flpdyr = AC43; %END; %IF (&yr eq 1989) %then %do; id = a1; * primary SSN; DEPD = AC29; * Dependent Status; mars = ac70; EXEM = E2; IF EXEM = . THEN EXEM = 1; EXEM = E3+E6; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions; AGIX = E22; IF AGIX = . THEN AGIX = 0.0; WAGE = E24; IF WAGE = . THEN WAGE = 0; INTEREST = E25; IF INTEREST =. THEN INTEREST =0; DIVID = E27; IF DIVID = . THEN DIVID = 0; * only taxable dividend amount DIVIDEND INCOME (E246 Sch B divid); CGSD = E32; IF CGSD = . THEN CGSD = 0.0; * NET CAP GN/LOSS SCH D; CGDS = E33; IF CGDS = . THEN CGDS = 0.0; * CAP GN DISTRIB (Form 1040), E34 SUPPL SCH NET GAIN/LOSS; CGOTH = E34; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss (Form 4797); PENSION = E35+E37; IF PENSION = . THEN PENSION = 0; * Total pensions and annuities received, E38 PENSIONS/ANNUIT-TXBL(IN AGI); UNEM = E43; IF UNEM = . THEN UNEM = 0.0; * Unemp compensation; SSAGIX = E45; IF SSAGIX = . THEN SSAGIX = 0.0; TSSA=E44; * 5 SS benefits in AGI; STATADJ = E51; IF STATADJ = . THEN STATADJ = 0.0; * Total statutory adjustments; BUSN = E30; IF BUSN = . THEN BUSN = 0.0; * BUSINESS/PROF NET PROFIT/LOSS; PARTSCP = E349; IF PARTSCP = . THEN PARTSCP = 0; FARM = E41; IF FARM = . THEN FARM = 0.0; RENTS = E356+E348; RENT = E356; IF RENTS = . THEN RENTS = 0.0; TRUST = E348; IF TRUST = . THEN TRUST = 0.0; STXRF = E28; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; PASNDLS=E329+E336; IF PASNDLS = . THEN PASNDLS = 0.0; * 1. non-deductible passive loss variable computed by SOI based on the 8582, E205 or E4120 for previous years. Susie thinks this is almost all partnerhips; RENTNDLS=E355; IF RENTNDLS = . THEN RENTNDLS = 0.0; * 2. non-deductible rental pieces On Schedule E, E348 or E2740 for previous years. This is for the phaseout of an allowed $50,000 of rental losses for AGI over $100K; OTHR=e46; ST=PSTATE; if (st='FA')or(st='GU')or(st='MP')or(st='AS')or(st='VI')or(st='PR')or(st='AP') then STATE=54; * pstate did nothing and state does not exist; STATE=AC119; FOREX=E49; PENSNT = (E35-E36)+E39; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E38; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); MISDED=E245; GAMBLS = 0; if (MISDED<(OTHR+960*&&cpi&yr/&cpi1991))and(MISDED>(OTHR-10)) THEN GAMBLS=MISDED; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=E50; IF NOLS = . THEN NOLS = 0; *net operating loss from previous years, positive; * IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that all negative other income are NOLs; NTINT = e26; * non-taxable interest; CGPRSCP = E263+E264+E271+E272; IF CGPRSCP = . THEN CGPRSCP = 0.0; * Net short and long-term partnership/S-Corp. gain-loss. Sch D from Schedule(s) K-1; SETX = e119; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = e117; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = e211; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e212; * state/local income taxes deducted; PRPD = e213; * real estate tax deduction; DED = e195; * total itemized deductions; FTC = e98; if (e560>FTC) then FTC=e560; if (e731>FTC) then FTC=e731; * foreign tax credit; SCP = -E336 + E337 - E338 - E334 + E339; * S corp passive loss/income and active loss/179exp/income; IRA = E54 + E58; * IRA and KEOGH adjustments; recid2 = input(retid, 8.); if e237=. then e237=0; if e53=. then e53=0; EMPEX = e237 + e53; * e53 is above the line amount, much smaller; MID = e222; ALIMRC = E29; * alimony received; ALIMPD = E60; * alimony paid; IntEx = E175; * Investment interest expense (form 4952 for itemized deduction); PropDepr = E696; * proprietor depreciation deduction; REFCR = E135; %END; %IF (&yr eq 1990) %then %do; id = a1; * primary SSN; DEPD = AC28; * Dependent Status; mars = ac76; EXEM = E2; IF EXEM = . THEN EXEM = 1; EXEM = E3+E6; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions; AGIX = E24; IF AGIX = . THEN AGIX = 0.0; WAGE = E27; IF WAGE = . THEN WAGE = 0; INTEREST = E30; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED (E244 Sch B interest); DIVID = E34; IF DIVID = . THEN DIVID = 0; BUSN = E39; IF BUSN = . THEN BUSN = 0.0; PARTSCP = E337; IF PARTSCP = . THEN PARTSCP = 0; CGSD = E41; IF CGSD = . THEN CGSD = 0.0; * NET CAP GN/LOSS SCH D; CGDS = E43; IF CGDS = . THEN CGDS = 0.0; * CAP GN DISTRIB (Form 1040); CGOTH = E45; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss (Form 4797); PENSION = E47+E50; IF PENSION = . THEN PENSION = 0; * Total Pension/Annuity; FARM = E55; IF FARM = . THEN FARM = 0.0; * FARM NET PROFIT OR LOSS; UNEM = E58; IF UNEM = . THEN UNEM = 0.0; * Unemp compensation in AGI; SSAGIX = E62; IF SSAGIX = . THEN SSAGIX = 0.0; TSSA=E60; * SS BEN:IN AGI TAXABLE SS; STATADJ = E69; IF STATADJ = . THEN STATADJ = 0.0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); RENTS = E354+E346; RENT = E354; IF RENTS = . THEN RENTS = 0.0; TRUST = E346; IF TRUST = . THEN TRUST = 0.0; STXRF = E36; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; PASNDLS=E322+E329; IF PASNDLS = . THEN PASNDLS = 0.0; * 1. non-deductible passive loss variable computed by SOI based on the 8582, E205 or E4120 for previous years. Susie thinks this is almost all partnerhips; RENTNDLS=E314; IF RENTNDLS = . THEN RENTNDLS = 0.0; * 2. non-deductible rental pieces On Schedule E, E348 or E2740 for previous years. This is for the phaseout of an allowed $50,000 of rental losses for AGI over $100K; OTHR=e64; ST=PSTATE; if (st='FA')or(st='GU')or(st='MP')or(st='AS')or(st='VI')or(st='PR')or(st='AP') then STATE=54; * pstate did nothing and state does not exist; STATE=AC124; FOREX=E67; PENSNT = (E47-E48)+E52; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E51; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); MISDED=E236; GAMBLS = 0; if (MISDED<(OTHR+960*&&cpi&yr/&cpi1991))and(MISDED>(OTHR-10)) THEN GAMBLS=MISDED; * No explicit gambling losses, but included in total misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=E63; IF NOLS = . THEN NOLS = 0; *net operating loss from previous years, positive; *IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable after 1989, so assume that all negative other income are NOLs; NTINT = e32; * non-taxable interest; CGPRSCP = E246+E247+E261+E262; IF CGPRSCP = . THEN CGPRSCP = 0.0; * Net short and long-term partnership/S-Corp. gain-loss. Sch D from Schedule(s) K-1; SETX = e139; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = e137; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = e191; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e193; * state/local income taxes deducted; PRPD = e194; * real estate tax deduction; DED = e88; * total itemized deductions; itemize = e89; FTC = e121; if (e634>FTC) then FTC=e634; * foreign tax credit; SCP = -E329 + E330 - E331 - E327 + E332; * S corp passive loss/income and active loss/179exp/income; IRA = E72 + E77; * IRA and KEOGH adjustments; EMPEX = E225; * deducted amount, E433 is from form 2106 total employee business expenses; MID = E205; ALIMRC = E37; * alimony received; ALIMPD = E79; * alimony paid; recid2 = input(retid, 8.); * convert from char to numeric; IntEx = E564; * Investment interest expense (form 4952 for itemized deduction); PropDepr = E558; * proprietor depreciation deduction; REFCR = E158; %END; %IF (&yr eq 1991) %then %do; id = a8; * primary SSN; mars = ac70; DEPD = AC24; * Dependent Status; EXEM = E2; IF EXEM = . THEN EXEM = 1; EXEM = E3+E6; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions; AGIX = E24; IF AGIX = . THEN AGIX = 0.0; WAGE = E27; IF WAGE = . THEN WAGE = 0; INTEREST = E30; IF INTEREST = . THEN INTEREST = 0; DIVID = E34; IF DIVID = . THEN DIVID = 0; BUSN = E39; IF BUSN = . THEN BUSN = 0.0; PARTSCP = E307; IF PARTSCP = . THEN PARTSCP = 0; CGSD = E41; IF CGSD = . THEN CGSD = 0.0; * NET CAP GN/LOSS SCH D; CGDS = E43; IF CGDS = . THEN CGDS = 0.0; * CAP GN DISTRIB (Form 1040); CGOTH = E45; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss (Form 4797); PENSION = E47+E50; IF PENSION = . THEN PENSION = 0; * Total pensions and annuities received(Form) (E53 Pensions and annuities in AGI); FARM = E55; IF FARM = . THEN FARM = 0.0; * FARM NET PROFIT OR LOSS; UNEM = E58; IF UNEM = . THEN UNEM = 0.0; * Unemp compensation in AGI; SSAGIX = E62; IF SSAGIX = . THEN SSAGIX = 0.0; TSSA=E60; * SS benefits in AGI, E60 Gross SS; STATADJ = E69; IF STATADJ = . THEN STATADJ = 0.0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); RENTS = E326+E316; RENT = E326; IF RENTS = . THEN RENTS = 0.0; TRUST = E316; IF TRUST = . THEN TRUST = 0.0; STXRF = E36; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; PASNDLS=E293+E299; IF PASNDLS = . THEN PASNDLS = 0.0; * 1. non-deductible passive loss variable computed by SOI based on the 8582, E205 or E4120 for previous years. Susie thinks this is almost all partnerhips; RENTNDLS=E284; IF RENTNDLS = . THEN RENTNDLS = 0.0; * 2. non-deductible rental pieces On Schedule E, E348 or E2740 for previous years. This is for the phaseout of an allowed $50,000 of rental losses for AGI over $100K; OTHR=e65; ST=PSTATE; if (st='FA')or(st='GU')or(st='MP')or(st='AS')or(st='VI')or(st='PR')or(st='AP') then STATE=54; * pstate did nothing and state does not exist; STATE=AC129; FOREX=E68; PENSNT = (E47-E48)+E52; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E51; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); GAMBLS=E208; IF GAMBLS = . THEN GAMBLS = 0; * loss deduction sch A, positive; MISDED=E213; * No explicit gambling losses, but included in total misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=E64; IF NOLS = . THEN NOLS = 0; *net operating loss from previous years, positive; NTINT = e32; * non-taxable interest; CGPRSCP = E224+E225+E237+E238; IF CGPRSCP = . THEN CGPRSCP = 0.0; SETX = e130; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = e128; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = e174; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e176; * state/local income taxes deducted; PRPD = e177; * real estate tax deduction; DED = e84; * total itemized deductions; FTC = e110; if (e646>FTC) then FTC=e646; * foreign tax credit; SCP = -E299 + E300 - E301 - E297 + E302; * S corp passive loss/income and active loss/179exp/income; IRA = E70 + E75; * IRA and KEOGH adjustments; recid2 = input(retid, 8.); * convert from char to numeric; EMPEX = E202; MID = E185; ALIMRC = E37; * alimony received; ALIMPD = E77; * alimony paid; IntEx = E550; * Investment interest expense (form 4952 for itemized deduction); PropDepr = E530; * proprietor depreciation deduction; REFCR = E148; %END; %IF (&yr eq 1992) %then %do; id = a8; * primary SSN; mars = ac79; DEPD = AC30; * Dependent Status; EXEM = E2; IF EXEM = . THEN EXEM = 1; EXEM = E3+E6; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions; AGIX = E24; IF AGIX = . THEN AGIX = 0.0; WAGE = E28; IF WAGE = . THEN WAGE = 0; INTEREST = E30; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED ; DIVID = E34; IF DIVID = . THEN DIVID = 0; * only taxable dividend amount DIVIDEND INCOME; BUSN = E39; IF BUSN = . THEN BUSN = 0.0; PARTSCP = E308; IF PARTSCP = . THEN PARTSCP = 0; CGSD = E41; IF CGSD = . THEN CGSD = 0.0; * NET CAP GN/LOSS SCH D; CGDS = E43; IF CGDS = . THEN CGDS = 0.0; * CAP GN DISTRIB (Form 1040); CGOTH = E45; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss (Form 4797); PENSION = E47+E50; IF PENSION = . THEN PENSION = 0; FARM = E55; IF FARM = . THEN FARM = 0.0; UNEM = E58; IF UNEM = . THEN UNEM = 0.0; * Unemp compensation in AGI; SSAGIX = E62; IF SSAGIX = . THEN SSAGIX = 0.0; TSSA=E60; * E62 SS benefits in AGI, E60-SS BEN:GROSS SS INCOME; STATADJ = E69; IF STATADJ = . THEN STATADJ = 0.0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); RENTS = E327+E317; IF RENTS = . THEN RENTS = 0.0; TRUST = E317; IF TRUST = . THEN TRUST = 0.0; STXRF = E36; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; PASNDLS=E294+E300; IF PASNDLS = . THEN PASNDLS = 0.0; * 1. non-deductible passive loss variable computed by SOI based on the 8582, E205 or E4120 for previous years. Susie thinks this is almost all partnerhips; RENTNDLS=E285; IF RENTNDLS = . THEN RENTNDLS = 0.0; * 2. non-deductible rental pieces On Schedule E, E348 or E2740 for previous years. This is for the phaseout of an allowed $50,000 of rental losses for AGI over $100K; OTHR=e65; ST=PSTATE; if (st='FA')or(st='GU')or(st='MP')or(st='AS')or(st='VI')or(st='PR')or(st='AP') then STATE=54; * pstate did nothing and state does not exist; STATE=AC137; FOREX=E68; PENSNT = (E47-E48)+E52; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E51; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); GAMBLS=E204; IF GAMBLS = . THEN GAMBLS = 0; * loss deduction sch A, positive; NOLS=E64; IF NOLS = . THEN NOLS = 0; *net operating loss from previous years, positive; NTINT = e32; * non-taxable interest; CGPRSCP = E221+E224+E238+E239; IF CGPRSCP = . THEN CGPRSCP = 0.0; * Net short and long-term partnership/S-Corp. gain-loss. Sch D from Schedule(s) K-1; SETX = e124; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = e122; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = e168; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e170; * state/local income taxes deducted; PRPD = e171; * real estate tax deduction; DED = e84; * total itemized deductions; FTC = e108; if (e710>FTC) then FTC=e710; * foreign tax credit; SCP = -E300 + E301 - E302 - E298 + E303; * S corp passive loss/income and active loss/179exp/income; IRA = E70 + E75; * IRA and KEOGH adjustments; recid2 = retid; EMPEX = E197; MID = E179; ALIMRC = E37; * alimony received; ALIMPD = E77; * alimony paid; IntEx = E587; * Investment interest expense (form 4952 for itemized deduction); PropDepr = E555; * proprietor depreciation deduction; REFCR = E142; %END; %IF (&yr eq 1993) %then %do; id = a8; * primary SSN; mars = ac82; DEPD = AC31; * Dependent Status; EXEM = E2; IF EXEM = . THEN EXEM = 1; EXEM = E3+E6; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions; AGIX = E24; IF AGIX = . THEN AGIX = 0.0; WAGE = E28; IF WAGE = . THEN WAGE = 0; INTEREST = E31; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED (E244 Sch B interest), E33 Tax-exempt interest; DIVID = E36; IF DIVID = . THEN DIVID = 0; * DIVIDEND INCOME (E246 Sch B divid); BUSN = E41; IF BUSN = . THEN BUSN = 0.0; PARTSCP = E306; IF PARTSCP = . THEN PARTSCP = 0; CGSD = E43; IF CGSD = . THEN CGSD = 0.0; * NET CAP GN/LOSS SCH D; CGDS = E45; IF CGDS = . THEN CGDS = 0.0; * CAP GN DISTRIB (Form 1040); CGOTH = E47; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss (Form 4797); PENSION = E49+E52; IF PENSION = . THEN PENSION = 0; SCHE = E55; IF SCHE = . THEN SCHE = 0.0; * SCH E PROFIT/LOSS; FARM = E57; IF FARM = . THEN FARM = 0.0; UNEM = E59; IF UNEM = . THEN UNEM = 0.0; * Unemp compensation in AGI; SSAGIX = E65; IF SSAGIX = . THEN SSAGIX = 0.0; TSSA=E62; STATADJ = E72; IF STATADJ = . THEN STATADJ = 0.0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); RENTS = E325+E315; IF RENTS = . THEN RENTS = 0.0; TRUST = E315; IF TRUST = . THEN TRUST = 0.0; STXRF = E38; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; PASNDLS=E293+E294;*E167; IF PASNDLS = . THEN PASNDLS = 0.0; * 1. non-deductible passive loss variable computed by SOI based on the 8582, E205 or E4120 for previous years. Susie thinks this is almost all partnerhips; RENTNDLS=E282; IF RENTNDLS = . THEN RENTNDLS = 0.0; * 2. non-deductible rental pieces On Schedule E, E348 or E2740 for previous years. This is for the phaseout of an allowed $50,000 of rental losses for AGI over $100K; OTHR=e68; ST=PSTATE; if (st='FA')or(st='GU')or(st='MP')or(st='AS')or(st='VI')or(st='PR')or(st='AP') then STATE=54; * pstate did nothing and state does not exist; STATE=AC138; FOREX=E71; PENSNT = (E49-E50)+E54; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E53; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); GAMBLS=E208; IF GAMBLS = . THEN GAMBLS = 0; * loss deduction sch A, positive; NOLS=E67; IF NOLS = . THEN NOLS = 0; *net operating loss from previous years, positive; NTINT = e33; * non-taxable interest; CGPRSCP = E226+E227+E238+E239; IF CGPRSCP = . THEN CGPRSCP = 0.0; * Net short and long-term partnership/S-Corp. gain-loss. Sch D from Schedule(s) K-1; SETX = e128; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = e126; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = e174; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e176; * state/local income taxes deducted; PRPD = e177; * real estate tax deduction; DED = e212; * total itemized deductions before limit; FTC = e112; if (e705>FTC) then FTC=e705; * foreign tax credit; SCP = -E298 + E299 - E300 - E296 + E301; * S corp passive loss/income and active loss/179exp/income; IRA = E73 + E78; * IRA and KEOGH adjustments; recid2 = retid; EMPEX = E200; MID = E182; ALIMRC = E39; * alimony received; ALIMPD = E80; * alimony paid; IntEx = E594; * Investment interest expense (form 4952 for itemized deduction); PropDepr = E560; * proprietor depreciation deduction; REFCR = E146; %END; %IF (&yr eq 1994) %then %do; id = a8; * primary SSN; mars = ac96; DEPD = AC33; * Dependent Status; EXEM = E2; IF EXEM = . THEN EXEM = 1; EXEM = E3+E6; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions; AGIX = E24; IF AGIX = . THEN AGIX = 0.0; WAGE = E28; IF WAGE = . THEN WAGE = 0; INTEREST = E31; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED ; DIVID = E36; IF DIVID = . THEN DIVID = 0; * DIVIDEND INCOME ; BUSN = E41; IF BUSN = . THEN BUSN = 0.0; PARTSCP = E307; IF PARTSCP = . THEN PARTSCP = 0; CGSD = E43; IF CGSD = . THEN CGSD = 0.0; * NET CAP GN/LOSS SCH D; CGDS = E45; IF CGDS = . THEN CGDS = 0.0; * CAP GN DISTRIB (Form 1040); CGOTH = E47; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss (Form 4797); PENSION = E49+E52; IF PENSION = . THEN PENSION = 0; * Gross pensions and annuities, E53 Pensions and annuities in AGI, E54=PEN/ANNUIT-NONTXBL(NOT IN AGI; SCHE = E55; IF SCHE = . THEN SCHE = 0.0; * SCH E PROFIT/LOSS; FARM = E57; IF FARM = . THEN FARM = 0.0; UNEM = E59; IF UNEM = . THEN UNEM = 0.0; * Unemp compensation in AGI; SSAGIX = E65; IF SSAGIX = . THEN SSAGIX = 0.0; TSSA=E62; * SS benefits in AGI, E62 Gross SS Benefit; STATADJ = E72; IF STATADJ = . THEN STATADJ = 0.0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); RENTS = E326+E316; IF RENTS = . THEN RENTS = 0.0; TRUST = E316; IF TRUST = . THEN TRUST = 0.0; STXRF = E38; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; PASNDLS=E293+E299; IF PASNDLS = . THEN PASNDLS = 0.0; * 1. non-deductible passive loss variable computed by SOI based on the 8582, E205 or E4120 for previous years. Susie thinks this is almost all partnerhips; RENTNDLS=E284; IF RENTNDLS = . THEN RENTNDLS = 0.0; * 2. non-deductible rental pieces On Schedule E, E348 or E2740 for previous years. This is for the phaseout of an allowed $50,000 of rental losses for AGI over $100K; OTHR=e68; ST=PSTATE; if (st='FA')or(st='GU')or(st='MP')or(st='AS')or(st='VI')or(st='PR')or(st='AP') then STATE=54; * pstate did nothing and state does not exist; STATE=AC155; FOREX=E71; PENSNT = (E49-E50)+E54; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E53; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); GAMBLS=E210; IF GAMBLS = . THEN GAMBLS = 0; * loss deduction sch A, positive; NOLS=E67; IF NOLS = . THEN NOLS = 0; *net operating loss from previous years, positive; NTINT = e33; * non-taxable interest; CGPRSCP = E228+E229+E240+E241; IF CGPRSCP = . THEN CGPRSCP = 0.0; * Net short and long-term partnership/S-Corp. gain-loss. Sch D from Schedule(s) K-1; SETX = e130; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = e128; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = e176; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e178; * state/local income taxes deducted; PRPD = e179; * real estate tax deduction; DED = e217; * total itemized deductions before limit; FTC = e113; if (e708>FTC) then FTC=e708; * foreign tax credit; SCP = -E299 + E300 - E301 - E297 + E302; * S corp passive loss/income and active loss/179exp/income; IRA = E73 + E79; * IRA and KEOGH adjustments; recid2 = retid; EMPEX = E202; MID = E184; ALIMRC = E39; * alimony received; ALIMPD = E81; * alimony paid; IntEx = E593; * Investment interest expense (form 4952 for itemized deduction); PropDepr = E559; * proprietor depreciation deduction; REFCR = E147; %END; %IF (&yr eq 1995) %then %do; id = a8; * primary SSN; mars = ac98; DEPD = AC31; * Dependent Status; EXEM = E2; IF EXEM = . THEN EXEM = 1; EXEM = E3+E6; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions; AGIX = E26; IF AGIX = . THEN AGIX = 0.0; WAGE = E30; IF WAGE = . THEN WAGE = 0; INTEREST = E33; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED (E244 Sch B interest); DIVID = E38; IF DIVID = . THEN DIVID = 0; * DIVIDEND INCOME (E246 Sch B divid); BUSN = E43; IF BUSN = . THEN BUSN = 0.0; * E46 BUSINESS/PROF NET PROFIT/LOSS (E60 sch E net income loss) (E314 Combined total income, Partnership & S Corp) + E60 + E345; PARTSCP = E309; IF PARTSCP = . THEN PARTSCP = 0; CGSD = E45; IF CGSD = . THEN CGSD = 0.0; * NET CAP GN/LOSS SCH D; CGDS = E47; IF CGDS = . THEN CGDS = 0.0; * CAP GN DISTRIB (Form 1040); CGOTH = E48; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss (Form 4797); PENSION = E50+E53; IF PENSION = . THEN PENSION = 0; * Total pensions and annuities received(Form) (E54 Pensions and annuities in AGI); FARM = E58; IF FARM = . THEN FARM = 0.0; UNEM = E60; IF UNEM = . THEN UNEM = 0.0; * Unemp compensation in AGI; SSAGIX = E66; IF SSAGIX = . THEN SSAGIX = 0.0; TSSA=E63; STATADJ = E74; IF STATADJ = . THEN STATADJ = 0.0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); RENTS = E324+E318; IF RENTS = . THEN RENTS = 0.0; TRUST = E318; IF TRUST = . THEN TRUST = 0.0; STXRF = E40; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; PASNDLS=E295+E301; IF PASNDLS = . THEN PASNDLS = 0.0; * 1. non-deductible passive loss variable computed by SOI based on the 8582, E205 or E4120 for previous years. Susie thinks this is almost all partnerhips; RENTNDLS=E286; IF RENTNDLS = . THEN RENTNDLS = 0.0; * 2. non-deductible rental pieces On Schedule E, E348 or E2740 for previous years. This is for the phaseout of an allowed $50,000 of rental losses for AGI over $100K; OTHR=e69; ST=PSTATE; if (st='FA')or(st='GU')or(st='MP')or(st='AS')or(st='VI')or(st='PR')or(st='AP') then STATE=54; * pstate did nothing and state does not exist; STATE=AC159; FOREX=E72; PENSNT = (E50-E51)+E55; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E54; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); GAMBLS=E212; IF GAMBLS = . THEN GAMBLS = 0; * loss deduction sch A, positive; NOLS=E68; IF NOLS = . THEN NOLS = 0; *net operating loss from previous years, positive; NTINT = e35; * non-taxable interest; CGPRSCP = E230+E231+E242+E243; IF CGPRSCP = . THEN CGPRSCP = 0.0; *Net short and long-term partnership/S-Corp. gain-loss. Sch D from Schedule(s) K-1; SETX = e131; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = e129; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = e178; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e180; * state/local income taxes deducted; PRPD = e181; * real estate tax deduction; DED = e217; * total itemized deductions before limit; FTC = e115; if (e779>FTC) then FTC=e779; * foreign tax credit; SCP = -E301 + E302 - E303 - E299 + E304; * S corp passive loss/income and active loss/179exp/income; IRA = E75 + E81; * IRA and KEOGH adjustments; recid2 = recid; EMPEX = E204; MID = E186; ALIMRC = E41; * alimony received; ALIMPD = E83; * alimony paid; IntEx = E665; * Investment interest expense (form 4952 for itemized deduction); PropDepr = E630; * proprietor depreciation deduction; REFCR = E149; %END; %IF (&yr eq 1996) %then %do; id = a8; * primary SSN; mars = ac98; DEPD = AC32; * Dependent Status; EXEM = E2; IF EXEM = . THEN EXEM = 1; EXEM = E3+E6; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions; AGIX = E26; IF AGIX = . THEN AGIX = 0.0; WAGE = E32; IF WAGE = . THEN WAGE = 0; INTEREST = E35; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED (E244 Sch B interest); DIVID = E40; IF DIVID = . THEN DIVID = 0; * DIVIDEND INCOME (E246 Sch B divid); BUSN = E45; IF BUSN = . THEN BUSN = 0.0; * E46 BUSINESS/PROF NET PROFIT/LOSS (E60 sch E net income loss) (E314 Combined total income, Partnership & S Corp) + E60 + E345; PARTSCP = E314; IF PARTSCP = . THEN PARTSCP = 0; CGSD = E47; IF CGSD = . THEN CGSD = 0.0; * NET CAP GN/LOSS SCH D; CGDS = E49; IF CGDS = . THEN CGDS = 0.0; * CAPITAL GAIN DISTRIB-F1040; CGOTH = E51; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss (Form 4797); PENSION = E53+E56; IF PENSION = . THEN PENSION = 0; * Total pensions and annuities received(Form) (E57 Pensions and annuities in AGI); FARM = E61; IF FARM = . THEN FARM = 0.0; * FARM NET PROFIT OR LOSS; UNEM = E63; IF UNEM = . THEN UNEM = 0.0; * Unemp compensation in AGI, E66=SS BEN:GROSS SS BENEFIT; SSAGIX = E69; IF SSAGIX = . THEN SSAGIX = 0.0; TSSA=E66; * SS benefits in AGI; TOTINCX = E74; STATADJ = E77; IF STATADJ = . THEN STATADJ = 0.0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); TXBINC = E98; IF TXBINC = . THEN TXBINC = 0; RENTS = E333+E323; IF RENTS = . THEN RENTS = 0.0; * E333=TOT RENTL/ROYLTY NET INC/LOSS, E323=EST/TRUST:NET INC/LOSS,; TRUST = E323; IF TRUST = . THEN TRUST = 0.0; AMT_TXBINC = E727; IF AMT_TXBINC = . THEN AMT_TXBINC = 0; * E782=AMT:ALT MIN TAXABLE INC ($122 B); STXRF = E42; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; PASNDLS=E300+E306; IF PASNDLS = . THEN PASNDLS = 0.0; * 1. non-deductible passive loss variable computed by SOI based on the 8582, E205 or E4120 for previous years. Susie thinks this is almost all partnerhips; RENTNDLS=E291; IF RENTNDLS = . THEN RENTNDLS = 0.0; * 2. non-deductible rental pieces On Schedule E, E348 or E2740 for previous years. This is for the phaseout of an allowed $50,000 of rental losses for AGI over $100K; OTHR=e72; ST=PSTATE; if (st='FA')or(st='GU')or(st='MP')or(st='AS')or(st='VI')or(st='PR')or(st='AP') then STATE=54; * pstate did nothing and state does not exist; STATE=AC162; FOREX=E75; PENSNT = (E53-E54)+E58; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E57; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); GAMBLS=E217; IF GAMBLS = . THEN GAMBLS = 0; * loss deduction sch A, positive; NOLS=E71; IF NOLS = . THEN NOLS = 0; *net operating loss from previous years, positive; NTINT = e37; * non-taxable interest; CGPRSCP = E235+E236+E247+E248; IF CGPRSCP = . THEN CGPRSCP = 0.0; * Net short and long-term partnership/S-Corp. gain-loss. Sch D from Schedule(s) K-1; SETX = e135; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = e133; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = e183; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e185; * state/local income taxes deducted; PRPD = e186; * real estate tax deduction; DED = e224; * total itemized deductions before limit; FTC = e119; if (e792>FTC) then FTC=e792; * foreign tax credit; SCP = -E306 + E307 - E308 - E304 + E309; * S corp passive loss/income and active loss/179exp/income; IRA = E78 + E84; * IRA and KEOGH adjustments; recid2 = input(retid, 8.); * convert from char to numeric; EMPEX = E210; MID = E191; ALIMRC = E43; * alimony received; ALIMPD = E86; * alimony paid; IntEx = E665; * Investment interest expense (form 4952 for itemized deduction); PropDepr = E630; * proprietor depreciation deduction; REFCR = E154; %END; %IF (&yr eq 1997) %then %do; id = a8; * primary SSN; mars = ac88; DEPD = AC24; * Dependent Status; EXEM = E2; IF EXEM = . THEN EXEM = 1; EXEM = E3+E6; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions; AGIX = E26; IF AGIX = . THEN AGIX = 0.0; WAGE = E32; IF WAGE = . THEN WAGE = 0; INTEREST = E35; IF INTEREST = . THEN INTEREST = 0; DIVID = E40; IF DIVID = . THEN DIVID = 0; BUSN = E45; IF BUSN = . THEN BUSN = 0.0; PARTSCP = E340; IF PARTSCP = . THEN PARTSCP = 0; CGSD = E47; IF CGSD = . THEN CGSD = 0.0; * NET CAP GN/LOSS SCH D; CGDS = 0; IF CGDS = . THEN CGDS = 0.0; * CAP GN DISTRIB, missing as removed 1040 line on form in 1997-98; CGOTH = E51; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss (Form 4797); PENSION = E53+E56; IF PENSION = . THEN PENSION = 0; * Total pensions and annuities received; FARM = E61; IF FARM = . THEN FARM = 0.0; UNEM = E63; IF UNEM = . THEN UNEM = 0.0; * Unemp compensation in AGI; SSAGIX = E69; IF SSAGIX = . THEN SSAGIX = 0.0; TSSA=E66; * SS benefits in AGI; STATADJ = E77; IF STATADJ = . THEN STATADJ = 0.0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); RENTS = E359+E349; IF RENTS = . THEN RENTS = 0.0; TRUST = E349; IF TRUST = . THEN TRUST = 0.0; STXRF = E42; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; PASNDLS=E325+E331; IF PASNDLS = . THEN PASNDLS = 0.0; * 1. non-deductible passive loss variable computed by SOI based on the 8582, E205 or E4120 for previous years. Susie thinks this is almost all partnerhips, though there could be some S corp and Sole prop; RENTNDLS=E316; IF RENTNDLS = . THEN RENTNDLS = 0.0; * 2. non-deductible rental pieces On Schedule E, E348 or E2740 for previous years. This is for the phaseout of an allowed $50,000 of rental losses for AGI over $100K. Some taxpayers have only this and dont ever go to the 8582 form; OTHR=e72; ST=PSTATE; if (st='FA')or(st='GU')or(st='MP')or(st='AS')or(st='VI')or(st='PR')or(st='AP') then STATE=54; * pstate did nothing and state does not exist; STATE=AD28; FOREX=E75; PENSNT = (E53-E54)+E58; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E57; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); GAMBLS=E224; IF GAMBLS = . THEN GAMBLS = 0; * loss deduction sch A, positive; NOLS=E71; IF NOLS = . THEN NOLS = 0; *net operating loss from previous years, positive; NTINT = e37; * non-taxable interest; CGPRSCP = E245+E260; IF CGPRSCP = . THEN CGPRSCP = 0.0; * Net short and long-term partnership/S-Corp. gain-loss. Sch D from Schedule(s) K-1; SETX = e139; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = e137; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = e190; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e192; * state/local income taxes deducted; PRPD = e193; * real estate tax deduction; DED = e231; * total itemized deductions before limit; FTC = e122; if (e781>FTC) then FTC=e781; * foreign tax credit; SCP = -E331 + E332 - E333 - E329 + E334; * S corp passive loss/income and active loss/179exp/income; IRA = E78 + E84; * IRA and KEOGH adjustments; recid2 = S001; EMPEX = E216; *E238; MID = E198; *E220; ALIMRC = E43; * alimony received; ALIMPD = E86; * alimony paid; IntEx = E648; * Investment Interest expense (form 4952 for itemized deduction); PropDepr = E613; * proprietor depreciation deduction (1008, F:e1150/1091, C: 1103, 1126, 1162, 1185, 1221); REFCR = E160; %END; %IF (&yr eq 1999) %then %do; id = a8; * primary SSN; id2 = a9; * secondary for SSA match; mars = ac100; * marital filing status; DEPD = AC27; * Dependent Status; EXEM = E2; IF EXEM = . THEN EXEM = 1; EXEM = E3+E6; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions; AGIX = E27; IF AGIX = . THEN AGIX = 0.0; WAGE = E33; IF WAGE = . THEN WAGE = 0; INTEREST = E36; IF INTEREST = . THEN INTEREST = 0; DIVID = E41; IF DIVID = . THEN DIVID = 0; BUSN = E46; IF BUSN = . THEN BUSN = 0.0; PARTSCP = E350; IF PARTSCP = . THEN PARTSCP = 0; CGSD = E49; IF CGSD = . THEN CGSD = 0.0; * NET CAP GN/LOSS SCH D; CGDS = E51; IF CGDS = . THEN CGDS = 0.0; * CAP GN DISTRIB (Form 1040), line missing in 1997-98 so zero those years; CGOTH = E52; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss (Form 4797); PENSION = E54+E57; IF PENSION = . THEN PENSION = 0; * Total pensions and annuities received(Form); FARM = E63; IF FARM = . THEN FARM = 0.0; UNEM = E66; IF UNEM = . THEN UNEM = 0.0; * Unemp compensation in AGI; SSAGIX = E72; IF SSAGIX = . THEN SSAGIX = 0.0; TSSA=E69; * SS benefits in AGI, E69 Gross SS; STATADJ = E81; IF STATADJ = . THEN STATADJ = 0.0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); RENTS = E365+E359; IF RENTS = . THEN RENTS = 0.0; * Total rental and royalty net income or loss; TRUST = E359; IF TRUST = . THEN TRUST = 0.0; STXRF = E43; IF STXRF = . THEN STXRF = 0; * State income tax refunds; PASNDLS=E335+E341; IF PASNDLS = . THEN PASNDLS = 0; * 1. non-deductible passive loss variable computed by SOI based on the 8582, E205 or E4120 for previous years. Susie thinks this is almost all partnerhips, though there could be some S corp and Sole prop; RENTNDLS=E327; IF RENTNDLS = . THEN RENTNDLS = 0; * 2. non-deductible rental pieces On Schedule E, E348 or E2740 for previous years. This is for the phaseout of an allowed $50,000 of rental losses for AGI over $100K. Some taxpayers have only this and dont ever go to the 8582 form; OTHR=e76; STATE=AD28; FOREX=E79; PENSNT = (E54-E55)+E59; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E58; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); GAMBLS=E235; IF GAMBLS = . THEN GAMBLS = 0; * loss deduction sch A, positive; NOLS=E75; IF NOLS = . THEN NOLS = 0; *net operating loss from previous years, positive; NTINT = e38; * non-taxable interest; CGPRSCP = E257+E275; IF CGPRSCP = . THEN CGPRSCP = 0.0; * Net short and long-term partnership/S-Corp. gain-loss. Sch D from Schedule(s) K-1; TAX = e153; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; SETX = e155; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; STXD = e207; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = e208; * state/local income taxes deducted; IF SITX = . THEN SITX = 0; PRPD = e209; * real estate tax deduction; DED = e243; * total itemized deductions before limit (e98 after limit); FTC = e136; if (e897>FTC) then FTC=e897; * foreign tax credit; SCP = -E341 + E342 - E343 - E339 + E344; * S corp passive loss/income and active loss/179exp/income; IRA = E82 + E87; * IRA and KEOGH adjustments; recid2 = S001; EMPEX = E230; MID = E214; ALIMRC = E44; * alimony received; ALIMPD = E89; * alimony paid; IntEx = E759; * Investment Interest expense (form 4952 for itemized deduction); PropDepr = E724; * proprietor depreciation deduction; REFCR = E175 + E178; * EIC + ref. CTC (ACTC); %END; %IF ((%eval(&yr) eq 1998) or (%eval(&yr) ge 2000)) %then %do; id = S002; *ppanid; flpdyr = flpdyr; * mars= mars; DEPD = DSI; * Dependent Status; IF N3 = . THEN N3 = 0; IF N6 = . THEN N6 = 0; EXEM = N3+N6; * Taxpayer+Dependents Exemptions; if (&yr >= 2018) then do; EXEM = 1; IF MARS=2 THEN EXEM = 2; %do ct = 25 %to 34; if (S0&ct > 0) then EXEM = EXEM+1; %end; end; AGIX = E00100; IF AGIX = . THEN AGIX = 0.0; WAGE = E00200; IF WAGE = . THEN WAGE = 0; INTEREST = E00300; IF INTEREST = . THEN INTEREST = 0; DIVID = E00600; IF DIVID = . THEN DIVID = 0; * DIVIDEND INCOME (sch B); DIVEX = 0; BUSN = E00900; IF BUSN = . THEN BUSN = 0; PARTSCP = E26270; IF PARTSCP = . THEN PARTSCP = 0; CGSD = E01000; IF CGSD = . THEN CGSD = 0; * NET CAP GN/LOSS SCH D; CGDS = E01100; IF CGDS = . THEN CGDS = 0; * CAP GN DISTRIB (1040); CGOTH = E01200; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss (Form 4797); PENSTX = E01400+E01700; IF PENSTX = . THEN PENSTX = 0; * Total taxable IRA distributions, pensions and annuities (that is, in AGI), E01700=Pensions and annuities in AGI); PENSION = E01300+E01500; IF PENSION = . THEN PENSION = 0; * Total pensions and annuities received(Form); PENSNT = (E01300-E01400)+E01800; IF PENSNT = . THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E01700; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities; FARM = E02100; IF FARM = . THEN FARM = 0; UNEM = E02300; IF UNEM = . THEN UNEM = 0; * Unemp compensation in AGI; SSAGIX = E02500; IF SSAGIX = . THEN SSAGIX = 0; * SS benefits in AGI; TSSA = E02400; TOTINCX = E02650; IF TOTINCX = . THEN TOTINCX = 0; STATADJ = E02900; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); RENTS = E27310+E26500; IF RENTS = . THEN RENTS = 0.0; * Total rental and royalty net income or loss + Estate and Trust net income or loss; TRUST = E26500; IF TRUST = . THEN TRUST = 0; RENT = E25700; IF RENT = . THEN RENT = 0; * (net rent income, sch SE); ROYAL = E25800; IF ROYAL = . THEN ROYAL = 0; * (net royalty income, sch SE); STXRF = E00700; IF STXRF = . THEN STXRF = 0; * State income tax refunds; PASNDLS=E15030; IF PASNDLS = . THEN PASNDLS = 0; * 1. non-deductible passive loss variable computed by SOI based on the 8582, E205 or E4120 for previous years. Susie thinks this is almost all partnerhips, though there could be some S corp and Sole prop; RENTNDLS=MAX(0,E25830,E65400-E67000); IF RENTNDLS = . THEN RENTNDLS = 0; * 2 and 3. non-deductible rental pieces on Schedule E. This is for the phaseout of an allowed $50,000 of rental losses for AGI over $100K. Some taxpayers have only this and dont ever go to the 8582 form; OTHR=e02600; IF OTHR = . THEN OTHR = 0; STATE=STATE; FOREX=E02700; GAMBLS=E20900; IF GAMBLS = . THEN GAMBLS = 0; * loss deduction sch A, positive; NOLS=E02540; IF NOLS = . THEN NOLS = 0; *net operating loss from previous years, positive; NTINT = e00400; * non-taxable interest; RECID2 = REC_ID; if (&yr<=2000) then RECID2 = S001; CGPRSCP = E21775+E22365; IF CGPRSCP = . THEN CGPRSCP = 0; * Net short and long-term partnership/S-Corp. gain-loss. Sch D from Schedule(s) K-1; CGPRSCP_LT = E22365; IF CGPRSCP_LT = . THEN CGPRSCP_LT = 0; * Net long-term partnership/S-Corp. gain-loss. Sch D from Schedule(s) K-1; TAX = e09200; * line 60, form is E09200 (SOI value with ref tax deductions is e10300) | Total tax liability (form); IF TAX = . THEN TAX = 0; SETX = e09400; * line 56, self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; SITX = e18400; * state/local income taxes; IF SITX = . THEN SITX = 0; SSTX = e18450; * state sales taxes; IF SSTX = . THEN SSTX = 0; if (SSTX>0) then SITX=e18425; *SITX-SSTX; *IPTAX = STXD - SITX - SSTX; STXD = e18300; * state/local taxes deducted; PRPD = e18500; * real estate tax deduction; PPRP=e18800; DED = e21060; * total itemized deductions (e04470 after limits); IF DED = . THEN DED = 0; itemize = SCHA; *e04470; FTC = e07300; if (e62900>FTC) then FTC=e62900; * total foreign tax credit form 1116 ; SCP = -E26160 + E26170 - E26180 - E26100 + E26190; * S corp passive loss/income and active loss/179exp/income; IRA = E03150 + E03300; * IRA and KEOGH adjustments; ALIMRC = E00800; * alimony received in AGI; ALIMPD = E03500; * alimony paid; EMPEX = E20550; * variable name did not change in 2018, but deductions severely limited by TCJA; *2018 Var: E32040_0 Total Unreimbursed Employee Business Expenses: Total; MID = E19300; secap = E29550; if secap=. then secap=E29550_1; * SE SS tax primary; secas = E29600; if secas=. then secas=E29550_2; * SE SS tax sec ; IntEx = E58900; * Investment Interest expense (form 4952 for itemized deduction); PropExpn = E58110 + E54020; * sum of Sept 11 expensing and current year section 179 expensing; PropDepr = E58160; * proprietor depreciation deduction (includes expensing); SEfarm = E29020_0; * SE farm profit all sch C forms; SEfarma = E29020; * SE farm profit all sch C forms; REFCR = E59660 + E11070; * EIC + ref. CTC (ACTC); * NEW REFUNDABLE CREDITS; if (&yr>=2009)and(&yr<=2010) then MKWP = E10950; * 1040 line 63: Making work pay and government retiree credits. Attach Schedule M (2009-2010); if (&yr>=2009) then AOTC = E10960; * AOTC: 1040 line 66: Refundable education credit from Form 8863, line 16 (2009-2011); if (&yr>=2009) then RFAO = E87666; * AOTC refundable portion estimated from part III line 14 of form 8863; if (&yr>=2009)and(&yr<=2011) then HMBY = E11580; * 1040 line 67: Form 5405 First-time homebuyer credit (2009-2011, not 2008 version because needed to be paid back); if (&yr>=2009)and(&yr<=2011) then ADCR = E11450; * 1040 line 71b: Form 8839 Refundable adoption credit (2010-2011); if (&yr>=2008) then AMCR = E11550; * 1040 line 70c/71c: Form 8801 Credit for prior year AMT (2008-); if (&yr>=2002) then HCCR = E11500; * 1040 line 70d/71d: Form 8885 Health care Tax Credit (2002-); if (&yr>=2014) then HCPC = E11560; * 1040 line 69: Net premium tax credit. Attach Form 8962 (2014-); if MKWP=. then MKWP = 0; if RFAO=. then RFAO = 0; if HMBY=. then HMBY = 0; if REFCR=. then REFCR = 0; if ADCR=. then ADCR = 0; if AMCR=. then AMCR = 0; if HCCR=. then HCCR = 0; if RERB=. then RERB = 0; if HCPC=. then HCPC = 0; REFCR = REFCR + MKWP + RFAO + HMBY + ADCR + HCCR + HCPC; * AMCR + non-refundable AOTC/HOPE/Lifetime learnings are already removed from tax burden; if (&yr=2000) then recid2 = S001; if (&yr>2000) then recid2 = rec_id; * Since 2018 new IRA+Pension variables; if (&yr>=2018) then do; PENSTX = E01750; IF PENSTX = . THEN PENSTX = 0; * Total taxable IRA distributions, pensions and annuities (that is, in AGI); PENSION = E01550; IF PENSION = . THEN PENSION = 0; * Gross IRA, Pensions and Annuities (taxable and nontaxable); PENSNT = PENSION - PENSTX; IF PENSNT = . THEN PENSNT = 0; IF PENSNT<0 THEN PENSNT = 0; * Nontaxable pensions and annuities (not in AGI); TXPENS = E01700; IF TXPENS = . THEN TXPENS = 0; * Total taxable pensions and annuities (in AGI); end; * Since 2005 remove child ITINs and secondaries from exemptions as usually Mexican or Canadian residents (due to refund. child credits),ITIN is a nine-digit number that always begins with the number 9 ; if (&yr>=2005) then do; if (S003 > 899999999) then EXEM = EXEM - 1; if (S025 > 899999999) then EXEM = EXEM - 1; if (S026 > 899999999) then EXEM = EXEM - 1; if (S027 > 899999999) then EXEM = EXEM - 1; if (S028 > 899999999) then EXEM = EXEM - 1; if (S029 > 899999999) then EXEM = EXEM - 1; if (S030 > 899999999) then EXEM = EXEM - 1; if (S031 > 899999999) then EXEM = EXEM - 1; if (S032 > 899999999) then EXEM = EXEM - 1; if (S033 > 899999999) then EXEM = EXEM - 1; if (S034 > 899999999) then EXEM = EXEM - 1; end; if (&yr=2008) then do; ESREBATE=0; TAXREB=0; if (TAX>0 or SUM(WAS,MAX(0,SEERN),SSINC) > 2999) then do; TAXREB=MAX(0,TAX + E59660); * EICX; ESREBATE = MIN(TAXREB, 600+300*N6) -.05*(MAX(0,AGIX- 75000)); if (mars=2) then ESREBATE = MIN(TAXREB,1200+300*N6) -.05*(MAX(0,AGIX-150000)); ESREBATE = MAX(0,ESREBATE); if ESREBATE = 0 & SUM(WAS,MAX(0,SEERN),TSSA) > 2999 then do; ESREBATE = 300-.05*(MAX(0,AGIX-75000)); if (mars=2) then ESREBATE = 600 -.05*(MAX(0,AGIX-150000)); ESREBATE = MAX(0,ESREBATE); end; end; end; * 2008 credit; %END; %IF (&yr eq 2007) %then %do; * Stimulus Filers in 2007 represent extra 2.5 million filers that need to drop to make year more representative ; if (STIMIND ne 0) then delete; * No 2007 stimulus only filers (stim2007); %END; IF EMPEX = . THEN EMPEX = 0; IF CGSD = . THEN CGSD = 0; IF (&yr ge 1987) then TOTDIV=DIVID; if TOTDIV=. then TOTDIV=0; CGACT=CGSD; IF (&yr ge 1979)and(&yr le 1986)and(CGSD>0) then CGACT=CGSD*2.5; IF (flpdyr ge 1979)and(flpdyr le 1986)and(CGSD>0) then CGACT=CGSD*2.5; * account for late filers; AGIXa = AGIX; IF (&yr le 1986) then AGIXa = AGIX + EMPEX; * add back employee business deductions for adjustment; IF (&yr ge 1979)and(&yr le 1986)and(CGSD>0) then AGIXa = AGIX - CGSD + CGSD*2.5 + EMPEX; * capital gains 60% exclusion and add back employee business deductions; TPI=WAGE+INTEREST+TOTDIV+PENSION+max(CGACT,0)+max(BUSN,0)+max(PARTSCP,0)+max(RENTS,0)+max(FARM,0)+max(OTHR,0); * total positive income; BUSU = PARTSCP + BUSN + FARM + RENTS; BUWT = XWGT; if BUSU = 0 then BUWT=.; WGWT = XWGT; if WAGE = 0 then WGWT=.; ct=1; keep AGIXa TPI BUSU id id2 SCP recid2 DEPD MARS AGIX DSI STATADJ SSAGIX CGSD CGDS UNEM EXEM WAGE PENSTX PENSION INTEREST DIVID BUSN FARM RENTS flpdyr XWGT STXRF PASNDLS RENTNDLS PARTSCP TRUST SCORPNET PART TSSA TUNEM ST TXPENS REFCR PropDepr PropExpn IntEx dodyr sdodyr SEfarma SEfarm ct dobyr BUWT WGWT secap secas DEPINC MID CGOTH ALIMRC ALIMPD EMPEX IRA OTHR STATE FOREX pstate BANK GAMBLS OPTAMT NOLS PENSNT STXDED TOTDIV PRPDED NTINT EXDIV CGPRSCP FTC TAX SETX SITX SSTX STXD PRPD DED ESREBATE PPRP itemize TRUST; RUN; * For 1979-1986, merge in 1987 dependent filer SSNs to identify as no variable; %IF (&yr < 1987) %then %do; data dep87; set indiv.soi1987; id=a1; DEPD=AC29; if (DEPD ne 1) then delete; keep id DEPD; run; proc sort data=dep87 out=dep87 NODUPLICATES; by id; run; proc sort data=TAB&yr out=TAB&yr NODUPLICATES; by id; run; data TAB&yr; merge TAB&yr (in=a) dep87 (in=b); by id; if a; run; %END; * Merge primary Years of birth by TIN (yob_dm1); %if (&yr<2013) %then %do; proc sort data=indiv.yoblist13 out=yoblist NODUPLICATES; by id; run; proc sort data=TAB&yr out=TAB&yr NODUPLICATES; by id; run; data TAB&yr; merge TAB&yr (in=a) yoblist (in=b); by id; if a; run; proc sort data=TAB&yr out=TAB&yr NODUPLICATES; by id; run; %end; %if (&yr>=2013) %then %do; proc sort data=indiv.yoblist16 out=yoblist NODUPLICATES; by id; run; proc sort data=TAB&yr out=TAB&yr NODUPLICATES; by id; run; data TAB&yr; merge TAB&yr (in=a) yoblist (in=b); by id; if a; run; proc sort data=TAB&yr out=TAB&yr NODUPLICATES; by id; run; %end; ******************************************************** * Merge SS benefits from Form SSA-1099: merging by recid includes both spouses and any dependents with benefits; %if (&yr = 1985)or((&yr >= 1987)and(&yr <= 1999)) %then %do; data SS; set house.ss1099x; *Variables: rec_id nossinc (0/1) SSmore (0/1) soiyr ssincd (dep) ss1099 (non-dep SS); if ss1099=. then ss1099=0; if ssincd=. then ssincd=0; sss = ss1099 + ssincd; * only if no SS on tax return or signifiacnt underreporting; recid2 = rec_id; *if (&yr=1985) then recid2 = recid2+300; * 1985 tax file ids start at 301; if soiyr ne &yr then delete; keep recid2 sss; run; proc sort data=SS out=SS NODUPLICATES; by recid2; run; data SSrecid; * sum across forms for each recid; set SS; by recid2; if First.recid2 then SS1099t=0; SS1099t + sss; if last.recid2; keep recid2 SS1099t; run; proc sort data=TAB&yr out=TAB&yr NODUPLICATES; by recid2; run; data TAB&yr; merge TAB&yr (in=a) SSrecid (in=b); by recid2; if a; run; %end; %if (&yr >= 2000)and(&yr <= 2000) %then %do; data SS; set house.ssa2000; *Variables: rec_id nossinc (0/1) SSmore (0/1) soiyr ssincd (dep) ss1099 (non-dep SS); if ssinc1099=. then ssinc1099=0; if ssincd=. then ssincd=0; sss = ssinc1099 + ssincd; * only if no SS on tax return or signifiacnt underreporting; recid2 = rec_id; *if soiyr ne &yr then delete; keep recid2 sss; run; proc sort data=SS out=SS NODUPLICATES; by recid2; run; data SSrecid; * sum across forms for each recid; set SS; by recid2; if First.recid2 then SS1099t=0; SS1099t + sss; if last.recid2; keep recid2 SS1099t; run; proc sort data=TAB&yr out=TAB&yr NODUPLICATES; by recid2; run; data TAB&yr; merge TAB&yr (in=a) SSrecid (in=b); by recid2; if a; run; %end; %if (&yr>=2001) %then %do; data SS; set IRMF&yr..f1099ssa; SS1099 = ew004; if (&yr<=2006) then SS1099=AMT1; *if recid=0 then delete; recid2 = recid; if (&yr<=2006) then recid2 = rec_id; if recid2=. then recid2 = recid; keep recid2 SS1099; run; proc sort data=SS out=SS NODUPLICATES; by recid2; run; data SSrecid; * sum across forms for each recid; set SS; by recid2; if First.recid2 then SS1099t=0; SS1099t + SS1099; if last.recid2; keep recid2 SS1099t; run; proc sort data=TAB&yr out=TAB&yr NODUPLICATES; by recid2; run; data TAB&yr; merge TAB&yr (in=a) SSrecid (in=b); by recid2; if a; run; %end; ******************************************************* * Merge DC assets to returns using Form 5498 data (data in different formats for differnt periods); %if (&yr = 1989) %then %do; data DC; set house.f5498_89; DC_FMV = iraval; recid2 = rec_id; if soiyr ne &yr then delete; keep recid2 DC_FMV; run; proc sort data=DC out=DC NODUPLICATES; by recid2; run; data DCrecid; * sum across forms for each recid; set DC; by recid2; if First.recid2 then DC_FMVt=0; DC_FMVt + DC_FMV; if last.recid2; keep recid2 DC_FMVt; run; proc sort data=TAB&yr out=TAB&yr NODUPLICATES; by recid2; run; data TAB&yr; merge TAB&yr (in=a) DCrecid (in=b); by recid2; if a; run; %end; %if (&yr >= 1993)and(&yr <= 1998) %then %do; data DC; set house.f5498; DC_FMV = iraval; recid2 = rec_id; if soiyr ne &yr then delete; keep recid2 DC_FMV; run; proc sort data=DC out=DC NODUPLICATES; by recid2; run; data DCrecid; * sum across forms for each recid; set DC; by recid2; if First.recid2 then DC_FMVt=0; DC_FMVt + DC_FMV; if last.recid2; keep recid2 DC_FMVt; run; proc sort data=TAB&yr out=TAB&yr NODUPLICATES; by recid2; run; data TAB&yr; merge TAB&yr (in=a) DCrecid (in=b); by recid2; if a; run; %end; %if (&yr >= 1999)and(&yr <= 2000) %then %do; data DC; set IRMF&yr..f5498; DC_FMV = AMT6; id = payeetin; keep id DC_FMV; run; proc sort data=DC out=DC NODUPLICATES; by id; run; data DCrecid; * sum across forms for each recid; set DC; by id; if First.id then DC_FMVt=0; DC_FMVt + DC_FMV; if last.id; keep id DC_FMVt; run; proc sort data=TAB&yr out=TAB&yr NODUPLICATES; by id; run; data TAB&yr; merge TAB&yr (in=a) DCrecid (in=b); by id; if a; run; %end; %if (&yr >= 2001)and(&yr <= 2006) %then %do; data DC; set IRMF&yr..f5498; DC_FMV = AMT6; recid2 = rec_id; keep recid2 DC_FMV; run; proc sort data=DC out=DC NODUPLICATES; by recid2; run; data DCrecid; * sum across forms for each recid; set DC; by recid2; if First.recid2 then DC_FMVt=0; DC_FMVt + DC_FMV; if last.recid2; keep recid2 DC_FMVt; run; proc sort data=TAB&yr out=TAB&yr NODUPLICATES; by recid2; run; data TAB&yr; merge TAB&yr (in=a) DCrecid (in=b); by recid2; if a; run; %end; %if (&yr >= 2007) %then %do; data DC; set IRMF&yr..f5498; DC_FMV = EW113; if recid=0 then delete; recid2 = recid; keep recid2 DC_FMV; run; proc sort data=DC out=DC NODUPLICATES; by recid2; run; data DCrecid; * sum across forms for each recid; set DC; by recid2; if First.recid2 then DC_FMVt=0; DC_FMVt + DC_FMV; if last.recid2; keep recid2 DC_FMVt; run; proc sort data=TAB&yr out=TAB&yr NODUPLICATES; by recid2; run; data TAB&yr; merge TAB&yr (in=a) DCrecid (in=b); by recid2; if a; run; %end; * Drop duplicates (1987-2015, SOI aware of issue in recent years); %if (&yr>=1987) %then %do; *or(&yr=1988)or(&yr=1989)or(&yr=1991)or(&yr=1993)or(&yr=1997)or(&yr>=1999); data dups; set house.csdrops8715; year = floor(yearid/1000000); recid2 = yearid-year*1000000; if (year ne &yr) then delete; dropret=drop; keep recid2 dropret; run; proc sort data=dups out=dups NODUPLICATES; by recid2; run; proc sort data=TAB&yr out=TAB&yr NODUPLICATES; by recid2; run; data TAB&yr; merge TAB&yr (in=a) dups (in=b); by recid2; if a and not(b); run; %end; %END; * 1979 or after; /*******************************/ %IF (&yr lt 1979) %then %do; data TAB&yr; set indiv.puindiv&yr; ARRAY X(*) X001-X008; year=&yr; filingtype=&filingtype; incometype=&incometype; id = _N_; * need field that differs for each filer for income perturbation; DEPD = 0; * Initialize if dependent filer(=1) or not (=0); PART=0; * For public use file variable lists, see http://users.nber.org/~taxsim/gdb/ ; %IF (&yr eq 1960) %then %do; AGEX = .; IF AGEX = . THEN AGEX = 0; * no age exemptions; MARS = c3; IF MARS = . THEN MARS = 0; if mars=1 then mars=20; if mars=2 then mars=30; if mars=3 then mars=40; if mars=4 then mars=50; if mars=5 then mars=10; * mars=1 was married, 2 mfs, 3 hoh, 4 surv spouse, and 5 single; if mars=10 then mars=1; if mars=20 then mars=2; if mars=30 then mars=3; if mars=40 then mars=4; if mars=50 then mars=5; * adjust to 1=single, 2=married 3=mfs and 4=hoh; EXEM = c5; IF EXEM = . THEN EXEM = 1; if (mars=3)and(EXEM>1) then EXEM=EXEM-1; if (mars=1)or(mars=5) then EXEM=1; * control for mfs claiming spouse, elderly exemptions, if separate, single or surviving spouse then only one person; WAGE = f9; IF WAGE = . THEN WAGE = 0; INTEREST = 0; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED (allocated below); DIVID = f10; IF DIVID = . THEN DIVID = 0; STXRF = 0; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; BUSN = 0; IF BUSN = . THEN BUSN = 0; * Business and farm net profit; CGSD = f17; IF (f17>=600) and (f17<=1000) then CGSD = -f17*0.5; IF CGSD = . THEN CGSD = 0; * Net Cap Gain/Loss Sch D in AGI after exclusions. From codebook http://users.nber.org/~taxsim/gdb/tm1960.txt: Note: Negative sign not shown. Approximate correct value can be obtained by changing sign to negative on all records with capital gains between 600 and 1,000.; CGACT = CGSD*2; IF CGSD<0 then CGACT=CGSD; IF CGACT = . THEN CGACT = 0; CGOTH = 0; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss; PENSION =0; IF PENSION = . THEN PENSION = 0; * Pensions and annuities received this year; FARM = 0; IF FARM = . THEN FARM = 0; * Farm lumped with business (schedule C); STATADJ = 0; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments; AGIX = f13; IF ((WAGE+INTEREST+DIVID+CGSD*0.3)<0) THEN AGIX = -AGIX; IF AGIX = . THEN AGIX = 0; * only one AGI variable, but no negative AGI values so calculate if negative; PART = 0; IF PART = . THEN PART = 0; SCORPNET = 0; IF SCORPNET = . THEN SCORPNET = 0; RENTS = 0; IF RENTS = . THEN RENTS = 0; * Rent net inc/loss, royal net inc/loss, Estate or Trust net inc/loss; XWGT = f156/100; * weight; UNEM = 0; SSAGIX = 0; OTHR = 0; * included in rent royalty, etc.; TOTDIV = f10; * total dividends; EXDIV=f11; PENSNT = 0; * nontaxable pensions and annuities (not in AGI); NOLS=0; IF ((AGIX-TOTDIV-CGSD-WAGE)>0) THEN NOLS=0.015*(AGIX-TOTDIV-CGSD-WAGE); * No NOLs or other income variable so approximate to hit aggregate; SETX = 0; if (BUSN>0) then SETX=BUSN*&OASDI1960*2; if (BUSN>&OASDI_CAP1960) then SETX=&OASDI_CAP1960*&OASDI1960*2; * self-empl tax calc; IF SETX = . THEN SETX = 0; TAX = f16; * tax before credit, not after credit variable; IF TAX = . THEN TAX = 0; STXD = f8*0.90; * all state/local taxes deducted (reduce for gas tax); IF STXD = . THEN STXD = 0; SITX = STXD*0.20; * state/local income taxes deducted; IF SITX = . THEN SITX = 0; SSTX = STXD*0.25; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = 0.0008*TAX; * no credits variable, set FTC to small fraction of federal taxes; EMPEX = 0; IF EMPEX = . THEN EMPEX = 0; * Employee Business Expenses in statutory adjustments; MID = f6*0.6; * mortgage interest deduction as fraction of interest deductions; IntEx = (f6-MID); if IntEx<0 then IntEx=0; * Investment expenses estimated as a share of non-mortgage interest deducted; * Distribute residual based on 1964 relative amounts (except interest much lower); RESID = AGIX-WAGE-DIVID-CGSD; IF RESID=. THEN RESID=0; INTEREST = RESID*0.15; PENSION = RESID*0.01; STATADJ = RESID*0.00; * left at zero to match PS; BUSN = RESID*0.50; PARTSCP = RESID*0.21; FARM = RESID*0.05; RENTS = RESID*0.07; OTHR = RESID*0.01; %END; %IF (&yr eq 1962) %then %do; AGEX = f34; IF AGEX = . THEN AGEX = 0; * age exemptions; MARS = c4; IF MARS = . THEN MARS = 0; if mars=1 then mars=20; if mars=2 then mars=30; if mars=3 then mars=40; if mars=4 then mars=50; if mars=5 then mars=10; * mars=1 was married, 2 mfs, 3 hoh, 4 surv spouse, and 5 single; if mars=10 then mars=1; if mars=20 then mars=2; if mars=30 then mars=3; if mars=40 then mars=4; if mars=50 then mars=5; * adjust to 1=single, 2=married 3=mfs and 4=hoh; if f33=. then f33=0; if f36=. then f36=0; if f37=. then f37=0; EXEM = f33+f36+f37; IF EXEM = . THEN EXEM = 1; if (mars=2)and(f33<2) then EXEM=2+f36+f37; if (mars=1)or(mars=5) then EXEM=1; WAGE = f1; IF WAGE = . THEN WAGE = 0; INTEREST = f7; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = f9; IF DIVID = . THEN DIVID = 0; STXRF = 0; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; BUSN = f3*0.90; IF BUSN = . THEN BUSN = 0; * Business and farm net profit (no losses?); CGSD = f13+f14*0.5; if (f15>0) then CGSD=-f15; if CGSD<-1000 then CGSD = -1000; IF CGSD = . THEN CGSD = 0; * Net Cap Gain/Loss Sch D in AGI after exclusions; CGACT = f13+f14; IF CGACT = . THEN CGACT = 0; CGOTH = f5; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss; PENSION = f6; IF PENSION = . THEN PENSION = 0; * Pensions and annuities received this year; FARM = f3-BUSN; IF FARM = . THEN FARM = 0; * Farm lumped with business (schedule C); STATADJ = 0; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); AGIX = f16; IF AGIX = . THEN AGIX = 0; PART = f4; IF PART = . THEN PART = 0; SCORPNET = 0; IF SCORPNET = . THEN SCORPNET = 0; RENTS = f8*0.85; IF RENTS = . THEN RENTS = 0; * Rent net inc/loss; XWGT = f156; * weight; UNEM = 0; SSAGIX = 0; OTHR = f8-RENTS; TOTDIV = f9+f10; * total dividends; EXDIV=f10; PENSNT = PENSION*0.10; * nontaxable pensions and annuities (not in AGI); NOLS=0; IF (OTHR<0) THEN NOLS=-0.50*OTHR; * No NOLs variable before 1989, so generally assume that 80% negative other income are NOLs but 50% here because other includes more sources; SETX = f44; * self-empl tax; IF SETX = . THEN SETX = 0; TAX = f43; * Total tax liability after credits; IF TAX = . THEN TAX = 0; STXD = f31*0.90; * all state/local taxes deducted (reduce for gas); IF STXD = . THEN STXD = 0; SITX = f30; * state/local income taxes deducted; IF SITX = . THEN SITX = 0; PRPD = f28; * real estate tax deduction; MID = f18*0.6; SSTX = f29; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; itemize = c5; * =1 if itemize and 2 if standard deduction; FTC = 0.15*f42; * no FTC variables, set FTC to fraction of all other credits; IntEx = f18*0.3; if IntEx<0 then IntEx=0; * Investment expenses estimated as a share of interest deducted; EMPEX = f4; IF EMPEX = . THEN EMPEX = 0; * Employee Business Expenses in statutory adjustments; %END; %IF (&yr eq 1964) %then %do; AGEX = f42; IF AGEX = . THEN AGEX = 0; * age exemptions; MARS = c7; IF MARS = . THEN MARS = 0; EXEM = f41+f44; IF EXEM = . THEN EXEM = 1; if (mars=2)and(f41<2) then EXEM=2+f41; if (mars=1)or(mars=5) then EXEM=1; * was f44*1.04 because child exemptions lower than normal; WAGE = f5; IF WAGE = . THEN WAGE = 0; INTEREST = f15; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = f9; IF DIVID = . THEN DIVID = 0; STXRF = 0; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; CGSD = f20-f21; IF CGSD = . THEN CGSD = 0; * Net Cap Gain/Loss Sch D, 60% of cap gain excluded 1976-1986; CGACT = f17+f18; IF CGACT = . THEN CGACT = 0; CGOTH = 0; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss (including distributions); PENSION = f1; IF PENSION = . THEN PENSION = 0; * taxable Pensions and annuities received this year; FARM = f11; IF FARM = . THEN FARM = 0; * Farm net profit or loss (taxpayer); STATADJ = f2+f3+f4+f25; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); AGIX = f24; IF AGIX = . THEN AGIX = 0; PART = f12; IF PART = . THEN PART = 0; SCORPNET = 0; IF SCORPNET = . THEN SCORPNET = 0; RENTS = f13+f14; IF RENTS = . THEN RENTS = 0; * Rent net inc/loss, royal net inc/loss, Estate or Trust net inc/loss; XWGT = f156; * weight; UNEM = 0; SSAGIX = 0; OTHR = f23; EXDIV =f7; IF EXDIV = . THEN EXDIV = 0; TOTDIV = DIVID+EXDIV; * total dividends; PENSNT = PENSION*0.10; * nontaxable pensions and annuities (not in AGI); MISDED =f39; GAMBLS = 0; * No explicit gambling losses; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; SETX = f55; * self-empl tax; IF SETX = . THEN SETX = 0; TAX = f52; * Total tax liability after credits; IF TAX = . THEN TAX = 0; STXD = f29+f31+f32+f33+f34; * all state/local taxes deducted ; IF STXD = . THEN STXD = 0; SITX = f32; * state/local income taxes deducted; IF SITX = . THEN SITX = 0; PRPD = f29; * real estate tax deduction; SSTX = f31; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = f50; * foreign tax credit; BUSN = (AGIX+STATADJ-WAGE-INTEREST-DIVID-STXRF-CGSD-PENSION-FARM-PART-SCORPNET-RENTS)*1.5; * assign missing income from Sch C; IF BUSN = . THEN BUSN = 0; * Business or professional net profit or loss; EMPEX = f4; IF EMPEX = . THEN EMPEX = 0; * Employee Business Expenses in statutory adjustments; MID = f27+f28*0.15; * mortgage interest may be underreported in data; IntEx = (f28); if IntEx<0 then IntEx=0; * Investment expenses estimated as a share of non-mortgage interest deducted; %END; %IF (&yr eq 1966) %then %do; AGEX = c34; IF AGEX = . THEN AGEX = 0; * age exemptions; MARS = c26; IF MARS = . THEN MARS = 0; * mislabeled in NBER documentation; EXEM = f2+f9; IF EXEM = . THEN EXEM = 1; * child exemptions may still be a bit underreported this year relative to 1967; WAGE = f11; IF WAGE = . THEN WAGE = 0; INTEREST = f17; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = f85; IF DIVID = . THEN DIVID = 0; * dividends in agi; STXRF = 0; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; CGSD = f47-f48; IF CGSD = . THEN CGSD = 0; * Net Cap Gain/Loss Sch D, 60% of cap gain excluded 1976-1986; CGACT = (f47-f48)*2; IF CGACT = . THEN CGACT = 0; CGOTH = f52+f53-f54; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss; PENSION = f91; IF PENSION = . THEN PENSION = 0; * Pensions and annuities received this year; FARM = f70-f71; IF FARM = . THEN FARM = 0; * Farm net profit or loss (taxpayer); STATADJ = f143+f144+f145+f146; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); AGIX = f12; IF (f13 ne .)and(f13 ne 0) THEN AGIX = -f13; * negative AGIs in separate variable; IF AGIX = . THEN AGIX = 0; PART = f64-f65; IF PART = . THEN PART = 0; SCORPNET = f68-f69; IF SCORPNET = . THEN SCORPNET = 0; RENTS = f60-f61+f62-f63+f66-f67; IF RENTS = . THEN RENTS = 0; * Rent net inc/loss, royal net inc/loss, Estate or Trust net inc/loss; TRUST = f66-f67; BUSN = AGIX+STATADJ-WAGE-INTEREST-DIVID-STXRF-CGSD-PENSION-FARM-PART-SCORPNET-RENTS; IF BUSN = . THEN BUSN = 0; * Business or professional net profit or loss: missing so residual; XWGT = f156; * weight; UNEM = 0; SSAGIX = 0; OTHR = f72-f73; TOTDIV = f82; * total dividends; EXDIV=f83; PENSNT = PENSION*0.10; * nontaxable pensions and annuities (not in AGI); GAMBLS = 0; * No explicit gambling losses; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; SETX = f39; * self-empl tax; IF SETX = . THEN SETX = 0; TAX = f22; * Total tax liability after credits; IF TAX = . THEN TAX = 0; STXD = f101; * all state/local taxes deducted ; IF STXD = . THEN STXD = 0; FTXD = f97; * state/local gas tax deducted; IF FTXD = . THEN FTXD = 0; STXD = STXD - FTXD; SITX = f99; * state/local income taxes deducted; IF SITX = . THEN SITX = 0; PRPD = f96; * real estate tax deduction; SSTX = f98; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = f80; * foreign tax credit; EMPEX = f145; IF EMPEX = . THEN EMPEX = 0; * Employee Business Expenses in statutory adjustments; MID = f55; IntEx = (f56-MID); if IntEx<0 then IntEx=0; * Investment expenses estimated as a share of non-mortgage interest deducted; %END; %IF (&yr eq 1967) %then %do; AGEX = f1; IF AGEX = . THEN AGEX = 0; * age exemptions; MARS = c26; IF MARS = . THEN MARS = 0; * mislabeled in NBER documentation; EXEM = f6-f1-f3; IF EXEM = . THEN EXEM = 1; WAGE = f11; IF WAGE = . THEN WAGE = 0; INTEREST = f17; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = f85; IF DIVID = . THEN DIVID = 0; * dividends in agi; STXRF = 0; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; BUSN = f58-f59; IF BUSN = . THEN BUSN = 0; * Business or professional net profit or loss; CGSD = f47-f48; IF CGSD = . THEN CGSD = 0; * Net Cap Gain/Loss Sch D, 60% of cap gain excluded 1976-1986; CGACT = (f47-f48)*2; IF CGACT = . THEN CGACT = 0; CGOTH = f52+f53-f54; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss; PENSION = f98; IF PENSION = . THEN PENSION = 0; * Pensions and annuities received this year; FARM = f70-f71; IF FARM = . THEN FARM = 0; * Farm net profit or loss (taxpayer); STATADJ = f143+f144+f145+f146; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); AGIX = f12; IF (f13 ne .)and(f13 ne 0) THEN AGIX = -f13; * negative AGIs in separate variable; IF AGIX = . THEN AGIX = 0; PART = f64-f65; IF PART = . THEN PART = 0; SCORPNET = f68-f69; IF SCORPNET = . THEN SCORPNET = 0; RENTS = f60-f61+f62-f63+f66-f67; IF RENTS = . THEN RENTS = 0; * Rent net inc/loss, royal net inc/loss, Estate or Trust net inc/loss; TRUST = f66-f67; XWGT = f156; * weight; UNEM = 0; SSAGIX = 0; OTHR = f72-f73; TOTDIV = f85+f83; * total dividends; EXDIV=f83; PENSNT = f99; IF PENSNT = . THEN PENSNT = 0; * nontaxable pensions and annuities (not in AGI); GAMBLS = 0; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; SETX = f39; * self-empl tax; IF SETX = . THEN SETX = 0; TAX = f22; * Total tax liability after credits; IF TAX = . THEN TAX = 0; STXD = f19*0.24; * all state/local taxes deducted as a fraction of all deductions; IF STXD = . THEN STXD = 0; SITX = STXD*0.26; * state/local income taxes deducted as a fraction of state/local taxes deducted; IF SITX = . THEN SITX = 0; SSTX = STXD*0.17; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = f80; * foreign tax credit; EMPEX = f145; MID = f19*0.11; * mortgage interest deducted as fraction of total deductions; IntEx = f17*0.5; if IntEx<0 then IntEx=0; * Investment expenses estimated as share of interest; %END; %IF (&yr eq 1968) %then %do; AGEX = f1; IF AGEX = . THEN AGEX = 0; * age exemptions; MARS = c26; IF MARS = . THEN MARS = 0; * mislabeled in NBER documentation; EXEM = f2+f4; IF EXEM = . THEN EXEM = 1; WAGE = f11; IF WAGE = . THEN WAGE = 0; INTEREST = f17; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = f86; IF DIVID = . THEN DIVID = 0; * dividends in total income; STXRF = 0; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; BUSN = f58-f59; IF BUSN = . THEN BUSN = 0; * Business or professional net profit or loss; CGSD = f47-f48; IF CGSD = . THEN CGSD = 0; * Net Cap Gain/Loss Sch D, 60% of cap gain excluded 1976-1986; CGACT = (f47-f48)*2; IF CGACT = . THEN CGACT = 0; CGOTH = f52+f53-f54; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss; PENSION = f95; IF PENSION = . THEN PENSION = 0; * TOTAL Pensions and annuities received this year (taxable in previous years); FARM = f70-f71; IF FARM = . THEN FARM = 0; * Farm net profit or loss (taxpayer); STATADJ = f18; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); AGIX = f12; IF (f13 ne .)and(f13 ne 0) THEN AGIX = -f13; * negative AGIs in separate variable; IF AGIX = . THEN AGIX = 0; PARTSCP = f68-f69; IF PARTSCP = . THEN PARTSCP = 0; SCORPNET = 0; IF SCORPNET = . THEN SCORPNET = 0; * included in partnership variable; RENTS = f60-f61+f62-f63+f66-f67; IF RENTS = . THEN RENTS = 0; * Rent net inc/loss, royal net inc/loss, Estate or Trust net inc/loss; TRUST = f66-f67; XWGT = f156; * weight; UNEM = 0; SSAGIX = 0; OTHR = f87-f88; TOTDIV = f86+f84; * total dividends; EXDIV=f84; PENSNT = f94; IF PENSNT = . THEN PENSNT = 0; * nontaxable pensions and annuities (not in AGI); MISDED=f106; GAMBLS = 0; * No explicit gambling losses; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; SETX = f39; * self-empl tax; IF SETX = . THEN SETX = 0; TAX = f22; * Total tax liability after credits; IF TAX = . THEN TAX = 0; STXD = f19*0.24; * all state/local taxes deducted as a fraction of all deductions; IF STXD = . THEN STXD = 0; SITX = STXD*0.27; * state/local income taxes deducted as a fraction of state/local taxes deducted; IF SITX = . THEN SITX = 0; SSTX = STXD*0.17; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = f80; * foreign tax credit; EMPEX = f104*1.5; * does not appear to capture all deducted expenses; MID = f51; * mortgage interest deducted; IntEx = (f57-MID); if IntEx<0 then IntEx=0; * Investment expenses estimated as a share of non-mortgage interest deducted; %END; %IF (&yr eq 1969) %then %do; AGEX = c34; IF AGEX = . THEN AGEX = 0; * age exemptions; MARS = c26; IF MARS = . THEN MARS = 0; EXEM = f2+f4; IF EXEM = . THEN EXEM = 1; WAGE = f11; IF WAGE = . THEN WAGE = 0; INTEREST = f17; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = f14; IF DIVID = . THEN DIVID = 0; * DIVIDENDS in agi; STXRF = 0; IF STXRF = . THEN STXRF = 0; * State income tax refunds; BUSN = f58-f59; IF BUSN = . THEN BUSN = 0; * Business or professional net profit or loss; CGSD = f47-f48; IF CGSD = . THEN CGSD = 0; * Net Cap Gain/Loss Sch D, 60% of cap gain excluded 1976-1986; CGACT = (f47-f48)*2; IF CGACT = . THEN CGACT = 0; CGOTH = f52+f53-f54; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss; PENSION = f56; IF PENSION = . THEN PENSION = 0; * Pensions and annuities received this year; FARM = f70-f71; IF FARM = . THEN FARM = 0; * Farm net profit or loss (taxpayer); STATADJ = f18; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); AGIX = f12; IF (f13 ne .)and(f13 ne 0) THEN AGIX = -f13; * negative AGIs in separate variable; IF AGIX = . THEN AGIX = 0; PART = f64-f65; IF PART = . THEN PART = 0; SCORPNET = f68-f69; IF SCORPNET = . THEN SCORPNET = 0; RENTS = f60-f61+f62-f63+f66-f67; IF RENTS = . THEN RENTS = 0; * Rent net inc/loss, royal net inc/loss, Estate or Trust net inc/loss; TRUST = f66-f67; XWGT = f156; * weight; UNEM = 0; SSAGIX = 0; OTHR = f72-f73; TOTDIV = f14+f15; * total dividends; EXDIV=f15; PENSNT = f56-f57; IF PENSNT = . THEN PENSNT = 0; * nontaxable pensions and annuities (not in AGI); GAMBLS = 0; * No explicit gambling losses; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; SETX = f39; * self-empl tax; IF SETX = . THEN SETX = 0; TAX = f22; * Total tax liability after credits; IF TAX = . THEN TAX = 0; STXD = f19*0.24; * all state/local taxes deducted as a fraction of all deductions; IF STXD = . THEN STXD = 0; SITX = STXD*0.28; * state/local income taxes deducted as a fraction of state/local taxes deducted; IF SITX = . THEN SITX = 0; SSTX = STXD*0.17; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = f80; * foreign tax credit; EMPEX = STATADJ*0.75; MID = f19*0.115; * mortgage interest deducted as fraction of total deductions; IntEx = f17*0.5; if IntEx<0 then IntEx=0; * Investment expenses estimated as share of interest; %END; %IF (&yr eq 1970) %then %do; AGEX = c34; IF AGEX = . THEN AGEX = 0; * age exemptions; MARS = c26; IF MARS = . THEN MARS = 0; EXEM = f2+f7+f8; IF EXEM = . THEN EXEM = 1; WAGE = f11; IF WAGE = . THEN WAGE = 0; INTEREST = f17; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = f14; IF DIVID = . THEN DIVID = 0; * f7 DIVIDENDS before exclusion; STXRF = 0; IF STXRF = . THEN STXRF = 0; * State income tax refunds; BUSN = f58-f59; IF BUSN = . THEN BUSN = 0; * Business or professional net profit or loss; CGSD = f47-f48; IF CGSD = . THEN CGSD = 0; * Net Cap Gain/Loss Sch D, 50% exclusion before 1979; CGACT = (f47-f48)*2; IF CGACT = . THEN CGACT = 0; CGDS = 0; IF CGDS = . THEN CGDS = 0; * Capital Gain Dist afe f85 but these are included in Sch D so no need to remove; CGOTH = f147+f148; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss; PENSION = f95; IF PENSION = . THEN PENSION = 0; * Pensions included are on sch E no variable ; FARM = f70-f71; IF FARM = . THEN FARM = 0; * Farm net profit or loss (taxpayer); STATADJ = f143+f144+f145+f146; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); AGIX = f12; IF (f13 ne .)and(f13 ne 0) THEN AGIX = -f13; * negative AGIs in separate variable; IF AGIX = . THEN AGIX = 0; PART = f64-f65; IF PART = . THEN PART = 0; SCORPNET = f68-f69; IF SCORPNET = . THEN SCORPNET = 0; RENTS = f60-f61+f62-f63+f66-f67; IF RENTS = . THEN RENTS = 0; * Rent net inc/loss, royal net inc/loss, Estate or Trust net inc/loss; TRUST = f66-f67; XWGT = f156; * weight; UNEM = 0; SSAGIX = 0; OTHR = f72-f73; FOREX=f82; TOTDIV = f14+f15; * total dividends; EXDIV=f15; PENSNT = f94; IF PENSNT = . THEN PENSNT = 0; * excluded pensions, f91 is taxable amount (not clear if contributions or receipts); MISDED=f106; GAMBLS = 0; * No explicit gambling losses; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; SETX = f39; * self-empl tax; IF SETX = . THEN SETX = 0; TAX = f132; * Total tax liability after credits plus other taxes; IF TAX = . THEN TAX = 0; STXD = f19*0.24; * all state/local taxes deducted as a fraction of all deductions; IF STXD = . THEN STXD = 0; SITX = STXD*0.29; * state/local income taxes deducted as a fraction of state/local taxes deducted; IF SITX = . THEN SITX = 0; SSTX = STXD*0.17; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = f80; * foreign tax credit; EMPEX = STATADJ*0.75; MID = f55; * mortgage interest deducted; IntEx = (f57-MID); if IntEx<0 then IntEx=0; * Investment expenses estimated as a share of non-mortgage interest deducted; %END; %IF (&yr eq 1971) %then %do; AGEX = f1; IF AGEX = . THEN AGEX = 0; * age exemptions; MARS = c26; IF MARS = . THEN MARS = 0; EXEM = f2+f6; IF EXEM = . THEN EXEM = 1; WAGE = f11; IF WAGE = . THEN WAGE = 0; INTEREST = f17; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = f14; IF DIVID = . THEN DIVID = 0; * f7 DIVIDENDS before exclusion; STXRF = f53; IF STXRF = . THEN STXRF = 0; * State income tax refunds; ALIM = f54; IF ALIM = . THEN ALIM = 0; * Alimony received; BUSN = f58-f59; IF BUSN = . THEN BUSN = 0; * Business or professional net profit or loss; CGSD = f47-f48; IF CGSD = . THEN CGSD = 0; * Net Cap Gain/Loss Sch D, 50% of lt cap gain excluded before 1979; CGACT = (f47-f48)*2; IF CGACT = . THEN CGACT = 0; CGDS = f85*0.26; IF CGDS = . THEN CGDS = 0; * Capital Gain Dist, many seem to be on Sch D, adjust to approximate SOI book total of $185; CGOTH = f52; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss; PENSION = f91*1.15; IF PENSION = . THEN PENSION = 0; * Pensions and annuities received this year; FARM = f70-f71; IF FARM = . THEN FARM = 0; * Farm net profit or loss (taxpayer); STATADJ = f143+f144+f145+f146; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); AGIX = f12; IF (f13 ne .)and(f13 ne 0) THEN AGIX = -f13; * negative AGIs in separate variable; IF AGIX = . THEN AGIX = 0; PART = f64-f65; IF PART = . THEN PART = 0; SCORPNET = f68-f69; IF SCORPNET = . THEN SCORPNET = 0; RENTS = f60-f61+f62-f63+f66-f67; IF RENTS = . THEN RENTS = 0; * Rent net inc/loss, royal net inc/loss, Estate or Trust net inc/loss; TRUST = f66-f67; XWGT = f156; * weight; UNEM = 0; SSAGIX = 0; OTHR = f55-f56; TOTDIV = f14+f15; * total dividends; EXDIV=f15; PENSNT = PENSION-f91; IF PENSNT = . THEN PENSNT = 0; * excluded pensions, f91 is taxable amount (not clear if contributions or receipts); GAMBLS = 0; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; SETX = f39; * self-empl tax; IF SETX = . THEN SETX = 0; if f103=. then f103=0; if f104=. then f104=0; TAX = f22+SETX+f103+f104; * Total tax liability after credits; IF TAX = . THEN TAX = 0; STXD = f19*0.24; * all state/local taxes deducted as a fraction of all deductions; IF STXD = . THEN STXD = 0; SITX = STXD*0.30; * state/local income taxes deducted as a fraction of state/local taxes deducted; IF SITX = . THEN SITX = 0; SSTX = STXD*0.17; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = f80; * foreign tax credit; EMPEX = STATADJ*0.75; MID = f19*0.11; * mortgage interest deducted as fraction of total deductions; IntEx = f17*0.5; if IntEx<0 then IntEx=0; * Investment expenses estimated as share of interest received; ALIMRC = f54; * alimony received; ALIMPD = 0; * alimony paid; %END; %IF (&yr eq 1972) %then %do; AGEX = c36; IF AGEX = . THEN AGEX = 0; * age exemptions; MARS = c28; IF MARS = . THEN MARS = 0; EXEM = f1+f4; IF EXEM = . THEN EXEM = 1; WAGE = f7; IF WAGE = . THEN WAGE = 0; INTEREST = f11; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = f10; IF DIVID = . THEN DIVID = 0; * f7 DIVIDENDS before exclusion; STXRF = f29; IF STXRF = . THEN STXRF = 0; * State income tax refunds; ALIM = f27; IF ALIM = . THEN ALIM = 0; * Alimony received; BUSN = f21-f22; IF BUSN = . THEN BUSN = 0; * Business or professional net profit or loss; CGSD = (f94-f95); IF CGSD = . THEN CGSD = 0; * Net Cap Gain/Loss Sch D, 50% exclusion before 1979; CGACT = (f94-f95)*2; IF CGACT = . THEN CGACT = 0; CGDS = f28; IF CGDS = . THEN CGDS = 0; * Capital Gain Dist; CGOTH = f23-f24; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss; PENSION = f97*1.14; IF PENSION = . THEN PENSION = 0; * Pensions and annuities received this year; FARM = f25-f26; IF FARM = . THEN FARM = 0; * Farm net profit or loss (taxpayer); STATADJ = f33+f34+f35+f36; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); AGIX = f12; IF AGIX = . THEN AGIX = 0; PART = f105-f106; IF PART = . THEN PART = 0; SCORPNET = f109; IF SCORPNET = . THEN SCORPNET = 0; RENTS = f98-f99+f103-f104+f107-f108; IF RENTS = . THEN RENTS = 0; * Rent net inc/loss, royal net inc/loss, Estate or Trust net inc/loss; TRUST = f107 - f108; XWGT = f156; * weight; UNEM = 0; SSAGIX = 0; OTHR = f31-f32; FOREX=0; TOTDIV = f9; * total dividends; EXDIV=f9-f10; PENSNT = PENSION-f97; IF PENSNT = . THEN PENSNT = 0; MISDED=f76; GAMBLS = 0; if (MISDED<(OTHR+300*&&cpi&yr/&cpi1991))and(MISDED>(OTHR-10)) THEN GAMBLS=MISDED; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * maybe e136, but to be consistent before 1989, so assume that 80% negative other income are NOLs; SETX = f46; * self-empl tax; IF SETX = . THEN SETX = 0; if f47=. then f47=0; if f48=. then f48=0; * recomputed tax on credits and min tax; TAX = f15+SETX+f47+f48; * Total tax liability after credits; IF TAX = . THEN TAX = 0; STXD = f63; * all state/local taxes deducted ; IF STXD = . THEN STXD = 0; FTXD = f59; * state/local gas tax deducted; IF FTXD = . THEN FTXD = 0; STXD = STXD - FTXD; SITX = f61; * state/local income taxes deducted; IF SITX = . THEN SITX = 0; PRPD = f58; * real estate tax deduction; SSTX = f60; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = f41; * foreign tax credit; EMPEX = STATADJ*0.75; MID = f68; * mortgage interest deducted; DEPD=0; if (c44=1) then DEPD=1; * DEPENDENT WITH UNEARNED INCOME=1 if box checked (0 if not checked and 2 if no box on form); ALIMRC = f30; * alimony received; ALIMPD = 0; * alimony paid; IntEx = f70; if IntEx<0 then IntEx=0; if IntEx>25000 then IntEx=IntEx + (IntEx-25000)*2 ; * Investment expenses, account for half limitation for amounts above $25K ; %END; %IF (&yr eq 1973) %then %do; AGEX = c34; IF AGEX = . THEN AGEX = 0; MARS = c26; IF MARS = . THEN MARS = 0; EXEM = f1+f4; IF EXEM = . THEN EXEM = 1; WAGE = f6; IF WAGE = . THEN WAGE = 0; INTEREST = f10; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = f8; IF DIVID = . THEN DIVID = 0; STXRF = f26; IF STXRF = . THEN STXRF = 0; * State income tax refunds; BUSN = f21; IF BUSN = . THEN BUSN = 0; * Business or professional net profit or loss; CGSD = f89; IF CGSD = . THEN CGSD = 0; * Net Cap Gain/Loss Sch D, 50% of lt cap gain excluded before 1979; CGACT = f89*2; IF CGACT = . THEN CGACT = 0; * adjusted for exclusion; CGDS = f25; IF CGDS = . THEN CGDS = 0; * Capital Gain Dist; CGOTH = f22; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss; PENSION = f93*1.15; IF PENSION = . THEN PENSION = 0; * Pensions and annuities received this year; FARM = f23; IF FARM = . THEN FARM = 0; * Farm net profit or loss (taxpayer); STATADJ = f29+f30+f31+f32; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); AGIX = f11; IF AGIX = . THEN AGIX = 0; PART = f102; IF PART = . THEN PART = 0; SCORPNET = f108; IF SCORPNET = . THEN SCORPNET = 0; RENTS = f96+f99+f105; IF RENTS = . THEN RENTS = 0; * Rent net inc/loss, royal net inc/loss, Estate or Trust net inc/loss; TRUST = f105; XWGT = f156; * weight; UNEM = 0; SSAGIX = 0; EMPEX = f31; OTHR = f28; TOTDIV = f7; * total dividends; EXDIV=f7-f8; PENSNT = PENSION-f93; IF PENSNT = . THEN PENSNT = 0; MISDED=f80; GAMBLS = 0; if (MISDED<(OTHR+300*&&cpi&yr/&cpi1991))and(MISDED>(OTHR-10)) THEN GAMBLS=MISDED; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * maybe e124, but to be consistent before 1989, so assume that 80% negative other income are NOLs; SETX = f42; * self-empl tax; IF SETX = . THEN SETX = 0; if f43=. then f43=0; if f44=. then f44=0; if f45=. then f45=0; * recomputed tax on credits and min tax; TAX = f13+SETX+f43+f44+f45; * income tax liability after credits; IF TAX = . THEN TAX = 0; STXD = f68; * all state/local taxes deducted ; IF STXD = . THEN STXD = 0; FTXD = f65; * state/local gas tax deducted; IF FTXD = . THEN FTXD = 0; STXD = STXD - FTXD; SITX = f63; * state/local income taxes deducted; IF SITX = . THEN SITX = 0; PRPD = f64; * real estate tax deduction; SSTX = f66; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = f38; * foreign tax credit; EMPEX = f31; MID = f69; * mortgage interest deducted; IntEx = (f70-MID);*0.05; if IntEx<0 then IntEx=0; * Investment expenses estimated as a share of non-mortgage interest deducted; DEPD=0; if (c37=1) then DEPD=1; * DEPENDENT WITH UNEARNED INCOME=1 if box checked (0 if not checked and 2 if no box on form); ALIMRC = f27; * alimony received; ALIMPD = f75; * alimony paid; %END; %IF (&yr eq 1974) %then %do; AGEX = c26; IF AGEX = . THEN AGEX = 0; MARS = c35; IF MARS = . THEN MARS = 0; EXEM = f1+f4; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions (excludes 11 million age exemptions and 170,000 blindness); WAGE = f6; IF WAGE = . THEN WAGE = 0; INTEREST = f9; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = f8; IF DIVID = . THEN DIVID = 0; * DIVIDENDS before exclusion; STXRF = f38; IF STXRF = . THEN STXRF = 0; * State income tax refunds; BUSN = f30-f31; IF BUSN = . THEN BUSN = 0; * Business or professional net profit or loss; CGSD = f73-f74; IF CGSD = . THEN CGSD = 0; * Net Cap Gain/Loss Sch D, 50% of lt cap gain excluded before 1979; CGACT = (f73-f74)*2; IF CGACT = . THEN CGACT = 0; CGDS = f37; IF CGDS = . THEN CGDS = 0; * Capital Gain Dist; CGOTH = f32-f33; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss; PENSION = f36*1.05+f76; IF PENSION = . THEN PENSION = 0; * Pensions and annuities received this year; FARM = f34-f35; IF FARM = . THEN FARM = 0; * Farm net profit or loss (taxpayer); STATADJ = f38; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); AGIX = f11; IF AGIX = . THEN AGIX = 0; PART = f82-f83; IF PART = . THEN PART = 0; SCORPNET = f86-f87; IF SCORPNET = . THEN SCORPNET = 0; RENTS = f78-f79+f80-f81+f84-f85; IF RENTS = . THEN RENTS = 0; * Rent net inc/loss, royal net inc/loss, Estate or Trust net inc/loss; TRUST = f84 - f85; XWGT = f156; * weight; UNEM = 0; SSAGIX = 0; EMPEX = 0; OTHR = f40-f41; FOREX=f104; TOTDIV = f7; * total dividends; EXDIV=f7-f8; PENSNT = PENSION-f36-f77; IF PENSNT = . THEN PENSNT = 0; MISDED=f64; GAMBLS = 0; if (MISDED<(OTHR+300*&&cpi&yr/&cpi1991))and(MISDED>(OTHR-10)) THEN GAMBLS=MISDED; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * maybe e132, but to be consistent before 1989 assuming that 80% negative other income are NOLs; SETX = f50; * self-empl tax; IF SETX = . THEN SETX = 0; if f54=. then f54=0; * SS taxes on tips; TAX = f142; * Total tax liability including SE tax (f13 is only income tax, f140 is the small rebate); IF TAX = . THEN TAX = 0; STXD = f60*0.90; * all taxes deducted then reduce; IF STXD = . THEN STXD = 0; SITX = STXD*0.40; * state/local income taxes deducted; IF SITX = . THEN SITX = 0; SSTX = STXD*0.17; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = f46; * foreign tax credit; EMPEX = STATADJ*0.6; MID = f61*0.6; * mortgage interest deducted as fraction of interest deducted; IntEx = (f61-MID);*0.07; if IntEx<0 then IntEx=0; * Investment expenses estimated as a share of non-mortgage interest deducted; DEPD=0; if (c29=1) then DEPD=1; * DEPENDENT WITH UNEARNED INCOME=1 if box checked (0 if not checked and 2 if no box on form); ALIMRC = f39; * alimony received; ALIMPD = 0; * alimony paid; WGFICA = min(f21-f25,&OASDI_CAP1974) + min(f22-f26,&OASDI_CAP1974); * sum of male and female wages less amounts not subject to FICA, each capped at individual-worker OASDI tax max; %END; %IF (&yr eq 1975) %then %do; AGEX = f2; IF AGEX = . THEN AGEX = 0; * age exemptions; MARS = c34; IF MARS = . THEN MARS = 0; EXEM = f1+f4+f5+f6; IF EXEM = . THEN EXEM = 1; WAGE = f8; IF WAGE = . THEN WAGE = 0; INTEREST = f11; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = f10; IF DIVID = . THEN DIVID = 0; * DIVIDENDS:IN AGI; STXRF = f36; IF STXRF = . THEN STXRF = 0; * State income tax refunds; BUSN = f32; IF BUSN = . THEN BUSN = 0; * Business or professional net profit or loss; CGSD = f103; IF CGSD = . THEN CGSD = 0; * Net Cap Gain/Loss Sch D, 50% of lt cap gain excluded before 1979; CGACT = f103*2; IF CGACT = . THEN CGACT = 0; CGDS = 0; IF CGDS = . THEN CGDS = 0; * Capital Gain Dist (inluded in CGSD, see NBER codebook footnote 4); CGOTH = f33; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss; PENSION = f34*1.05+f104; IF PENSION = . THEN PENSION = 0; * Pensions and annuities received this year; FARM = f35; IF FARM = . THEN FARM = 0; * Farm net profit or loss (taxpayer); STATADJ = f31; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); AGIX = f12; IF AGIX = . THEN AGIX = 0; PART = f108-f109; IF PART = . THEN PART = 0; SCORPNET = f112-f113; IF SCORPNET = . THEN SCORPNET = 0; RENTS = f106+f107+f110-f111; IF RENTS = . THEN RENTS = 0; * Rent net inc/loss, royal net inc/loss, Estate or Trust net inc/loss; TRUST = f110-f111; XWGT = f156; * decimal weight; UNEM = 0; SSAGIX = 0; EMPEX = f27; OTHR = f38; *pstate=c16; *FOREX=?; TOTDIV = f9; * total dividends; EXDIV=f9-f10; PENSNT = f34*0.05+(f104-f105); IF PENSNT = . THEN PENSNT = 0; * ; MISDED=f92; GAMBLS = 0; if (MISDED<(OTHR+300*&&cpi&yr/&cpi1991))and(MISDED>(OTHR-10)) THEN GAMBLS=MISDED; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; SETX = f61; * self-empl tax; IF SETX = . THEN SETX = 0; TAX = f14+SETX; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = f80; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; FTXD = f79; * state/local gas tax deducted; IF FTXD = . THEN FTXD = 0; STXD = STXD - FTXD; SITX = f75; * state/local income taxes deducted; IF SITX = . THEN SITX = 0; PRPD = f76; * real estate tax deduction; SSTX = f77; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = f44; * foreign tax credit; IRA = f28+f29; EMPEX = f27; MID = f81; IntEx = (f82-MID);*0.09; if IntEx<0 then IntEx=0; * Investment expenses estimated as a share of non-mortgage interest deducted; DEPD=0; if (c27=1) then DEPD=1; * DEPENDENT WITH UNEARNED INCOME=1 if box checked (0 if not checked and 2 if no box on form); ALIMRC = f37; * alimony received; ALIMPD = f88; * alimony paid; REFCR = f52; * refundable EIC; %END; %IF (&yr eq 1976) %then %do; AGEX = f2; MARS = c35; IF MARS = . THEN MARS = 0; EXEM = f1+f4; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions; WAGE = f11; IF WAGE = . THEN WAGE = 0; INTEREST = f14; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = f13; IF DIVID = . THEN DIVID = 0; * DIVIDENDS:IN AGI; STXRF = f35; IF STXRF = . THEN STXRF = 0; * State income tax refunds; ALIM = f36; IF ALIM = . THEN ALIM = 0; * Alimony received; BUSN = f30; IF BUSN = . THEN BUSN = 0; * Business or professional net profit or loss; CGSD = f75; IF CGSD = . THEN CGSD = 0; * Net Cap Gain/Loss Sch D; CGACT = f71+f74+f77; CGDS = f31; IF CGDS = . THEN CGDS = 0; * Capital Gain Dist; CGOTH = f32; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss; PENSION = f80; IF PENSION = . THEN PENSION = 0; * Pensions and annuities received this year; FARM = f34; IF FARM = . THEN FARM = 0; * Farm net profit or loss (taxpayer); STATADJ = f15; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); AGIX = f18; IF AGIX = . THEN AGIX = 0; PART = f87; IF PART = . THEN PART = 0; * want to remove passive losses (mostly for those in loss position): PartLossAdj =0; *if (PARTSCP<0) then PartLossAdj = PARTSCP; SCORPNET = f89; IF SCORPNET = . THEN SCORPNET = 0; * ScorpLossAdj =0; *if (SCORPNET<0) then Scorp = SCORPNET; RENTS = f85+f86+f88; IF RENTS = . THEN RENTS = 0; * Rent net inc/loss, royal net inc/loss, Estate or Trust net inc/loss; TRUST = f88; XWGT = f157; * decimal weight; UNEM = 0; SSAGIX = 0; EMPEX = 0; OTHR = f39; FOREX = f113; TOTDIV = f12; * total dividends; EXDIV = f12-f13; PENSNT = f33*0.14+f83*0.14+f84; *f80-f79; IF PENSNT = . THEN PENSNT = 0; * ; MISDED=f68; GAMBLS = 0; if (MISDED<(OTHR+300*&&cpi&yr/&cpi1991))and(MISDED>(OTHR-10)) THEN GAMBLS=MISDED; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; SETX = f114*0.079; if (f114>15300) then SETX = 15300*0.079;* self-empl tax; IF SETX = . THEN SETX = 0; TAX = f21; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = f63*0.90; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; SITX = STXD*0.45; * state/local income taxes deducted; IF SITX = . THEN SITX = 0; SSTX = STXD*0.17; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = f45; * foreign tax credit; IRA = f17; EMPEX = (STATADJ-IRA)*0.6; MID = f64; IntEx = (f65-f64);*0.11; if IntEx<0 then IntEx=0; * Investment expenses estimated as a share of non-mortgage interest deducted; DEPD=0; if (c28=1) then DEPD=1; * DEPENDENT WITH UNEARNED INCOME=1 if box checked (0 if not checked and 2 if no box on form); ALIMRC = f36; * alimony received; ALIMPD = 0; * alimony paid; REFCR = f123; * refundable EIC; %END; %IF (&yr eq 1977) %then %do; AGEX = f3; MARS = c26; IF MARS = . THEN MARS = 0; EXEM = f2+f5; IF EXEM = . THEN EXEM = 1; * Taxpayer+Dependents Exemptions; WAGE = f11; IF WAGE = . THEN WAGE = 0; INTEREST = f12; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = f14; IF DIVID = . THEN DIVID = 0; * DIVIDENDS:IN AGI; STXRF = f15; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; BUSN = f17; IF BUSN = . THEN BUSN = 0; * Business or professional net profit or loss; CGSD = f85; IF CGSD = . THEN CGSD = 0; * Net Cap Gain/Loss Sch D in agi; CGACT = f85*2; * NET CAPITAL GAINS/LOSSES, adjusted for exclusion; CGDS = f18; IF CGDS = . THEN CGDS = 0; * Capital Gain Dist; CGOTH = f19; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss; PENSION = f20*1.05+f86; IF PENSION = . THEN PENSION = 0; * Pensions and annuities received this year; FARM = f21; IF FARM = . THEN FARM = 0; * Farm net profit or loss (taxpayer); STATADJ = f29; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); AGIX = f30; IF AGIX = . THEN AGIX = 0; PARTINC = f90; IF PARTINC = . THEN PARTINC = 0; PART = f91; IF PART = . THEN PART = 0; SCORPINC = f94; IF SCORPINC = . THEN SCORPINC = 0; SCORPNET = f95; IF SCORPNET = . THEN SCORPNET = 0; RENTS = f88+f89+f93; IF RENTS = . THEN RENTS = 0; * f88 Rent net inc/loss, f89 royal net inc/loss, f93 Estate or Trust net inc/loss; TRUST = f93; XWGT = f157; * decimal weight; UNEM = 0; SSAGIX = 0; EMPEX = f24; OTHR = f22; FOREX = f105; TOTDIV = f13; * total dividends; EXDIV = f13-f14; PENSNT = f20*0.05+ f86-f87; IF PENSNT = . THEN PENSNT = 0; MISDED= f79; GAMBLS = 0; if (MISDED<(OTHR+300*&&cpi&yr/&cpi1991))and(MISDED>(OTHR-10)) THEN GAMBLS=MISDED; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; SETX = f43; * self-empl tax; IF SETX = . THEN SETX = 0; TAX = f48; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = f69; * all state/local taxes deducted; IF STXD = . THEN STXD = 0; FTXD = f66; * state/local gas tax deducted; IF FTXD = . THEN FTXD = 0; STXD = STXD - FTXD; SITX = f64; * state/local income taxes deducted; IF SITX = . THEN SITX = 0; PRPD = f65; * real estate tax deduction; SSTX = f67; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = f38; * foreign tax credit; IRA = f25+f26; EMPEX = f24; MID = f70; IntEx = (f71-MID);*0.12; if IntEx<0 then IntEx=0; * Investment expenses estimated as a share of non-mortgage interest deducted; DEPD=0; if (c30=1) then DEPD=1; * DEPENDENT WITH UNEARNED INCOME=1 if box checked (0 if not checked and 2 if no box on form); ALIMRC = f16; * alimony received; ALIMPD = f28; * alimony paid; REFCR = f51; * refundable EIC; %END; %IF (&yr eq 1978) %then %do; AGEX = f3; *if PTXPX=2 then AGEX=1; MARS = c26; IF MARS = . THEN MARS = 0; EXEM = f2+f5; IF EXEM = . THEN EXEM = 1; AGIX = f27; IF AGIX = . THEN AGIX = 0; WAGE = f11; IF WAGE = . THEN WAGE = 0; INTEREST = f12; IF INTEREST = . THEN INTEREST = 0; * INTEREST RECEIVED; DIVID = f14; IF DIVID = . THEN DIVID = 0; * DIVIDENDS:IN AGI; STXRF = f15; IF STXRF = . THEN STXRF = 0.0; * State income tax refunds; CGSD = f83; IF CGSD = . THEN CGSD = 0; * Net Cap Gain/Loss Sch D; CGACT = f83+f76+f77; CGDS = f18; IF CGDS = . THEN CGDS = 0; * Capital Gain Dist ; CGOTH = f19; IF CGOTH = . THEN CGOTH = 0; * other capital gain or loss; PENSION = f20*1.05+f86; IF PENSION = . THEN PENSION = 0; * Pensions and annuities received this year; UNEM = 0; * Unemp compensation in AGI; SSAGIX = 0; * NO SS benefits reported until 1984; STATADJ = f26; IF STATADJ = . THEN STATADJ = 0; * Total statutory adjustments (moving, payments to IRA, Keogh, alimony, etc.); BUSN = f17; IF BUSN = . THEN BUSN = 0; * Business or professional net profit or loss; PART = f90; IF PART = . THEN PART = 0; SCORPNET = f92; IF SCORPNET = . THEN SCORPNET = 0; FARM = f21; IF FARM = . THEN FARM = 0; * Farm net profit or loss (taxpayer); RENTS = f88+f89+f91; IF RENTS = . THEN RENTS = 0; * Rent net inc/loss, royal net inc/loss, Estate or Trust net inc/loss; TRUST = f91; XWGT = f157; EMPEX = 0; OTHR = f22; FOREX = f96; TOTDIV = f13; * total dividends; EXDIV=f13-f14; MISDED = f66; GAMBLS = 0; if (MISDED<(OTHR+300*&&cpi&yr/&cpi1991))and(MISDED>(OTHR-10)) THEN GAMBLS=MISDED; * No explicit gambling losses, but included in misc deductions and must be equal or less than gambling winnings reported in other income; NOLS=0; IF (OTHR<0) THEN NOLS=-0.80*OTHR; * No NOLs variable before 1989, so assume that 80% negative other income are NOLs; SETX = f42; * self-empl tax from Sch. SE; IF SETX = . THEN SETX = 0; TAX = f47; * Total tax liability including SE tax; IF TAX = . THEN TAX = 0; STXD = f61*0.97; * all state/local taxes deducted (reduce for gas tax); IF STXD = . THEN STXD = 0; SITX = 0.5*STXD; * state/local income taxes deducted; IF SITX = . THEN SITX = 0; SSTX = 0.17*STXD; * state/local sales taxes deducted; IF SSTX = . THEN SSTX = 0; FTC = f36; * foreign tax credit; FBK = f27; * foreign bank account; IRA = f23+f24; EMPEX = (STATADJ-IRA)*0.65; MID = f62; IntEx = (f63-f62);*0.13; if IntEx<0 then IntEx=0; * Investment expenses estimated as a share of non-mortgage interest deducted; DEPD=0; if (c29=1) then DEPD=1; * DEPENDENT WITH UNEARNED INCOME=1 if box checked (0 if not checked and 2 if no box on form); ALIMRC = f16; * alimony received; ALIMPD = 0; * alimony paid; REFCR = f51; * refundable EIC; %END; if (PARTSCP=.) then PARTSCP=PART+SCORPNET; SCP = SCORPNET; IF SSTX = . THEN SSTX = 0; IF SITX = . THEN SITX = 0; IF STXD = . THEN STXD = 0; if (&yr > 1986)and(&yr < 2004) then SSTX = 0; * a few inconsistent SSTX in other years should be removed; * increase progressivity of taxes in years missing, as taxes more progressive than deductions; if (&yr=1960) then do; if (AGIX > &&at90cut&yr)and(AGIX <= &&at90cut&yr) then SITX = SITX*0.90; if (AGIX > &&at95cut&yr)and(AGIX <= &&at95cut&yr) then SITX = SITX*1.00; if (AGIX > &&at99cut&yr) then SITX = SITX*2.40; PRPD = (STXD-SITX-SSTX)*0.75; * real estate tax deduction; end; if (&yr=1967)or(&yr=1968)or(&yr=1969)or(&yr=1970)or(&yr=1971)then do; * target 1966 and 1977 shares and interpolate; if (AGIX > &&at90cut&yr)and(AGIX <= &&at90cut&yr) then SITX = SITX*0.90; if (AGIX > &&at95cut&yr)and(AGIX <= &&at95cut&yr) then SITX = SITX*(1.60-0.1*(&yr-1967)/11); if (AGIX > &&at99cut&yr) then SITX = SITX*(2.95-0.6*(&yr-1967)/11); end; if (&yr=1974) then do; if (AGIX > &&at90cut&yr)and(AGIX <= &&at90cut&yr) then SITX = SITX*1.00; if (AGIX > &&at95cut&yr)and(AGIX <= &&at95cut&yr) then SITX = SITX*1.20; if (AGIX > &&at99cut&yr) then SITX = SITX*1.60; end; if (&yr=1976) then do; if (AGIX > &&at90cut&yr)and(AGIX <= &&at90cut&yr) then SITX = SITX*0.80; if (AGIX > &&at95cut&yr)and(AGIX <= &&at95cut&yr) then SITX = SITX*0.90; if (AGIX > &&at99cut&yr) then SITX = SITX*1.50; end; if (&yr=1978) then do; if (AGIX > &&at90cut&yr)and(AGIX <= &&at90cut&yr) then SITX = SITX*0.75; if (AGIX > &&at95cut&yr)and(AGIX <= &&at95cut&yr) then SITX = SITX*0.80; if (AGIX > &&at99cut&yr) then SITX = SITX*1.40; end; IF AGIX = . THEN AGIX = 0; IF CGSD = . THEN CGSD = 0; IF CGACT = . THEN CGACT = 0; IF EMPEX = . THEN EMPEX = 0; AGIXa = AGIX - CGSD + CGACT + EMPEX; if AGIXa=. then AGIXa=0; * correct capital gains and add back employee business deduction to be more in line with 2001 AGI definition; AGIXc = AGIX - CGSD ; if AGIXc=. then AGIXc=0; * no cap gains realizations for Census merge; TPI=WAGE+INTEREST+TOTDIV+PENSION+max(CGACT,0)+max(BUSN,0)+max(PARTSCP,0)+max(RENTS,0)+max(FARM,0)+max(OTHR,0); * total positive income; BUSU = PARTSCP + BUSN + FARM + RENTS; *also defined above for later years; BUWT = XWGT; if BUSU = 0 then BUWT=.; WGWT = XWGT; if WAGE = 0 then WGWT=.; ct=1; keep AGIXa TPI BUSU id dob_dm1 SCP DEPD MARS AGIX DSI STATADJ SSAGIX CGSD CGDS CGACT UNEM EXEM WAGE PENSTX PENSION INTEREST DIVID BUSN FARM RENTS flpdyr XWGT STXRF PASNDLS RENTNDLS AGEX PARTSCP SCORPNET PART IntEx PropExpn REFCR SEfarma SEdepra SEfarm SEdepr ct BUWT WGWT WGFICA MID CGOTH ALIMRC ALIMPD EMPEX IRA CtBsDed OTHR FOREX FBK PSTATE STXDED OPTAMT CNTDED PRPDED TOTDIV NTINT EXDIV TSSA GAMBLS NOLS FTC CGNOLIM SETX TAX STXD SITX DED SSTX PRPD itemize SCP TRUST; run; %END; * before 1979; * RANK Tax Returns; %GroupsAll(TAB&yr, AGIXa, XWGT, IncGrp, cutoff); * Groups by AGI and tax unit weights; %GroupsAll(TAB&yr, TPI, XWGT, TPIgrp, cutoff); * Groups by total positive income and tax unit weights; %GroupsAL(TAB&yr, AGIXa, xwgt, Grp); * groups for allocating detected underreported income in special audit studies; /* ************************************* OLD Nonfiler method: NF added in MultiTopShares, PS single nonfiler observation, 20% of average filer income; *************************************; %IF (&filingtype=0) %THEN %DO; data NonFilers&yr; set NonFilers&yr; XWGT=xwgt_PS*1000; AGIX = psnfinc; run; proc append base=TAB&yr data=NonFilers&yr force; run; %end; */ ************************************* ADD NONFILERS: 56 demographic/income groups *************************************; %IF (&filingtype=19)or(&filingtype=99) %THEN %DO; * incomes by micro groups, total number accounts for <20/dependent, non-resident, and mfs filers (19) or just PS number of nonfilers (99); data Nonfiler; set house.NonFilers112gps; * set file with 112 lines of id . and all gps: marr dgp igp; PSTATE=.;DSI=.;STATE=.;FLPDYR=.;xwgt=.;id=.;DEPD=.;EMPEX=.;PART=.;SCORPNET=.;EXEM=.;AGIX=.;WAGE=.;INTEREST=.;DIVID=.;BUSN=.;PARTSCP=.;CGSD=.;CGDS=.;CGOTH=.;PENSTX=.;PENSION=.;PENSNT=.;FARM=.;UNEM=.;SSAGIX=.; TSSA=.;STATADJ=.;RENTS=.;TRUST=.;STXRF=.;PASNDLS=.;RENTNDLS=.;OTHR=.;FOREX=.;GAMBLS=.;NOLS=.;NTINT=.;CGPRSCP=.;TAX=.;SETX=.; SSTX=.;STXD=.;PRPD=.;DED=.;itemize=.;FTC=.;SCP=.;IRA=.;ALIMRC=.;ALIMPD=.;MID=.;secap=.;secas=.;ESREBATE=.;AGIXa=.;yob_dm1=.;yod_dm1=.;dob_dm1=.;dod_dm1=.; id = .; WAGE=0; INTEREST=0; TOTDIV=0; X004=0; PARTSCP=0; BUSN=0; FARM=0; RENTS=0; IMP_SSA2=0; UNEM2=0; CRET=0; FTC=0; SITX=0; CTAX=0; PRPD=0; OTAX=0; RETINC=0; RETADJ=0; ESTX=0; FICA=0; UI=0; ESI=0; AGIX=0; STATADJ=0; SSAGIX=0; UNEM=0; CGSD=0; NDLoss=0; NTINT=0; STXRF=0; GAMBLS=0; NOLS=0; EXDIV=0; CGDS=0; IRA=0; CGOTH=0; ALIMRCa=0; ALIMPD=0; FICA=0; UI=0; ESI=0; RETINC=0; RETADJ=0; ESREBATE=0; FTAX=0; FTC=0; ESTX=0; CTAX=0; PRPD=0; AGEX=0; FOREX=0; DEPD=0; DSI=0; DEPINC=0; state=0; dob_dm1=.; SS1099t=0; %do m = 0 %to 1; * marriage groups; %do d = 1 %to 4; * demographic groups (20-34, 35-54, 55-64, 65+); %do i = 1 %to 7; * income groups; if marr=&m and dgp=&d and igp=&i then do; * marrgp demgp incgp; if (&yr <= 2007) then do; * 1960-2007: use 2000 nonfiler data; if (&filingtype=19) then XWGT = &&nfsh_&m&u&d&u&yr * &&nfsh2000_&m&u&d&u&i * (&&xwgt_PS&yr + &&xwgt_20&yr + &&xwgt_noNR&yr + &&xwgt_mfs&yr)*1000; * share of demog group times share within-dem income group time total # corrected nf tax units; if (&filingtype=99) then XWGT = &&nfsh_&m&u&d&u&yr * &&nfsh2000_&m&u&d&u&i * (&&xwgt_PS&yr)*1000; * PS weights; %let nfinf = &&cpi&yr / &cpi2010; WAGE = &&wgindex&yr / &wgindex2000 * &&nfwg2000_&m&u&d&u&i; * scale wages by SSA average wage; TOTDIV = &nfinf * &&nfdiv2000_&m&u&d&u&i; INTEREST = &nfinf * &&nfint2000_&m&u&d&u&i; BUSN = &nfinf * &&nfbus2000_&m&u&d&u&i; PENSION = &nfinf * &&nfret2000_&m&u&d&u&i; PENSNT = 0; * PENSTX_calc = PENSION - PENSNT; SSAGIX = &nfinf * &&nfss2000_&m&u&d&u&i * (0.4 + 0.6*(%eval(&yr) - 1960)/40); if SSAGIX<0 or SSAGIX=. then SSAGIX=0; * steeper reduction in SS benefits for earlier years; UNEM = &nfinf * &&nfui2000_&m&u&d&u&i; * very cyclical, adjust below; FTAX = &nfinf * &&nfitx2000_&m&u&d&u&i; end; if (&yr >= 2008) and (&yr <= 2017) then do; * 2008-2017: use interpolated 2010/2018 nonfiler data (2017 nonfiler estimates are very similar to 2018 data); if (&filingtype=19) then XWGT = &&nfsh_&m&u&d&u&yr * (&&nfsh2010_&m&u&d&u&i + (&&nfsh2018_&m&u&d&u&i - &&nfsh2010_&m&u&d&u&i)/8*(&yr - 2010)) * (&&xwgt_PS&yr + &&xwgt_20&yr + &&xwgt_noNR&yr + &&xwgt_mfs&yr)*1000; * share of demog group times share within-dem income group time total # corrected nf tax units; if (&filingtype=99) then XWGT = &&nfsh_&m&u&d&u&yr * (&&nfsh2010_&m&u&d&u&i + (&&nfsh2018_&m&u&d&u&i - &&nfsh2010_&m&u&d&u&i)/8*(&yr - 2010)) * (&&xwgt_PS&yr)*1000; * PS weights; WAGE = &&nfwg2010_&m&u&d&u&i + (&&nfwg2018_&m&u&d&u&i - &&nfwg2010_&m&u&d&u&i)/8*(&yr - 2010); * scale wages by SSA average wage; TOTDIV = &&nfdiv2010_&m&u&d&u&i + (&&nfdiv2018_&m&u&d&u&i - &&nfdiv2010_&m&u&d&u&i)/8*(&yr - 2010); INTEREST = &&nfint2010_&m&u&d&u&i + (&&nfint2018_&m&u&d&u&i - &&nfint2010_&m&u&d&u&i)/8*(&yr - 2010); BUSN = &&nfbus2010_&m&u&d&u&i + (&&nfbus2018_&m&u&d&u&i - &&nfbus2010_&m&u&d&u&i)/8*(&yr - 2010); PENSION = &&nfret2010_&m&u&d&u&i + (&&nfret2018_&m&u&d&u&i - &&nfret2010_&m&u&d&u&i)/8*(&yr - 2010); PENSNT = 0; * PENSTX_calc = PENSION - PENSNT; SSAGIX = &&nfss2010_&m&u&d&u&i + (&&nfss2018_&m&u&d&u&i - &&nfss2010_&m&u&d&u&i )/8*(&yr - 2010); if SSAGIX<0 or SSAGIX=. then SSAGIX=0; UNEM = &&nfui2010_&m&u&d&u&i + (&&nfui2018_&m&u&d&u&i - &&nfui2010_&m&u&d&u&i )/8*(&yr - 2010); * very cyclical and so scale by total residual below; FTAX = &&nfitx2010_&m&u&d&u&i + (&&nfitx2018_&m&u&d&u&i - &&nfitx2010_&m&u&d&u&i)/8*(&yr - 2010); end; if (&yr >= 2018) then do; * 2018-forward: use 2018 nonfiler data (little change in averages between 2017 and 2018); %let nfinf = &&cpi&yr / &cpi2018; * adjust non-wage incomes using CPI-U index; if (&filingtype=19) then XWGT = &&nfsh_&m&u&d&u&yr * &&nfsh2018_&m&u&d&u&i * (&&xwgt_PS&yr + &&xwgt_20&yr + &&xwgt_noNR&yr + &&xwgt_mfs&yr)*1000; * share of demog group times share within-dem income group time total # corrected nf tax units; if (&filingtype=99) then XWGT = &&nfsh_&m&u&d&u&yr * &&nfsh2018_&m&u&d&u&i * (&&xwgt_PS&yr)*1000; * PS weights (PS income is elsewhere AGIX=&&psnfinc&yr); WAGE = &&wgindex&yr / &wgindex2018 * &&nfwg2018_&m&u&d&u&i; * scale wages by SSA average wage; TOTDIV = &nfinf * &&nfdiv2018_&m&u&d&u&i; INTEREST = &nfinf * &&nfint2018_&m&u&d&u&i; BUSN = &nfinf * &&nfbus2018_&m&u&d&u&i; PENSION = &nfinf * &&nfret2018_&m&u&d&u&i; PENSNT = 0; SSAGIX = &nfinf * &&nfss2018_&m&u&d&u&i; if SSAGIX<0 or SSAGIX=. then SSAGIX=0; UNEM = &nfinf * &&nfui2018_&m&u&d&u&i; * very cyclical and so scale by total residual below; FTAX = &nfinf * &&nfitx2018_&m&u&d&u&i; end; AGIX = WAGE + TOTDIV + INTEREST + BUSN + PENSION; EXEM=1; if marr=1 then do; mars=2; EXEM=2; end; AGEX=0; if (&d = 4) then AGEX=1; * over age 64; if (XWGT<=0)or(XWGT = .) then delete; ct=1; end; * marrgp demgp incgp; %end; %end; %end; * marriage, demographic, income groups; run; * update Nonfiler incomes; proc append base=TAB&yr data=NonFiler force; run; %end; * filingtype restrictions; data TAB&yr; set TAB&yr; * Nonfiler variables; if AGIX=. then AGIX=0; if WAGE=. then WAGE=0; if TOTDIV=. then TOTDIV=0; if BUSN=. then BUSN=0; if SSAGIX=. then SSAGIX=0; if FTAX=. then FTAX=0; if UNEM=. then UNEM=0; if PENSION=. then PENSION=0; if INTEREST=. then INTEREST=0; if (id=.) then do; WAGEnf=WAGE; BUSNnf=BUSN; RETnf=PENSION; end; * Add Employer Payroll Taxes to Income (OASDI + HI); if secap=. then secap=0; if secas=. then secas=0; if (&yr >= 1991) then do; * HI has higher cap since 1991 and uncapped since 1994; OASDI_BASE = WAGE; IF OASDI_BASE > &&OASDI_CAP&yr then do; OASDI_BASE = &&OASDI_CAP&yr; if (mars=2) then do; * mrate varies between 105 and 125 percent, first based on 2010 spousal wage links; if (WAGE>(&&OASDI_CAP&yr*1))and(WAGE<=(&&OASDI_CAP&yr*2)) then OASDI_BASE=min(WAGE,&&OASDI_CAP&yr*&&mrate&yr)*0.965; if (WAGE>(&&OASDI_CAP&yr*2))and(WAGE<=(&&OASDI_CAP&yr*3)) then OASDI_BASE=min(WAGE,&&OASDI_CAP&yr*&&mrate&yr)*1.10; if (WAGE>(&&OASDI_CAP&yr*3)) then OASDI_BASE=min(WAGE,&&OASDI_CAP&yr*&&mrate&yr)*1.04; if (WAGE>(&&OASDI_CAP&yr*5)) then OASDI_BASE=min(WAGE,&&OASDI_CAP&yr*&&mrate&yr)*1.00; if (&yr<=2000) then do; * based on 2000 spousal wage links; if (WAGE>(&&OASDI_CAP&yr*1))and(WAGE<=(&&OASDI_CAP&yr*2)) then OASDI_BASE=min(WAGE,&&OASDI_CAP&yr*&&mrate&yr)*0.91; if (WAGE>(&&OASDI_CAP&yr*2))and(WAGE<=(&&OASDI_CAP&yr*3)) then OASDI_BASE=min(WAGE,&&OASDI_CAP&yr*&&mrate&yr)*1.06; if (WAGE>(&&OASDI_CAP&yr*3)) then OASDI_BASE=min(WAGE,&&OASDI_CAP&yr*&&mrate&yr)*1.04; if (WAGE>(&&OASDI_CAP&yr*5)) then OASDI_BASE=min(WAGE,&&OASDI_CAP&yr*&&mrate&yr)*1.00; end; end; * married; end; OASDI = OASDI_BASE * &&OASDI&yr; IF OASDI = . THEN OASDI = 0; HI_BASE = WAGE; IF HI_BASE > &&HI_CAP&yr THEN HI_BASE = &&HI_CAP&yr; HI = HI_BASE*&&HI&yr; IF HI = . THEN HI = 0; FICA = OASDI + HI; IF FICA = . THEN FICA = 0; * employer FICA paid; ptholid = 0; if ((&yr=2011)or(&yr=2012)) then ptholid = OASDI_BASE*0.02; * Employee OASDI temporarily reduced by 2pp but not employer portion; FICAe = FICA - ptholid; * Employee FICA is usually the same as employer FICA; if FICAe = . THEN FICAe = 0; end; * since 1991; if (&yr < 1991) then do; * OASDI and HI cap is the same before 1991, based on 1974 spousal wage links; FICA_BASE = WAGE; if FICA_BASE > &&OASDI_CAP&yr then do; FICA_BASE = &&OASDI_CAP&yr; if (mars=2) then do; FICA_BASE=min(WAGE,&&OASDI_CAP&yr*&&mrate&yr); if (WAGE>(&&OASDI_CAP&yr*1))and(WAGE<=(&&OASDI_CAP&yr*2)) then FICA_BASE=min(WAGE,&&OASDI_CAP&yr*&&mrate&yr)*0.97; if (WAGE>(&&OASDI_CAP&yr*2))and(WAGE<=(&&OASDI_CAP&yr*3)) then FICA_BASE=min(WAGE,&&OASDI_CAP&yr*&&mrate&yr)*1.17; if (WAGE>(&&OASDI_CAP&yr*3)) then FICA_BASE=min(WAGE,&&OASDI_CAP&yr*&&mrate&yr)*1.08; end; * married; end; if (&yr=1960) then FICA_BASE=FICA_BASE*0.95; * adjustment to not exceed national totals; OASDI = FICA_BASE*(&&OASDI&yr); IF OASDI = . THEN OASDI = 0; FICA = FICA_BASE*(&&HI&yr + &&OASDI&yr); if FICA = . THEN FICA = 0; FICAe = FICA; * Employee FICA is usually the same as employer FICA; if (&yr=1984) then FICAe = FICA_BASE*(&&HI&yr - 0.003 + &&OASDI&yr); IF FICAe = . THEN FICAe = 0; * In 1984 only, an immediate credit of 0.3 percent of taxable wages was allowed against the OASDI taxes paid by employees, resulting in an effective employee tax rate of 5.4 percent https://www.ssa.gov/oact/progdata/taxRates.html; end; * not all spouses work: http://www.bls.gov/cps/wlf-databook-2012.pdf, 59% of married both work in 2010; if (&yr > 2010) then do; UI_base = 7000; if (mars=2) then UI_base=UI_base*2*0.80; if (wage 1980)and(&yr<1990) then UI = UI*1.05; if (&yr>=1990)and(&yr<1995) then UI = UI*1.10; if (&yr>=1995)and(&yr<2005) then UI = UI*1.15; if (&yr>=2005)and(&yr<2010) then UI = UI*1.25; if (&yr>=2010) then UI = UI*1.35; * CAPITAL GAINS EXCLUSION CORRECTION; X004 = CGSD; if (%eval(&yr) le 1978) then X004 = CGACT; IF X004 = . THEN X004 = 0; * before 1978 replace capital gains in AGI with actual amounts (accounding for 50% exclusion 1942-1978); IF (&yr ge 1979) and (&yr le 1986) and (X004>0) then X004 = X004*2.5; * 60% exclusion on positive cap gains 1979-1986, 50% exclusion on positive cap gains 1942-1978 is already accounted for; IF GAMBLS = . THEN GAMBLS = 0; * loss deduction sch A, positive; IF NOLS = . THEN NOLS = 0; *net operating loss from previous years, positive; IF NTINT = . THEN NTINT = 0; IF TOTDIV = . or DIVID>TOTDIV THEN TOTDIV = DIVID; IF EXDIV = . THEN EXDIV = TOTDIV-DIVID; IF TSSA = . THEN TSSA = 0; IF TUNEM = . and (id ne .) THEN TUNEM = UNEM; * unemployment was partially taxable before 1988, fully in AGI after that, and not on 1040 or AGI before 1979; IF PASNDLS = . THEN PASNDLS = 0; IF RENTNDLS = . THEN RENTNDLS = 0; IF PENSTX = . THEN PENSTX = 0; if PENSION = . then PENSION= 0; if PENSNT = . then PENSNT= 0; IF SETX = . THEN SETX = 0; IF SSTX = . THEN SSTX = 0; IF SITX = . THEN SITX = 0; IF PRPD = . THEN PRPD = 0; IF TAX = . THEN TAX = 0; IF STXD = . THEN STXD = 0; IF OTHR = . THEN OTHR = 0; IF FARM = . THEN FARM = 0; IF DED = . THEN DED = 0; IF ESREBATE = . THEN ESREBATE = 0; IF WAGE = . THEN WAGE = 0; IF TOTDIV = . THEN TOTDIV = 0; IF X004 = . THEN X004 = 0; IF INTEREST = . THEN INTEREST = 0; IF CGDS = . THEN CGDS = 0; IF FTC = . THEN FTC = 0; IF CGACT = . THEN CGACT = 0; IF IRA = . THEN IRA = 0; IF EMPEX = . THEN EMPEX = 0; IF TRUST = . THEN TRUST = 0; IF ALIMRC = . THEN ALIMRC = 0; IF ALIMPD = . THEN ALIMPD = 0; IF CGOTH = . THEN CGOTH = 0; IF MID = . THEN MID = 0; IF EXEM = . THEN EXEM = 1; IF EXEM = 0 THEN EXEM = 1; if UI = . then UI= 0; if FICA = . then FICA= 0; if FICAe = . then FICAe= 0; if SECA = . then SECA= 0; if AGIX = . then AGIX= 0; if STATADJ = . then STATADJ= 0; if UNEM = . then UNEM= 0; if NDLoss = . then NDLoss= 0; if STXRF = . then STXRF= 0; if NOLS = . then NOLS= 0; if EXDIV = . then EXDIV= 0; if CGDS = . then CGDS= 0; if IMP_SSA2 = . then IMP_SSA2= 0; if PropDepr = . then PropDepr= 0; if PropExpn = . then PropExpn= 0; if REFCR =. then REFCR = 0; if PropExpn =. then PropExpn = 0; if TXPENS =. then TXPENS = 0; if SS1099t =. then SS1099t=0; if SS1099t2 =. then SS1099t2=0; if DC_FMVt =. then DC_FMVt=0; * Dependent Status Indicator: 0 if not being claimed, 1 if claimed; IF (DSI ne .) THEN DEPD = DSI; depun=0; if (&yr >= 1979)and(&yr <= 1986)and(DEPINC=1) then do; DEPD=1; depun=1; end; * dependent with unearned income box checked (also have SSNs from 1987 identified in these years); if (&yr < 1979)and(DEPD=1) then depun=1; * only way dependents identified before 1972-1979 (no SSNs available); if (&yr >= 1962)and(&yr<1972)and(AGEX = 0)and(AGIX>1500*&&cpi&yr/&cpi1978)and(AGIX< 4500*&&cpi&yr/&cpi1978)and(mars ne 2)and(TOTDIV>200*&&cpi&yr/&cpi1978 and TOTDIV< 4500*&&cpi&yr/&cpi1978) then depun=1; if (&yr=1960) and(AGIX>2000*&&cpi&yr/&cpi1978)and(AGIX< 4000*&&cpi&yr/&cpi1978)and(mars ne 2)and(TOTDIV>200*&&cpi&yr/&cpi1978 and TOTDIV< 4000*&&cpi&yr/&cpi1978) then depun=1; *1960 missing AGEX; * Nonresident filers; nr=0; if ((state>51)or(forex>0)) then nr=1; * since 1979 for state and 1976 forex, not in any state or DC or foreign earned income exclusion; if (&yr<1979) and (OTHR<100) and (wage>100) and (wage<(-OTHR+50)) and (wage>(-OTHR-50)) then nr=1; * if other income offsets wages then probably using foreign earned income exclusion; * Filing Types by age, dependency and residency; less20=0; ov20dep=0; remNR=0; eq20=0; * initialize total counts for summary statistics; if (id ne .) then do; * only filers; if (&yr >= 2016) then yob_dm1=dobyr; age = &yr - yob_dm1; if (&yr >=1987) then do; * have both age and dependent status; if (yob_dm1 > (&yr - 20)) or ((yob_dm1 = (&yr - 20))and(dob_dm1 > 0701)) then less20=1; * less than 20 on July 1st to fit Census age definitions; if (yob_dm1 = (&yr - 20)) then eq20=1; if (yob_dm1 = .)or(yob_dm1=0) then less20=0; if (less20=0) and (DEPD = 1) then ov20dep=1; if (less20=0) and (ov20dep=0) and (nr=1) then remNR=1; end; if (&yr >=1979)and(&yr<1987) then do; * only have age, no overall dependent status (only a small fraction with unearned income box checked); if (yob_dm1 > (&yr - 20)) or ((yob_dm1 = (&yr - 20))and(dob_dm1 > 0701)) then less20=1; * less than 20 on July 1st to fit Census age definitions; if (yob_dm1 = (&yr - 20)) then eq20=1; if (yob_dm1 = .)or(yob_dm1=0) then less20=0; if (depun=1) then less20=1; * include all dependent filers with unearned income before 1979 with less than 20 group; if (less20=0) and (nr=1) then remNR=1; end; %let age25=1; %if (&filingtype=20) %then %let age25=1.3; if (&yr <1979) then do; if (&yr>=1973)and(&yr<1979)and(AGEX = 0)and(AGIX>1400*&&cpi&yr/&cpi1978)and(AGIX<4200*&age25*&&cpi&yr/&cpi1978)and(mars ne 2) then less20=1; if (&yr>=1965)and(&yr<1973)and(AGEX = 0)and(AGIX>2200*&&cpi&yr/&cpi1978)and(AGIX<5500*&age25*&&cpi&yr/&cpi1978)and(mars ne 2) then less20=1; if (&yr>=1962)and(&yr<1965)and(AGEX = 0)and(AGIX>2200*&&cpi&yr/&cpi1978)and(AGIX<5000*&age25*&&cpi&yr/&cpi1978)and(mars ne 2) then less20=1; if (&yr=1960) and(AGEX = 0)and(AGIX>2200*&&cpi&yr/&cpi1978)and(AGIX<4500*&age25*&&cpi&yr/&cpi1978)and(mars ne 2) then less20=1; if (depun=1) then less20=1; * include all dependent filers with unearned income before 1979 with less than 20 group because have no ages available; if (less20=0) and (nr=1) then remNR=1; end; end; * only filers; * remove dependent filers and if <20 year old filers (based on July 1st, as Census total used); IF ((&filingtype=18)or(&filingtype=19)or(&filingtype=23)or(&filingtype=25))and(&yr >=1979) then do; if (DEPD=1) then delete; if (yob_dm1 > (&yr - 20)) then delete; if ((yob_dm1 = (&yr - 20))and(dob_dm1 > 0701)) then delete; end; IF ((&filingtype=18)or(&filingtype=19)or(&filingtype=20)or(&filingtype=23)or(&filingtype=25))and(&yr<1979)and(less20=1) then delete; * remove imputed filers younger than 20 years old for years before 1979; IF ((&filingtype=19)or(&filingtype=20)or(&filingtype=23)or(&filingtype=25))and(nr=1) then delete; * remove nonresident filers (not in any state or DC or max foreign earned income exclusion); * remove dependent filers and if <25 year old filers (based on July 1st, as Census total used); IF ((&filingtype=20))and(&yr >=1979) then do; if (DEPD=1) then delete; if (yob_dm1 > (&yr - 25)) then delete; if ((yob_dm1 = (&yr - 25))and(dob_dm1 > 0701)) then delete; end; PENSTX_calc = PENSION - PENSNT; if (%eval(&yr) < 1979) then PENSTX_calc = PENSION; IF PENSTX_calc = . THEN PENSTX_calc = 0; if (%eval(&yr) < 1979) then TXPENS = PENSION; * essentially no nontaxable rollovers in early decades; if (%eval(&yr) < 1987) then NTINT = 0; * added below early years; if (%eval(&yr) < 1972) then GAMBLS= 0; if (%eval(&yr) < 1970) then CGDS= 0; * cap gains distriubtions were included in Sch. D before 1970; count=1; *************************** * Remove post-TRA non-deductible losses before TRA86; * For tax returns with incomes below the threshold, they are set at 20% of partnership/S corporation losses; NDLoss = -0.20*min(0,PARTSCP); * Tax units with positive market incomes (no capital gains) over $100,000 in 1987 dollars (indexed in earlier years), impute 85% of partnership/S corporation losses and 30% of rental losses as being non-deductible; if (abs(AGIX + STATADJ - SSAGIX - UNEM - CGSD)>100000*&&cpi&yr/&cpi1987)and(id ne .) then do; NDLoss = -0.85*min(0,PARTSCP) - 0.30*min(0,RENTS-TRUST); PASNDLS100=PASNDLS; RENTNDLS100=RENTNDLS; NDLoss100=NDLoss; end; if (&yr=1960)or(&yr>=1987) then NDLoss=0; * variables missing in 1960, 1960 corrected in EST_DIST; if (&incometype >= 101) and (&yr<1987) then PARTSCP = PARTSCP + NDLoss; * most passive loss limitations likely affected partnership tax shelters; ***************************; * Remove taxable retirement distributions, which is not income but an asset value, use years of death for primary taxpayer (available since 1979) and amounts exceeding $250,000; if (&yr >= 1979) and (&yr <= 1987) and (yod_dm1 ne 0) and (yod_dm1 ne .) and (yod_dm1 <= FLPDYR) and (PENSTX_calc >= (250000 * &&cpi&yr / &cpi2015)) then RETDEC = PENSTX_calc; if (&yr >= 1988) and (&yr <= 1999) and (yod_dm1 ne 0) and (yod_dm1 ne .) and (yod_dm1 <= FLPDYR) and (PENSTX_calc >= (250000 * &&cpi&yr / &cpi2015)) then RETDEC = PENSTX_calc; if (&yr >= 2000) and ((dodyr ne 0 and dodyr <= FLPDYR) or (sdodyr ne 0 and sdodyr <= FLPDYR)) and (PENSTX_calc >= (250000 * &&cpi&yr / &cpi2015)) then RETDEC = PENSTX_calc; if RETDEC=. then RETDEC=0; * Social Security: use reported but update with SSA-1099 amounts when available (pre-1985 imputed below); IMP_SSA2 = 0; if (&yr>=1985)and(id ne .) then IMP_SSA2 = TSSA; * since 1985: SS benefits reported on tax returns (filers only); if ((&yr=1985)or(&yr>=1987))and(id ne .)and(SS1099t ne .)and(SS1099t>IMP_SSA2) then IMP_SSA2 = SS1099t; * 1985 and since 1987: larger SSA-1099 info return amount replaces tax return amount; SSnf = 0; if (id=.) then do; SSnf = SSAGIX; SSAGIX=0; end; * nonfilers move SS to SSnf; * Unemployment Insurance (UI, pre-1981 imputed below); UNEM2 = 0; if (&yr>1980)and(id ne .) then UNEM2 = TUNEM; if ((UNEM2<0)or(UNEM2=.)) then UNEM2 = 0; * reported UI since 1980; UNEMnf = 0; if (id=.) then do; UNEMnf = UNEM; UNEM=0; end; * nonfilers move UNEM to UNEMnf; * Simplifying variables for different income definitions; FTAX = TAX - SETX; if (FTAX <0) then FTAX =0; * federal income taxes exclude self-employment taxes (part of payroll taxes) and refundable credits allocated elsewhere; IPTAX = STXD - SITX - SSTX; * set personal property tax to total tax deduction less income and sales; *if (&yr>=2018) then IPTAX = PPRD; * alt method since 2018 due to SALT; if (IPTAX<0)or(IPTAX=.) then IPTAX=0; WTAX = FICA + FICAe + UI + SETX; * payroll taxes included employee, employer portions and self-employment tax; * breakouts of state tax deductions not listed in some years, as aggregate deductions were targeted but are progressive, make indiv property deductions (real estate and personal property) match surrounding years; if ((&yr>=1967)and(&yr<=1971)) then do; if (AGIX <= &&at90cut&yr) then IPTAX = IPTAX*0.6; if (AGIX > &&at90cut&yr)and(AGIX <= &&at95cut&yr) then IPTAX = IPTAX*1.3; if (AGIX > &&at95cut&yr)and(AGIX <= &&at99cut&yr) then IPTAX = IPTAX*1.5*(1+0.05*(%eval(&yr-1967))); if (AGIX > &&at99cut&yr) then IPTAX = IPTAX*3.6*(1+0.30*(%eval(&yr-1967))); end; if (&yr=1974)or(&yr=1976)or(&yr=1978) then do; if (AGIX <= &&at90cut&yr) then IPTAX = IPTAX*1.25; * set to match total deduction trend, probably due to 90% cutback or removing excess sales/income taxes; if (AGIX > &&at90cut&yr)and(AGIX <= &&at95cut&yr) then IPTAX = IPTAX*0.85; if (AGIX > &&at95cut&yr)and(AGIX <= &&at99cut&yr) then IPTAX = IPTAX*0.9; if (AGIX > &&at99cut&yr) then IPTAX = IPTAX*2.0; end; * Property tax deductions: allocate for years when itemized deductions missing from data; if (&yr=1960) then PRPD = (STXD-SITX-SSTX)*0.75; if (&yr=1967)or(&yr=1968)or(&yr=1969)or(&yr=1970)or(&yr=1971)or(&yr=1974)or(&yr=1976)or(&yr=1978) then PRPD = IPTAX*0.90; * Define dependents as exemptions less number of filers; deps = EXEM - 1; if (mars=2) then deps = EXEM - 2; if (less20=1) or (ov20dep=1) or (deps <0) then deps = 0; * assign no dependents to dependent filers or <20 year olds; if (&yr < 1966) then TRUST=0; pTRUST=TRUST; if (pTRUST)<0 then pTRUST=0; capinc = TOTDIV + INTEREST + X004; * capital income for dependent income allocation; depinccap=0; if (DEPD=1)or(less20=1)or(depun=1) then depincap=capinc; depuninccap=0; if (depun=1) then depunincap=capinc; DBwg = wage + SECA/(&&OASDI&yr + &&HI&yr); run; * Estimate Fiduciary income (TRUST) totals and merge onto data; proc means data=TAB&yr; var count; weight xwgt; output out=totals mean(count)=count sum(pTRUST deps capinc) = totTRUST depstot capinctot; run; data TAB&yr; merge TAB&yr totals; by count; run; * Earnings distribution with filers and nonfilers; %Group40(TAB&yr, DBwg, XWGT, WgGrp40, wgcut40); data TAB&yr; set TAB&yr; UNDTRST = 0; * initialize; if (&yr >= 1966) then do; * Divide distributed fiduciary income (estates and trusts) to interest, dividends, and other by taxable positive fiduciary income (cap gains already in Sch D cap gains) ; INTEREST = INTEREST + pTRUST*(&&trint&yr/(&&trint&yr+&&trdiv&yr+&&troth&yr)); TOTDIV = TOTDIV + pTRUST*(&&trdiv&yr/(&&trint&yr+&&trdiv&yr+&&troth&yr)); RENTS = RENTS + pTRUST*(&&troth&yr/(&&trint&yr+&&trdiv&yr+&&troth&yr)); * almost all other fiduciary income is from rents; * Allocate undistributed fiduciary income by positive distributed trust income (before 1966 missing variable and so allocated by 1966 distribution to income groups 0.137 0.298 0.093 0.112 0.190 0.044); if (&incometype>=221) then do; UNDTRST = 1000000*(&&trint&yr+&&trdiv&yr+&&troth&yr)*pTRUST/totTRUST; * pre-tax income, includes all fiduciary state and federal income taxes (not estate tax); INTEREST = INTEREST + 1000000*&&trint&yr*pTRUST/totTRUST; TOTDIV = TOTDIV + 1000000*&&trdiv&yr*pTRUST/totTRUST; RENTS = RENTS + 1000000*&&troth&yr*pTRUST/totTRUST; * most other fiduciary income is from rents; X004 = X004 + 1000000*&&trcg&yr *pTRUST/totTRUST; * capital gains; SITX = SITX + 1000000*&&trstx&yr*pTRUST/totTRUST; * state fiduciary taxes paid; FTAX = FTAX + 1000000*&&trftx&yr*pTRUST/totTRUST; * federal fiduciary taxes paid; end; * Undistributed fiduciary income; end; * since 1966; * Positive values only: partnership/Scorp, sole props, cag gains sch D; pPARTSCP=PARTSCP; if (pPARTSCP)<0 then pPARTSCP=0; pBUSN=BUSN; if (pBUSN) <0 then pBUSN =0; pX004=X004; if (pX004) <0 then pX004 =0; pINTEREST=INTEREST; if (pINTEREST) <0 then pINTEREST =0; pfarm=FARM; if (pfarm) <0 then pfarm =0; prent=RENTS; if (prent) <0 then prent =0; pbusn=BUSN; if (pbusn) <0 then pbusn =0; avPassTh=abs(PARTSCP)+abs(BUSN)+abs(RENTS)+abs(FARM); if (avPassTh)=. then avPassTh=0; * for bus property tax: absolute value of net income for each of the following: partnerships and S corporations, Sch. C businesses, rents, and Sch. F farms; *************************** * DISTRIBUTE DEPENDENT INCOME; if (&filingtype>=18) then do; AGIX = AGIX + 1000000*((&&depinc&yr-&&depincap&yr)*(deps/depstot)+&&depincap&yr*(capinc/capinctot)); * distribute dependent income by share of dependents claimed or capital income; WAGE = WAGE + 1000000*&&depwas&yr*(deps/depstot); TOTDIV = TOTDIV + 1000000*(&&depinc&yr-&&depwas&yr)*(capinc/capinctot); * assign rest of dependent income to dividends by capital income; end; if (&filingtype=20) then do; * account for additional income if min age of 25 (select years); if (&yr=1962) then AGIX = AGIX + 1000000*((&&depinc&yr-&&depincap&yr + 905)*(deps/depstot)+&&depincap&yr*(capinc/capinctot)); if (&yr=1979) then AGIX = AGIX + 1000000*((&&depinc&yr-&&depincap&yr + 73066)*(deps/depstot)+&&depincap&yr*(capinc/capinctot)); if (&yr=2015) then AGIX = AGIX + 1000000*((&&depinc&yr-&&depincap&yr + 218185)*(deps/depstot)+&&depincap&yr*(capinc/capinctot)); end; ******************************; * Disposable income (for sales and other tax)= after-tax income less retained earnings, ESI, imputed rent, (and tax-exempt interest, SS and UI in most pre-1987 years); DISP_INC = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + UNDTRST + FICA + UI + IMP_SSA2 + UNEM2 + ESREBATE - FTAX - FTC - SITX - PRPD - WTAX; if (DISP_INC < 0)or(DISP_INC=.) then DISP_INC = 0; * take care of negative incomes; if (DISP_INC <= &&at90cut&yr) then DISP_INC = DISP_INC*(1-0.10); * Assume savings rate is 10% if in bottom 90 percent of after-tax distribution, Dynan Skinner Zeldes (2004) table 3 SCF data https://www.dartmouth.edu/~jskinner/documents/DynanKEDotheRich.pdf. Also, see savings rates in Saez Zucman (2016) Figure IX;; if (DISP_INC > &&at90cut&yr)and(DISP_INC <= &&at95cut&yr) then do; DISP_INC = DISP_INC*(1-0.24); if (&yr=1960) then DISP_INC=DISP_INC*0.96; end; * Assume savings rate is 24% if in P90-95 and reduce 1960 amount based on 1962 property tax; if (DISP_INC > &&at95cut&yr)and(DISP_INC <= &&at99cut&yr) then do; DISP_INC = DISP_INC*(1-0.37); if (&yr=1960) then DISP_INC=DISP_INC*0.94; end; * assume savings rate is 37% for P95-P99 and reduce 1960 amount based on 1962 property tax; if (DISP_INC > &&at99cut&yr) then do; DISP_INC = DISP_INC*(1-0.51); if (&yr=1960) then DISP_INC=DISP_INC*0.89; end; * assume savinge rate is 51% for top 1 percent and reduce 1960 amount based on 1962 property tax; if (DISP_INC > &&at999cut&yr) then do; DISP_INC = DISP_INC*(1-0.80); if (&yr=1960) then DISP_INC=DISP_INC*0.89; end; * assume savinge rate is 80% for top 0.1 percent and reduce 1960 amount based on 1962 property tax; if (IncGrp=1)and(id ne .) then DISP_INC = DISP_INC*(1-0.05); * Assume savings rate is 5% if in bottom 50 percent of filer AGI distribution (nonfilers have no savings); if (DISP_INC < 0)or(DISP_INC=.) then DISP_INC = 0; * Remove variables in years for which use distribution of surrounding years in EST_DIST; if (&yr=1960)or((&yr>=1967)and(&yr<=1971))or(&yr=1974)or(&yr=1976)or(&yr=1978) then SITX=0; * 65+ Year Old Population; o64_t=.; *if (&yr=1960)and(WAGE>0) then AGEX=1; if (count=1)and(&yr<1979)and(AGEX ne 0) then o64_t=1; if (count=1)and(&yr<1979)and(AGEX ne 0)and(mars=2) then o64_t=1.9; if (count=1)and(&yr>=1979)and(yob_dm1 <= (&yr - 65)) then o64_t=1; if (count=1)and(&yr>=1979)and(yob_dm1 <= (&yr - 65))and(mars=2) then o64_t=1.9; year= &yr; gp=1; apass=0; if WAGE=. then WAGE=0; w=WAGE;* 100 % of wages selected for underreported wages; if (IncGrp>=4)and(mod(_N_,100)>=70 and mod(_N_,100)<80 ) then apass = abs(PARTSCP + BUSN + FARM + RENTS); * 10% of tax units in top 5% selected for underreported business income, the 10% and 50% fractions were calibrated before attributing any unreported income to nonfilers; if (IncGrp< 4)and(mod(_N_,100)>=50 and mod(_N_,100)<100) then apass = abs(PARTSCP + BUSN + FARM + RENTS); * 50% of tax units in the bottom 95% selected for underreported business income, below 99% need business income less concentrated or else push up shares too much; ap0=0; w0=0; wm0=0; ws0=0; a1=0; if (IncGrp=1)and(AGIXa <0) then do; gp=1; ap0=apass; w0=w; if (mars=2) then wm0=w; if (mars ne 2) then ws0=w; a1=0; d1=TOTDIV; o641=o64_t; end; * negative AGI; ap1=0; w1=0; wm1=0; ws1=0; if (IncGrp=1)and(AGIXa>=0) then do; gp=1; ap1=apass; w1=w; if (mars=2) then wm1=w; if (mars ne 2) then ws1=w; a1=AGIX; d1=TOTDIV; o641=o64_t; end; * bottom 50% (exclude negative AGI); ap2=0; w2=0; wm2=0; ws2=0; a2=0; if (IncGrp=2) then do; gp=2; ap2=apass; w2=w; if (mars=2) then wm2=w; if (mars ne 2) then ws2=w; a2=AGIX; d2=TOTDIV; o642=o64_t; end; * P50-90; ap3=0; w3=0; wm3=0; ws3=0; a3=0; if (IncGrp=3) then do; gp=3; ap3=apass; w3=w; if (mars=2) then wm3=w; if (mars ne 2) then ws3=w; a3=AGIX; d3=TOTDIV; o643=o64_t; end; ap4=0; w4=0; wm4=0; ws4=0; a4=0; if (IncGrp=4) then do; gp=4; ap4=apass; w4=w; if (mars=2) then wm4=w; if (mars ne 2) then ws4=w; a4=AGIX; d4=TOTDIV; o644=o64_t; end; ap5=0; w5=0; wm5=0; ws5=0; a5=0; if (IncGrp=5) then do; gp=5; ap5=apass; w5=w; if (mars=2) then wm5=w; if (mars ne 2) then ws5=w; a5=AGIX; d5=TOTDIV; o645=o64_t; end; * P99.0-99.5; ap6=0; w6=0; wm6=0; ws6=0; a6=0; if (IncGrp=6) then do; gp=6; ap6=apass; w6=w; if (mars=2) then wm6=w; if (mars ne 2) then ws6=w; a6=AGIX; d6=TOTDIV; o646=o64_t; end; * P99.5-99.9; ap7=0; w7=0; wm7=0; ws7=0; a7=0; if (IncGrp=7) then do; gp=7; ap7=apass; w7=w; if (mars=2) then wm7=w; if (mars ne 2) then ws7=w; a7=AGIX; d7=TOTDIV; o647=o64_t; end; * P99.9-99.99; ap8=0; w8=0; wm8=0; ws8=0; a8=0; if (IncGrp=8) then do; gp=8; ap8=apass; w8=w; if (mars=2) then wm8=w; if (mars ne 2) then ws8=w; a8=AGIX; d8=TOTDIV; o648=o64_t; end; * top 0.01%; if a1<0 then a1=0; if a2<0 then a2=0; if (id=.) then nfagi = AGIX; if nfagi=. then nfagi=0; if (id=.) then nfwg = WAGE; if nfwg =. then nfwg =0; * DEFINED CONTRIBUTION WEALTH: Form 5498 links and SCF imputations by income and age groups; %let dcp_1_1_1983=0.027; %let dcp_1_2_1983=0.086; %let dcp_1_3_1983=0.046; %let dcp_1_4_1983=0.012; %let dcp_2_1_1983=0.152; %let dcp_2_2_1983=0.32; %let dcp_2_3_1983=0.226; %let dcp_2_4_1983=0.096; %let dcp_3_1_1983=0.358; %let dcp_3_2_1983=0.598; %let dcp_3_3_1983=0.612; %let dcp_3_4_1983=0; %let dcp_4_1_1983=0.45; %let dcp_4_2_1983=0.673; %let dcp_4_3_1983=0.496; %let dcp_4_4_1983=0; %let dcp_5_1_1983=0.894; %let dcp_5_2_1983=0.901; %let dcp_5_3_1983=0.581; %let dcp_5_4_1983=0.5; %let dcp_6_1_1983=0.792; %let dcp_6_2_1983=0.821; %let dcp_6_3_1983=0.817; %let dcp_6_4_1983=0.026; %let dcp_7_1_1983=0.975; %let dcp_7_2_1983=0.845; %let dcp_7_3_1983=0.653; %let dcp_7_4_1983=0; %let dcp_8_1_1983=1; %let dcp_8_2_1983=0.644; %let dcp_8_3_1983=1; %let dcp_8_4_1983=0.189; %let dcm_1_1_1983=2054; %let dcm_1_2_1983=6544; %let dcm_1_3_1983=14203; %let dcm_1_4_1983=7417; %let dcm_2_1_1983=3478; %let dcm_2_2_1983=6400; %let dcm_2_3_1983=5456; %let dcm_2_4_1983=6758; %let dcm_3_1_1983=6016; %let dcm_3_2_1983=8823; %let dcm_3_3_1983=31443; %let dcm_3_4_1983=0; %let dcm_4_1_1983=4334; %let dcm_4_2_1983=16525; %let dcm_4_3_1983=36810; %let dcm_4_4_1983=0; %let dcm_5_1_1983=44859; %let dcm_5_2_1983=32981; %let dcm_5_3_1983=50371; %let dcm_5_4_1983=64000; %let dcm_6_1_1983=25804; %let dcm_6_2_1983=41390; %let dcm_6_3_1983=148342; %let dcm_6_4_1983=127000; %let dcm_7_1_1983=39801; %let dcm_7_2_1983=62819; %let dcm_7_3_1983=29083; %let dcm_7_4_1983=0; %let dcm_8_1_1983=20000; %let dcm_8_2_1983=21136; %let dcm_8_3_1983=23000; %let dcm_8_4_1983=140000; %let dcs_1_1_1983=1247; %let dcs_1_2_1983=3281; %let dcs_1_3_1983=2532; %let dcs_1_4_1983=1655; %let dcs_2_1_1983=436; %let dcs_2_2_1983=671; %let dcs_2_3_1983=1157; %let dcs_2_4_1983=2292; %let dcs_3_1_1983=1161; %let dcs_3_2_1983=1825; %let dcs_3_3_1983=8052; %let dcs_3_4_1983=0; %let dcs_4_1_1983=739; %let dcs_4_2_1983=3051; %let dcs_4_3_1983=11865; %let dcs_4_4_1983=0; %let dcs_5_1_1983=15841; %let dcs_5_2_1983=9902; %let dcs_5_3_1983=40669; %let dcs_5_4_1983=40669; %let dcs_6_1_1983=7565; %let dcs_6_2_1983=16401; %let dcs_6_3_1983=54553; %let dcs_6_4_1983=54553; %let dcs_7_1_1983=26077; %let dcs_7_2_1983=15659; %let dcs_7_3_1983=8427; %let dcs_7_4_1983=0; %let dcs_8_1_1983=12319; %let dcs_8_2_1983=12319; %let dcs_8_3_1983=15000; %let dcs_8_4_1983=15000; %let dcp_1_1_1989=0.114; %let dcp_1_2_1989=0.189; %let dcp_1_3_1989=0.203; %let dcp_1_4_1989=0.034; %let dcp_2_1_1989=0.473; %let dcp_2_2_1989=0.606; %let dcp_2_3_1989=0.672; %let dcp_2_4_1989=0.281; %let dcp_3_1_1989=0.797; %let dcp_3_2_1989=0.858; %let dcp_3_3_1989=0.448; %let dcp_3_4_1989=0.121; %let dcp_4_1_1989=0.776; %let dcp_4_2_1989=0.846; %let dcp_4_3_1989=0.939; %let dcp_4_4_1989=0.288; %let dcp_5_1_1989=1; %let dcp_5_2_1989=0.987; %let dcp_5_3_1989=0.99; %let dcp_5_4_1989=0.175; %let dcp_6_1_1989=0.495; %let dcp_6_2_1989=0.943; %let dcp_6_3_1989=0.753; %let dcp_6_4_1989=0.014; %let dcp_7_1_1989=1; %let dcp_7_2_1989=0.969; %let dcp_7_3_1989=0.741; %let dcp_7_4_1989=0.634; %let dcp_8_1_1989=0.129; %let dcp_8_2_1989=0.98; %let dcp_8_3_1989=0; %let dcp_8_4_1989=0.986; %let dcm_1_1_1989=13248; %let dcm_1_2_1989=70100; %let dcm_1_3_1989=26532; %let dcm_1_4_1989=49382; %let dcm_2_1_1989=24619; %let dcm_2_2_1989=53333; %let dcm_2_3_1989=113275; %let dcm_2_4_1989=67897; %let dcm_3_1_1989=138157; %let dcm_3_2_1989=139104; %let dcm_3_3_1989=204612; %let dcm_3_4_1989=51506; %let dcm_4_1_1989=79555; %let dcm_4_2_1989=198368; %let dcm_4_3_1989=164427; %let dcm_4_4_1989=49169; %let dcm_5_1_1989=173769; %let dcm_5_2_1989=505695; %let dcm_5_3_1989=364110; %let dcm_5_4_1989=221667; %let dcm_6_1_1989=80852; %let dcm_6_2_1989=359370; %let dcm_6_3_1989=437199; %let dcm_6_4_1989=1434758; %let dcm_7_1_1989=245025; %let dcm_7_2_1989=962612; %let dcm_7_3_1989=1444777; %let dcm_7_4_1989=40569; %let dcm_8_1_1989=699698; %let dcm_8_2_1989=2903850; %let dcm_8_3_1989=0; %let dcm_8_4_1989=27988; %let dcs_1_1_1989=1983286; %let dcs_1_2_1989=17549431; %let dcs_1_3_1989=2361439; %let dcs_1_4_1989=4574260; %let dcs_2_1_1989=3429994; %let dcs_2_2_1989=6392813; %let dcs_2_3_1989=17691280; %let dcs_2_4_1989=4694956; %let dcs_3_1_1989=22275405; %let dcs_3_2_1989=10827811; %let dcs_3_3_1989=16792162; %let dcs_3_4_1989=669881; %let dcs_4_1_1989=4885022; %let dcs_4_2_1989=12794361; %let dcs_4_3_1989=16299125; %let dcs_4_4_1989=3000619; %let dcs_5_1_1989=10607448; %let dcs_5_2_1989=24104422; %let dcs_5_3_1989=8380234; %let dcs_5_4_1989=2481243; %let dcs_6_1_1989=2483735; %let dcs_6_2_1989=14250171; %let dcs_6_3_1989=15907634; %let dcs_6_4_1989=18558957; %let dcs_7_1_1989=1661154; %let dcs_7_2_1989=21252823; %let dcs_7_3_1989=13873954; %let dcs_7_4_1989=1219982; %let dcs_8_1_1989=0; %let dcs_8_2_1989=34022446; %let dcs_8_3_1989=0; %let dcs_8_4_1989=0; %let dcp_1_1_1992=0.134; %let dcp_1_2_1992=0.219; %let dcp_1_3_1992=0.263; %let dcp_1_4_1992=0.044; %let dcp_2_1_1992=0.505; %let dcp_2_2_1992=0.638; %let dcp_2_3_1992=0.577; %let dcp_2_4_1992=0.192; %let dcp_3_1_1992=0.663; %let dcp_3_2_1992=0.815; %let dcp_3_3_1992=0.845; %let dcp_3_4_1992=0.19; %let dcp_4_1_1992=0.681; %let dcp_4_2_1992=0.903; %let dcp_4_3_1992=0.93; %let dcp_4_4_1992=0.66; %let dcp_5_1_1992=0.929; %let dcp_5_2_1992=0.917; %let dcp_5_3_1992=0.676; %let dcp_5_4_1992=0.203; %let dcp_6_1_1992=0.999; %let dcp_6_2_1992=0.927; %let dcp_6_3_1992=0.813; %let dcp_6_4_1992=0.256; %let dcp_7_1_1992=0.911; %let dcp_7_2_1992=0.943; %let dcp_7_3_1992=0.782; %let dcp_7_4_1992=0.652; %let dcp_8_1_1992=0.845; %let dcp_8_2_1992=0.874; %let dcp_8_3_1992=0.692; %let dcp_8_4_1992=0.107; %let dcm_1_1_1992=7870; %let dcm_1_2_1992=33321; %let dcm_1_3_1992=39456; %let dcm_1_4_1992=26071; %let dcm_2_1_1992=29402; %let dcm_2_2_1992=64855; %let dcm_2_3_1992=98386; %let dcm_2_4_1992=78816; %let dcm_3_1_1992=53522; %let dcm_3_2_1992=122634; %let dcm_3_3_1992=149406; %let dcm_3_4_1992=413064; %let dcm_4_1_1992=102957; %let dcm_4_2_1992=241706; %let dcm_4_3_1992=208396; %let dcm_4_4_1992=452674; %let dcm_5_1_1992=234960; %let dcm_5_2_1992=497687; %let dcm_5_3_1992=448895; %let dcm_5_4_1992=122037; %let dcm_6_1_1992=245460; %let dcm_6_2_1992=760619; %let dcm_6_3_1992=831629; %let dcm_6_4_1992=811879; %let dcm_7_1_1992=111817; %let dcm_7_2_1992=545649; %let dcm_7_3_1992=1113393; %let dcm_7_4_1992=456074; %let dcm_8_1_1992=131040; %let dcm_8_2_1992=993304; %let dcm_8_3_1992=1280724; %let dcm_8_4_1992=1965275; %let dcs_1_1_1992=1302928; %let dcs_1_2_1992=3643248; %let dcs_1_3_1992=4372162; %let dcs_1_4_1992=2202902; %let dcs_2_1_1992=4202746; %let dcs_2_2_1992=7921869; %let dcs_2_3_1992=7926392; %let dcs_2_4_1992=5497206; %let dcs_3_1_1992=2955163; %let dcs_3_2_1992=14650350; %let dcs_3_3_1992=13887242; %let dcs_3_4_1992=13796656; %let dcs_4_1_1992=5948873; %let dcs_4_2_1992=14538757; %let dcs_4_3_1992=9406551; %let dcs_4_4_1992=28108602; %let dcs_5_1_1992=6692316; %let dcs_5_2_1992=14278498; %let dcs_5_3_1992=9192671; %let dcs_5_4_1992=927917; %let dcs_6_1_1992=4644754; %let dcs_6_2_1992=21955713; %let dcs_6_3_1992=10139950; %let dcs_6_4_1992=6469809; %let dcs_7_1_1992=1757303; %let dcs_7_2_1992=7127511; %let dcs_7_3_1992=10603317; %let dcs_7_4_1992=4929500; %let dcs_8_1_1992=407700; %let dcs_8_2_1992=11726823; %let dcs_8_3_1992=6139038; %let dcs_8_4_1992=2469904; %let dcp_1_1_1995=0.192; %let dcp_1_2_1995=0.28; %let dcp_1_3_1995=0.254; %let dcp_1_4_1995=0.114; %let dcp_2_1_1995=0.612; %let dcp_2_2_1995=0.658; %let dcp_2_3_1995=0.559; %let dcp_2_4_1995=0.441; %let dcp_3_1_1995=0.733; %let dcp_3_2_1995=0.833; %let dcp_3_3_1995=0.864; %let dcp_3_4_1995=0.279; %let dcp_4_1_1995=0.824; %let dcp_4_2_1995=0.866; %let dcp_4_3_1995=0.9; %let dcp_4_4_1995=0.652; %let dcp_5_1_1995=0.678; %let dcp_5_2_1995=0.952; %let dcp_5_3_1995=0.915; %let dcp_5_4_1995=0.18; %let dcp_6_1_1995=0.885; %let dcp_6_2_1995=0.881; %let dcp_6_3_1995=0.862; %let dcp_6_4_1995=0.161; %let dcp_7_1_1995=0.422; %let dcp_7_2_1995=0.902; %let dcp_7_3_1995=0.901; %let dcp_7_4_1995=0.175; %let dcp_8_1_1995=1; %let dcp_8_2_1995=0.744; %let dcp_8_3_1995=0.86; %let dcp_8_4_1995=0.043; %let dcm_1_1_1995=30658; %let dcm_1_2_1995=48710; %let dcm_1_3_1995=46199; %let dcm_1_4_1995=68822; %let dcm_2_1_1995=37702; %let dcm_2_2_1995=72735; %let dcm_2_3_1995=92131; %let dcm_2_4_1995=62070; %let dcm_3_1_1995=75013; %let dcm_3_2_1995=176865; %let dcm_3_3_1995=294707; %let dcm_3_4_1995=182938; %let dcm_4_1_1995=69709; %let dcm_4_2_1995=337767; %let dcm_4_3_1995=414401; %let dcm_4_4_1995=457322; %let dcm_5_1_1995=163276; %let dcm_5_2_1995=561461; %let dcm_5_3_1995=542507; %let dcm_5_4_1995=170695; %let dcm_6_1_1995=294109; %let dcm_6_2_1995=623212; %let dcm_6_3_1995=783597; %let dcm_6_4_1995=746393; %let dcm_7_1_1995=437121; %let dcm_7_2_1995=891650; %let dcm_7_3_1995=1729004; %let dcm_7_4_1995=1125773; %let dcm_8_1_1995=24201478; %let dcm_8_2_1995=1354863; %let dcm_8_3_1995=25483667; %let dcm_8_4_1995=2975408; %let dcs_1_1_1995=6241844; %let dcs_1_2_1995=9358208; %let dcs_1_3_1995=3854477; %let dcs_1_4_1995=7918033; %let dcs_2_1_1995=5224674; %let dcs_2_2_1995=8065621; %let dcs_2_3_1995=8761790; %let dcs_2_4_1995=4753924; %let dcs_3_1_1995=6502326; %let dcs_3_2_1995=18291520; %let dcs_3_3_1995=17910820; %let dcs_3_4_1995=13983004; %let dcs_4_1_1995=4101305; %let dcs_4_2_1995=22852881; %let dcs_4_3_1995=26177407; %let dcs_4_4_1995=16047130; %let dcs_5_1_1995=1636368; %let dcs_5_2_1995=28721500; %let dcs_5_3_1995=32412642; %let dcs_5_4_1995=2251737; %let dcs_6_1_1995=6385809; %let dcs_6_2_1995=16475640; %let dcs_6_3_1995=13543182; %let dcs_6_4_1995=12337115; %let dcs_7_1_1995=5413550; %let dcs_7_2_1995=25868948; %let dcs_7_3_1995=13039920; %let dcs_7_4_1995=8329785; %let dcs_8_1_1995=132589808; %let dcs_8_2_1995=22736768; %let dcs_8_3_1995=109795717; %let dcs_8_4_1995=109795717; %let dcp_1_1_1998=0.21; %let dcp_1_2_1998=0.316; %let dcp_1_3_1998=0.34; %let dcp_1_4_1998=0.115; %let dcp_2_1_1998=0.653; %let dcp_2_2_1998=0.709; %let dcp_2_3_1998=0.661; %let dcp_2_4_1998=0.415; %let dcp_3_1_1998=0.918; %let dcp_3_2_1998=0.846; %let dcp_3_3_1998=0.709; %let dcp_3_4_1998=0.658; %let dcp_4_1_1998=0.952; %let dcp_4_2_1998=0.911; %let dcp_4_3_1998=0.952; %let dcp_4_4_1998=0.369; %let dcp_5_1_1998=0.702; %let dcp_5_2_1998=0.958; %let dcp_5_3_1998=0.961; %let dcp_5_4_1998=0.288; %let dcp_6_1_1998=0.801; %let dcp_6_2_1998=0.928; %let dcp_6_3_1998=0.853; %let dcp_6_4_1998=0.593; %let dcp_7_1_1998=1; %let dcp_7_2_1998=0.941; %let dcp_7_3_1998=0.895; %let dcp_7_4_1998=0.669; %let dcp_8_1_1998=1; %let dcp_8_2_1998=0.969; %let dcp_8_3_1998=0.998; %let dcp_8_4_1998=0.05; %let dcm_1_1_1998=16051; %let dcm_1_2_1998=48439; %let dcm_1_3_1998=57493; %let dcm_1_4_1998=63032; %let dcm_2_1_1998=47983; %let dcm_2_2_1998=105007; %let dcm_2_3_1998=145618; %let dcm_2_4_1998=77385; %let dcm_3_1_1998=93293; %let dcm_3_2_1998=192903; %let dcm_3_3_1998=163449; %let dcm_3_4_1998=562297; %let dcm_4_1_1998=175289; %let dcm_4_2_1998=394281; %let dcm_4_3_1998=593578; %let dcm_4_4_1998=1279982; %let dcm_5_1_1998=261711; %let dcm_5_2_1998=701876; %let dcm_5_3_1998=517180; %let dcm_5_4_1998=406704; %let dcm_6_1_1998=237549; %let dcm_6_2_1998=895564; %let dcm_6_3_1998=1429696; %let dcm_6_4_1998=799990; %let dcm_7_1_1998=954462; %let dcm_7_2_1998=1341910; %let dcm_7_3_1998=5014684; %let dcm_7_4_1998=824975; %let dcm_8_1_1998=812575; %let dcm_8_2_1998=2762526; %let dcm_8_3_1998=1161230; %let dcm_8_4_1998=1528635; %let dcs_1_1_1998=2279188; %let dcs_1_2_1998=7610404; %let dcs_1_3_1998=5853651; %let dcs_1_4_1998=8622470; %let dcs_2_1_1998=7434254; %let dcs_2_2_1998=12716989; %let dcs_2_3_1998=14882808; %let dcs_2_4_1998=7718450; %let dcs_3_1_1998=8884166; %let dcs_3_2_1998=19079080; %let dcs_3_3_1998=16080633; %let dcs_3_4_1998=70749701; %let dcs_4_1_1998=7960807; %let dcs_4_2_1998=27069630; %let dcs_4_3_1998=25728380; %let dcs_4_4_1998=44517553; %let dcs_5_1_1998=5625280; %let dcs_5_2_1998=25206900; %let dcs_5_3_1998=13670018; %let dcs_5_4_1998=12725089; %let dcs_6_1_1998=5127276; %let dcs_6_2_1998=27257972; %let dcs_6_3_1998=28710743; %let dcs_6_4_1998=43271036; %let dcs_7_1_1998=8851121; %let dcs_7_2_1998=14499944; %let dcs_7_3_1998=38110387; %let dcs_7_4_1998=7556950; %let dcs_8_1_1998=2629006; %let dcs_8_2_1998=42505720; %let dcs_8_3_1998=2962530; %let dcs_8_4_1998=1103879; %let dcp_1_1_2001=0.18; %let dcp_1_2_2001=0.321; %let dcp_1_3_2001=0.259; %let dcp_1_4_2001=0.202; %let dcp_2_1_2001=0.694; %let dcp_2_2_2001=0.715; %let dcp_2_3_2001=0.635; %let dcp_2_4_2001=0.537; %let dcp_3_1_2001=0.743; %let dcp_3_2_2001=0.918; %let dcp_3_3_2001=0.74; %let dcp_3_4_2001=0.922; %let dcp_4_1_2001=0.79; %let dcp_4_2_2001=0.902; %let dcp_4_3_2001=0.915; %let dcp_4_4_2001=0.896; %let dcp_5_1_2001=1; %let dcp_5_2_2001=0.887; %let dcp_5_3_2001=1; %let dcp_5_4_2001=0.83; %let dcp_6_1_2001=1; %let dcp_6_2_2001=0.943; %let dcp_6_3_2001=0.953; %let dcp_6_4_2001=0.727; %let dcp_7_1_2001=1; %let dcp_7_2_2001=0.819; %let dcp_7_3_2001=0.826; %let dcp_7_4_2001=0.548; %let dcp_8_1_2001=1; %let dcp_8_2_2001=0.892; %let dcp_8_3_2001=0.881; %let dcp_8_4_2001=0.712; %let dcm_1_1_2001=18083; %let dcm_1_2_2001=47280; %let dcm_1_3_2001=79270; %let dcm_1_4_2001=65720; %let dcm_2_1_2001=42516; %let dcm_2_2_2001=152057; %let dcm_2_3_2001=201657; %let dcm_2_4_2001=154878; %let dcm_3_1_2001=142927; %let dcm_3_2_2001=265437; %let dcm_3_3_2001=472206; %let dcm_3_4_2001=742585; %let dcm_4_1_2001=220706; %let dcm_4_2_2001=582249; %let dcm_4_3_2001=613650; %let dcm_4_4_2001=540112; %let dcm_5_1_2001=459459; %let dcm_5_2_2001=562919; %let dcm_5_3_2001=1654763; %let dcm_5_4_2001=1256723; %let dcm_6_1_2001=315433; %let dcm_6_2_2001=1279036; %let dcm_6_3_2001=3912848; %let dcm_6_4_2001=1025086; %let dcm_7_1_2001=1236575; %let dcm_7_2_2001=1572300; %let dcm_7_3_2001=1465567; %let dcm_7_4_2001=4265457; %let dcm_8_1_2001=359448; %let dcm_8_2_2001=923043; %let dcm_8_3_2001=3200738; %let dcm_8_4_2001=3229301; %let dcs_1_1_2001=3596219; %let dcs_1_2_2001=6710055; %let dcs_1_3_2001=8858402; %let dcs_1_4_2001=10038686; %let dcs_2_1_2001=4772886; %let dcs_2_2_2001=17278681; %let dcs_2_3_2001=17848953; %let dcs_2_4_2001=16588915; %let dcs_3_1_2001=8881043; %let dcs_3_2_2001=20350497; %let dcs_3_3_2001=33784437; %let dcs_3_4_2001=43755036; %let dcs_4_1_2001=9891217; %let dcs_4_2_2001=31284103; %let dcs_4_3_2001=26584200; %let dcs_4_4_2001=35710138; %let dcs_5_1_2001=9740881; %let dcs_5_2_2001=19840447; %let dcs_5_3_2001=30926314; %let dcs_5_4_2001=53881470; %let dcs_6_1_2001=5178866; %let dcs_6_2_2001=32399969; %let dcs_6_3_2001=56113874; %let dcs_6_4_2001=16684025; %let dcs_7_1_2001=30758361; %let dcs_7_2_2001=24778163; %let dcs_7_3_2001=11720604; %let dcs_7_4_2001=38195689; %let dcs_8_1_2001=823459; %let dcs_8_2_2001=13708974; %let dcs_8_3_2001=21758505; %let dcs_8_4_2001=10273846; %let dcp_1_1_2004=0.238; %let dcp_1_2_2004=0.329; %let dcp_1_3_2004=0.305; %let dcp_1_4_2004=0.191; %let dcp_2_1_2004=0.701; %let dcp_2_2_2004=0.747; %let dcp_2_3_2004=0.642; %let dcp_2_4_2004=0.565; %let dcp_3_1_2004=0.924; %let dcp_3_2_2004=0.912; %let dcp_3_3_2004=0.794; %let dcp_3_4_2004=0.858; %let dcp_4_1_2004=0.85; %let dcp_4_2_2004=0.91; %let dcp_4_3_2004=0.64; %let dcp_4_4_2004=0.773; %let dcp_5_1_2004=0.821; %let dcp_5_2_2004=0.95; %let dcp_5_3_2004=0.875; %let dcp_5_4_2004=0.612; %let dcp_6_1_2004=0.874; %let dcp_6_2_2004=0.933; %let dcp_6_3_2004=0.869; %let dcp_6_4_2004=0.818; %let dcp_7_1_2004=0.983; %let dcp_7_2_2004=0.995; %let dcp_7_3_2004=0.362; %let dcp_7_4_2004=0.581; %let dcp_8_1_2004=0.959; %let dcp_8_2_2004=0.972; %let dcp_8_3_2004=0.621; %let dcp_8_4_2004=0; %let dcm_1_1_2004=15351; %let dcm_1_2_2004=53580; %let dcm_1_3_2004=105919; %let dcm_1_4_2004=92567; %let dcm_2_1_2004=44815; %let dcm_2_2_2004=131838; %let dcm_2_3_2004=213083; %let dcm_2_4_2004=172769; %let dcm_3_1_2004=87839; %let dcm_3_2_2004=270790; %let dcm_3_3_2004=580754; %let dcm_3_4_2004=284836; %let dcm_4_1_2004=170690; %let dcm_4_2_2004=550606; %let dcm_4_3_2004=1100871; %let dcm_4_4_2004=393113; %let dcm_5_1_2004=449619; %let dcm_5_2_2004=1089619; %let dcm_5_3_2004=729408; %let dcm_5_4_2004=1580318; %let dcm_6_1_2004=440286; %let dcm_6_2_2004=1026388; %let dcm_6_3_2004=2095265; %let dcm_6_4_2004=2671768; %let dcm_7_1_2004=90896; %let dcm_7_2_2004=1201002; %let dcm_7_3_2004=2693316; %let dcm_7_4_2004=1113606; %let dcm_8_1_2004=218483; %let dcm_8_2_2004=629963; %let dcm_8_3_2004=3483395; %let dcm_8_4_2004=0; %let dcs_1_1_2004=1929868; %let dcs_1_2_2004=8581177; %let dcs_1_3_2004=15011783; %let dcs_1_4_2004=10083370; %let dcs_2_1_2004=5512410; %let dcs_2_2_2004=15979738; %let dcs_2_3_2004=17790971; %let dcs_2_4_2004=20057029; %let dcs_3_1_2004=7960227; %let dcs_3_2_2004=22665940; %let dcs_3_3_2004=41776876; %let dcs_3_4_2004=30400632; %let dcs_4_1_2004=7765220; %let dcs_4_2_2004=29317076; %let dcs_4_3_2004=48137178; %let dcs_4_4_2004=30536144; %let dcs_5_1_2004=6739622; %let dcs_5_2_2004=41496786; %let dcs_5_3_2004=12313477; %let dcs_5_4_2004=23370138; %let dcs_6_1_2004=7960320; %let dcs_6_2_2004=28855075; %let dcs_6_3_2004=33724866; %let dcs_6_4_2004=21778483; %let dcs_7_1_2004=2122143; %let dcs_7_2_2004=20380315; %let dcs_7_3_2004=22406981; %let dcs_7_4_2004=10591121; %let dcs_8_1_2004=472040; %let dcs_8_2_2004=11797522; %let dcs_8_3_2004=9154506; %let dcs_8_4_2004=0; %let dcp_1_1_2007=0.18; %let dcp_1_2_2007=0.321; %let dcp_1_3_2007=0.259; %let dcp_1_4_2007=0.202; %let dcp_2_1_2007=0.694; %let dcp_2_2_2007=0.715; %let dcp_2_3_2007=0.635; %let dcp_2_4_2007=0.537; %let dcp_3_1_2007=0.743; %let dcp_3_2_2007=0.918; %let dcp_3_3_2007=0.74; %let dcp_3_4_2007=0.922; %let dcp_4_1_2007=0.79; %let dcp_4_2_2007=0.902; %let dcp_4_3_2007=0.915; %let dcp_4_4_2007=0.896; %let dcp_5_1_2007=1; %let dcp_5_2_2007=0.887; %let dcp_5_3_2007=1; %let dcp_5_4_2007=0.83; %let dcp_6_1_2007=1; %let dcp_6_2_2007=0.943; %let dcp_6_3_2007=0.953; %let dcp_6_4_2007=0.727; %let dcp_7_1_2007=1; %let dcp_7_2_2007=0.819; %let dcp_7_3_2007=0.826; %let dcp_7_4_2007=0.548; %let dcp_8_1_2007=1; %let dcp_8_2_2007=0.892; %let dcp_8_3_2007=0.881; %let dcp_8_4_2007=0.712; %let dcm_1_1_2007=18083; %let dcm_1_2_2007=47280; %let dcm_1_3_2007=79270; %let dcm_1_4_2007=65720; %let dcm_2_1_2007=42516; %let dcm_2_2_2007=152057; %let dcm_2_3_2007=201657; %let dcm_2_4_2007=154878; %let dcm_3_1_2007=142927; %let dcm_3_2_2007=265437; %let dcm_3_3_2007=472206; %let dcm_3_4_2007=742585; %let dcm_4_1_2007=220706; %let dcm_4_2_2007=582249; %let dcm_4_3_2007=613650; %let dcm_4_4_2007=540112; %let dcm_5_1_2007=459459; %let dcm_5_2_2007=562919; %let dcm_5_3_2007=1654763; %let dcm_5_4_2007=1256723; %let dcm_6_1_2007=315433; %let dcm_6_2_2007=1279036; %let dcm_6_3_2007=3912848; %let dcm_6_4_2007=1025086; %let dcm_7_1_2007=1236575; %let dcm_7_2_2007=1572300; %let dcm_7_3_2007=1465567; %let dcm_7_4_2007=4265457; %let dcm_8_1_2007=359448; %let dcm_8_2_2007=923043; %let dcm_8_3_2007=3200738; %let dcm_8_4_2007=3229301; %let dcs_1_1_2007=3596219; %let dcs_1_2_2007=6710055; %let dcs_1_3_2007=8858402; %let dcs_1_4_2007=10038686; %let dcs_2_1_2007=4772886; %let dcs_2_2_2007=17278681; %let dcs_2_3_2007=17848953; %let dcs_2_4_2007=16588915; %let dcs_3_1_2007=8881043; %let dcs_3_2_2007=20350497; %let dcs_3_3_2007=33784437; %let dcs_3_4_2007=43755036; %let dcs_4_1_2007=9891217; %let dcs_4_2_2007=31284103; %let dcs_4_3_2007=26584200; %let dcs_4_4_2007=35710138; %let dcs_5_1_2007=9740881; %let dcs_5_2_2007=19840447; %let dcs_5_3_2007=30926314; %let dcs_5_4_2007=53881470; %let dcs_6_1_2007=5178866; %let dcs_6_2_2007=32399969; %let dcs_6_3_2007=56113874; %let dcs_6_4_2007=16684025; %let dcs_7_1_2007=30758361; %let dcs_7_2_2007=24778163; %let dcs_7_3_2007=11720604; %let dcs_7_4_2007=38195689; %let dcs_8_1_2007=823459; %let dcs_8_2_2007=13708974; %let dcs_8_3_2007=21758505; %let dcs_8_4_2007=10273846; %let dcp_1_1_2010=0.195; %let dcp_1_2_2010=0.307; %let dcp_1_3_2010=0.251; %let dcp_1_4_2010=0.259; %let dcp_2_1_2010=0.67; %let dcp_2_2_2010=0.718; %let dcp_2_3_2010=0.654; %let dcp_2_4_2010=0.581; %let dcp_3_1_2010=0.894; %let dcp_3_2_2010=0.902; %let dcp_3_3_2010=0.872; %let dcp_3_4_2010=0.698; %let dcp_4_1_2010=0.785; %let dcp_4_2_2010=0.938; %let dcp_4_3_2010=0.898; %let dcp_4_4_2010=0.756; %let dcp_5_1_2010=0.932; %let dcp_5_2_2010=0.97; %let dcp_5_3_2010=0.988; %let dcp_5_4_2010=0.852; %let dcp_6_1_2010=0.863; %let dcp_6_2_2010=0.987; %let dcp_6_3_2010=0.9; %let dcp_6_4_2010=0.919; %let dcp_7_1_2010=0.128; %let dcp_7_2_2010=0.882; %let dcp_7_3_2010=0.791; %let dcp_7_4_2010=0.552; %let dcp_8_1_2010=0.487; %let dcp_8_2_2010=0.942; %let dcp_8_3_2010=0.878; %let dcp_8_4_2010=0.953; %let dcm_1_1_2010=16055; %let dcm_1_2_2010=69360; %let dcm_1_3_2010=109052; %let dcm_1_4_2010=83642; %let dcm_2_1_2010=46681; %let dcm_2_2_2010=141230; %let dcm_2_3_2010=294759; %let dcm_2_4_2010=187839; %let dcm_3_1_2010=111776; %let dcm_3_2_2010=350784; %let dcm_3_3_2010=736819; %let dcm_3_4_2010=852776; %let dcm_4_1_2010=196685; %let dcm_4_2_2010=661911; %let dcm_4_3_2010=913599; %let dcm_4_4_2010=1505531; %let dcm_5_1_2010=322639; %let dcm_5_2_2010=1177012; %let dcm_5_3_2010=1599638; %let dcm_5_4_2010=2876795; %let dcm_6_1_2010=141483; %let dcm_6_2_2010=1207789; %let dcm_6_3_2010=1091759; %let dcm_6_4_2010=3692583; %let dcm_7_1_2010=1283411; %let dcm_7_2_2010=2531756; %let dcm_7_3_2010=2378118; %let dcm_7_4_2010=1517355; %let dcm_8_1_2010=3026349; %let dcm_8_2_2010=1707076; %let dcm_8_3_2010=4062275; %let dcm_8_4_2010=3493563; %let dcs_1_1_2010=1779721; %let dcs_1_2_2010=16987346; %let dcs_1_3_2010=15514010; %let dcs_1_4_2010=20316804; %let dcs_2_1_2010=4226593; %let dcs_2_2_2010=14474741; %let dcs_2_3_2010=45430349; %let dcs_2_4_2010=13234292; %let dcs_3_1_2010=6454068; %let dcs_3_2_2010=22354465; %let dcs_3_3_2010=32873386; %let dcs_3_4_2010=99507252; %let dcs_4_1_2010=7496022; %let dcs_4_2_2010=33409193; %let dcs_4_3_2010=33124910; %let dcs_4_4_2010=42527773; %let dcs_5_1_2010=8721998; %let dcs_5_2_2010=39141656; %let dcs_5_3_2010=37484434; %let dcs_5_4_2010=61889835; %let dcs_6_1_2010=1824134; %let dcs_6_2_2010=29358464; %let dcs_6_3_2010=24241875; %let dcs_6_4_2010=37480748; %let dcs_7_1_2010=5595819; %let dcs_7_2_2010=28069499; %let dcs_7_3_2010=19212140; %let dcs_7_4_2010=7530387; %let dcs_8_1_2010=43313251; %let dcs_8_2_2010=13498101; %let dcs_8_3_2010=27800681; %let dcs_8_4_2010=17528703; %let dcp_1_1_2013=0.173; %let dcp_1_2_2013=0.249; %let dcp_1_3_2013=0.284; %let dcp_1_4_2013=0.177; %let dcp_2_1_2013=0.644; %let dcp_2_2_2013=0.747; %let dcp_2_3_2013=0.653; %let dcp_2_4_2013=0.579; %let dcp_3_1_2013=0.915; %let dcp_3_2_2013=0.955; %let dcp_3_3_2013=0.818; %let dcp_3_4_2013=0.905; %let dcp_4_1_2013=0.896; %let dcp_4_2_2013=0.931; %let dcp_4_3_2013=0.921; %let dcp_4_4_2013=0.773; %let dcp_5_1_2013=1; %let dcp_5_2_2013=0.988; %let dcp_5_3_2013=0.868; %let dcp_5_4_2013=0.255; %let dcp_6_1_2013=1; %let dcp_6_2_2013=0.975; %let dcp_6_3_2013=0.947; %let dcp_6_4_2013=0.772; %let dcp_7_1_2013=0.988; %let dcp_7_2_2013=0.94; %let dcp_7_3_2013=0.927; %let dcp_7_4_2013=0.857; %let dcp_8_1_2013=0; %let dcp_8_2_2013=0.967; %let dcp_8_3_2013=0.855; %let dcp_8_4_2013=0.921; %let dcm_1_1_2013=15193; %let dcm_1_2_2013=54063; %let dcm_1_3_2013=116815; %let dcm_1_4_2013=67820; %let dcm_2_1_2013=51306; %let dcm_2_2_2013=166770; %let dcm_2_3_2013=272560; %let dcm_2_4_2013=276066; %let dcm_3_1_2013=112623; %let dcm_3_2_2013=324569; %let dcm_3_3_2013=496358; %let dcm_3_4_2013=987855; %let dcm_4_1_2013=247434; %let dcm_4_2_2013=609445; %let dcm_4_3_2013=1281327; %let dcm_4_4_2013=1600746; %let dcm_5_1_2013=389698; %let dcm_5_2_2013=874198; %let dcm_5_3_2013=2978857; %let dcm_5_4_2013=1428845; %let dcm_6_1_2013=480285; %let dcm_6_2_2013=1288215; %let dcm_6_3_2013=2696381; %let dcm_6_4_2013=2045460; %let dcm_7_1_2013=93150; %let dcm_7_2_2013=1727142; %let dcm_7_3_2013=1844791; %let dcm_7_4_2013=5523258; %let dcm_8_1_2013=0; %let dcm_8_2_2013=1019726; %let dcm_8_3_2013=1882488; %let dcm_8_4_2013=4077271; %let dcs_1_1_2013=2825069; %let dcs_1_2_2013=6929202; %let dcs_1_3_2013=12214794; %let dcs_1_4_2013=6159046; %let dcs_2_1_2013=5337487; %let dcs_2_2_2013=18666823; %let dcs_2_3_2013=26496486; %let dcs_2_4_2013=33518157; %let dcs_3_1_2013=6662520; %let dcs_3_2_2013=18744722; %let dcs_3_3_2013=34352966; %let dcs_3_4_2013=48857301; %let dcs_4_1_2013=10395741; %let dcs_4_2_2013=31922545; %let dcs_4_3_2013=79434392; %let dcs_4_4_2013=90769240; %let dcs_5_1_2013=12698092; %let dcs_5_2_2013=35278070; %let dcs_5_3_2013=70798709; %let dcs_5_4_2013=18676509; %let dcs_6_1_2013=8581926; %let dcs_6_2_2013=48200555; %let dcs_6_3_2013=28787864; %let dcs_6_4_2013=30520065; %let dcs_7_1_2013=829344; %let dcs_7_2_2013=47417688; %let dcs_7_3_2013=12428677; %let dcs_7_4_2013=48746333; %let dcs_8_1_2013=0; %let dcs_8_2_2013=9604353; %let dcs_8_3_2013=9043447; %let dcs_8_4_2013=50123692; %let dcp_1_1_2016=0.215; %let dcp_1_2_2016=0.283; %let dcp_1_3_2016=0.239; %let dcp_1_4_2016=0.251; %let dcp_2_1_2016=0.679; %let dcp_2_2_2016=0.757; %let dcp_2_3_2016=0.697; %let dcp_2_4_2016=0.668; %let dcp_3_1_2016=0.982; %let dcp_3_2_2016=0.935; %let dcp_3_3_2016=0.976; %let dcp_3_4_2016=0.865; %let dcp_4_1_2016=0.894; %let dcp_4_2_2016=0.909; %let dcp_4_3_2016=0.89; %let dcp_4_4_2016=0.794; %let dcp_5_1_2016=1; %let dcp_5_2_2016=0.898; %let dcp_5_3_2016=0.974; %let dcp_5_4_2016=0.888; %let dcp_6_1_2016=0.807; %let dcp_6_2_2016=0.926; %let dcp_6_3_2016=0.986; %let dcp_6_4_2016=0.791; %let dcp_7_1_2016=0.942; %let dcp_7_2_2016=0.966; %let dcp_7_3_2016=0.848; %let dcp_7_4_2016=0.789; %let dcp_8_1_2016=1; %let dcp_8_2_2016=0.715; %let dcp_8_3_2016=0.908; %let dcp_8_4_2016=0.743; %let dcm_1_1_2016=19496; %let dcm_1_2_2016=73832; %let dcm_1_3_2016=75987; %let dcm_1_4_2016=82658; %let dcm_2_1_2016=48375; %let dcm_2_2_2016=176240; %let dcm_2_3_2016=259979; %let dcm_2_4_2016=286005; %let dcm_3_1_2016=181941; %let dcm_3_2_2016=391712; %let dcm_3_3_2016=648793; %let dcm_3_4_2016=921816; %let dcm_4_1_2016=279172; %let dcm_4_2_2016=844177; %let dcm_4_3_2016=1326009; %let dcm_4_4_2016=1170633; %let dcm_5_1_2016=337211; %let dcm_5_2_2016=1628034; %let dcm_5_3_2016=1382277; %let dcm_5_4_2016=2052753; %let dcm_6_1_2016=373709; %let dcm_6_2_2016=1523426; %let dcm_6_3_2016=2335923; %let dcm_6_4_2016=2561268; %let dcm_7_1_2016=351707; %let dcm_7_2_2016=2453793; %let dcm_7_3_2016=2865491; %let dcm_7_4_2016=3939972; %let dcm_8_1_2016=2090225; %let dcm_8_2_2016=1083413; %let dcm_8_3_2016=642011; %let dcm_8_4_2016=9935996; %let dcs_1_1_2016=2027302; %let dcs_1_2_2016=9088131; %let dcs_1_3_2016=8342398; %let dcs_1_4_2016=8605721; %let dcs_2_1_2016=4728926; %let dcs_2_2_2016=19151631; %let dcs_2_3_2016=21075934; %let dcs_2_4_2016=21465725; %let dcs_3_1_2016=13248775; %let dcs_3_2_2016=27578420; %let dcs_3_3_2016=52563223; %let dcs_3_4_2016=51195762; %let dcs_4_1_2016=13932207; %let dcs_4_2_2016=36155272; %let dcs_4_3_2016=50283200; %let dcs_4_4_2016=44911153; %let dcs_5_1_2016=12075944; %let dcs_5_2_2016=101369714; %let dcs_5_3_2016=21074354; %let dcs_5_4_2016=25370463; %let dcs_6_1_2016=11444497; %let dcs_6_2_2016=31459985; %let dcs_6_3_2016=27489290; %let dcs_6_4_2016=28230130; %let dcs_7_1_2016=4902691; %let dcs_7_2_2016=27211933; %let dcs_7_3_2016=32503656; %let dcs_7_4_2016=24710575; %let dcs_8_1_2016=4307667; %let dcs_8_2_2016=10477587; %let dcs_8_3_2016=4196718; %let dcs_8_4_2016=61191896; %let dcp_1_1_2019=0.215; %let dcp_1_2_2019=0.273; %let dcp_1_3_2019=0.297; %let dcp_1_4_2019=0.226; %let dcp_2_1_2019=0.676; %let dcp_2_2_2019=0.699; %let dcp_2_3_2019=0.69; %let dcp_2_4_2019=0.615; %let dcp_3_1_2019=0.948; %let dcp_3_2_2019=0.892; %let dcp_3_3_2019=0.88; %let dcp_3_4_2019=0.908; %let dcp_4_1_2019=0.906; %let dcp_4_2_2019=0.917; %let dcp_4_3_2019=0.906; %let dcp_4_4_2019=0.864; %let dcp_5_1_2019=0.963; %let dcp_5_2_2019=0.866; %let dcp_5_3_2019=0.961; %let dcp_5_4_2019=0.811; %let dcp_6_1_2019=1; %let dcp_6_2_2019=0.924; %let dcp_6_3_2019=0.919; %let dcp_6_4_2019=0.847; %let dcp_7_1_2019=1; %let dcp_7_2_2019=0.89; %let dcp_7_3_2019=0.886; %let dcp_7_4_2019=0.798; %let dcp_8_1_2019=1; %let dcp_8_2_2019=0.972; %let dcp_8_3_2019=0.99; %let dcp_8_4_2019=0.737; %let dcm_1_1_2019=16117; %let dcm_1_2_2019=72977; %let dcm_1_3_2019=108623; %let dcm_1_4_2019=92825; %let dcm_2_1_2019=56157; %let dcm_2_2_2019=203862; %let dcm_2_3_2019=429919; %let dcm_2_4_2019=330630; %let dcm_3_1_2019=155351; %let dcm_3_2_2019=495622; %let dcm_3_3_2019=580080; %let dcm_3_4_2019=958682; %let dcm_4_1_2019=324675; %let dcm_4_2_2019=871447; %let dcm_4_3_2019=1159982; %let dcm_4_4_2019=1916480; %let dcm_5_1_2019=413853; %let dcm_5_2_2019=1285393; %let dcm_5_3_2019=1446763; %let dcm_5_4_2019=3292075; %let dcm_6_1_2019=217446; %let dcm_6_2_2019=1588294; %let dcm_6_3_2019=2141526; %let dcm_6_4_2019=2173991; %let dcm_7_1_2019=222602; %let dcm_7_2_2019=2388091; %let dcm_7_3_2019=2066506; %let dcm_7_4_2019=6114946; %let dcm_8_1_2019=300000; %let dcm_8_2_2019=3050851; %let dcm_8_3_2019=2119246; %let dcm_8_4_2019=1962303; %let dcs_1_1_2019=1910216; %let dcs_1_2_2019=9422599; %let dcs_1_3_2019=12620772; %let dcs_1_4_2019=34247988; %let dcs_2_1_2019=5631246; %let dcs_2_2_2019=21716671; %let dcs_2_3_2019=42105389; %let dcs_2_4_2019=30135478; %let dcs_3_1_2019=10413587; %let dcs_3_2_2019=32355672; %let dcs_3_3_2019=30281212; %let dcs_3_4_2019=48001332; %let dcs_4_1_2019=20632315; %let dcs_4_2_2019=45181731; %let dcs_4_3_2019=46584841; %let dcs_4_4_2019=61914248; %let dcs_5_1_2019=9934633; %let dcs_5_2_2019=33978014; %let dcs_5_3_2019=33730894; %let dcs_5_4_2019=62810280; %let dcs_6_1_2019=7954014; %let dcs_6_2_2019=25240693; %let dcs_6_3_2019=32015707; %let dcs_6_4_2019=27980883; %let dcs_7_1_2019=429439; %let dcs_7_2_2019=32991940; %let dcs_7_3_2019=36833306; %let dcs_7_4_2019=51215595; %let dcs_8_1_2019=0; %let dcs_8_2_2019=34906285; %let dcs_8_3_2019=17900394; %let dcs_8_4_2019=7591849; * Non-IRA DC wealth shares by income and age groups (since 1999, to supplement 5498 IRA wealth); %let nirash_1_1_1995=0.92; %let nirash_1_2_1995=0.68; %let nirash_1_3_1995=0; %let nirash_1_4_1995=0.66; %let nirash_2_1_1995=0.89; %let nirash_2_2_1995=0.65; %let nirash_2_3_1995=0.06; %let nirash_2_4_1995=0.18; %let nirash_3_1_1995=0.83; %let nirash_3_2_1995=0.79; %let nirash_3_3_1995=0.57; %let nirash_3_4_1995=0; %let nirash_4_1_1995=0.48; %let nirash_4_2_1995=0.81; %let nirash_4_3_1995=0.54; %let nirash_4_4_1995=0.63; %let nirash_5_1_1995=0; %let nirash_5_2_1995=0.81; %let nirash_5_3_1995=0.64; %let nirash_5_4_1995=0; %let nirash_6_1_1995=0.5; %let nirash_6_2_1995=0.69; %let nirash_6_3_1995=0.63; %let nirash_6_4_1995=0; %let nirash_7_1_1995=0.01; %let nirash_7_2_1995=0.75; %let nirash_7_3_1995=0.65; %let nirash_7_4_1995=0; %let nirash_8_1_1995=0.98; %let nirash_8_2_1995=0.69; %let nirash_8_3_1995=0.98; %let nirash_8_4_1995=0; %let nirash_1_1_1998=0.83; %let nirash_1_2_1998=0.65; %let nirash_1_3_1998=0.23; %let nirash_1_4_1998=0.38; %let nirash_2_1_1998=0.86; %let nirash_2_2_1998=0.69; %let nirash_2_3_1998=0.08; %let nirash_2_4_1998=0; %let nirash_3_1_1998=0.8; %let nirash_3_2_1998=0.63; %let nirash_3_3_1998=0; %let nirash_3_4_1998=0.59; %let nirash_4_1_1998=0.79; %let nirash_4_2_1998=0.71; %let nirash_4_3_1998=0.43; %let nirash_4_4_1998=0.32; %let nirash_5_1_1998=0.08; %let nirash_5_2_1998=0.71; %let nirash_5_3_1998=0; %let nirash_5_4_1998=0; %let nirash_6_1_1998=0.52; %let nirash_6_2_1998=0.7; %let nirash_6_3_1998=0.56; %let nirash_6_4_1998=0; %let nirash_7_1_1998=0.89; %let nirash_7_2_1998=0.73; %let nirash_7_3_1998=0.74; %let nirash_7_4_1998=0; %let nirash_8_1_1998=0.83; %let nirash_8_2_1998=0.77; %let nirash_8_3_1998=0.57; %let nirash_8_4_1998=0; %let nirash_1_1_2001=0.83; %let nirash_1_2_2001=0.62; %let nirash_1_3_2001=0.5; %let nirash_1_4_2001=0.66; %let nirash_2_1_2001=0.9; %let nirash_2_2_2001=0.78; %let nirash_2_3_2001=0.44; %let nirash_2_4_2001=0.56; %let nirash_3_1_2001=0.85; %let nirash_3_2_2001=0.76; %let nirash_3_3_2001=0.69; %let nirash_3_4_2001=0.66; %let nirash_4_1_2001=0.85; %let nirash_4_2_2001=0.81; %let nirash_4_3_2001=0.55; %let nirash_4_4_2001=0.09; %let nirash_5_1_2001=0.72; %let nirash_5_2_2001=0.87; %let nirash_5_3_2001=0; %let nirash_5_4_2001=0.12; %let nirash_6_1_2001=0.86; %let nirash_6_2_2001=0.75; %let nirash_6_3_2001=0.23; %let nirash_6_4_2001=0.2; %let nirash_7_1_2001=0; %let nirash_7_2_2001=0.76; %let nirash_7_3_2001=0; %let nirash_7_4_2001=0; %let nirash_8_1_2001=0; %let nirash_8_2_2001=0.33; %let nirash_8_3_2001=0; %let nirash_8_4_2001=0; %let nirash_1_1_2004=0.83; %let nirash_1_2_2004=0.55; %let nirash_1_3_2004=0.03; %let nirash_1_4_2004=0.42; %let nirash_2_1_2004=0.88; %let nirash_2_2_2004=0.77; %let nirash_2_3_2004=0.34; %let nirash_2_4_2004=0.21; %let nirash_3_1_2004=0.82; %let nirash_3_2_2004=0.75; %let nirash_3_3_2004=0.1; %let nirash_3_4_2004=0.7; %let nirash_4_1_2004=0.82; %let nirash_4_2_2004=0.77; %let nirash_4_3_2004=0.23; %let nirash_4_4_2004=0.4; %let nirash_5_1_2004=0.86; %let nirash_5_2_2004=0.53; %let nirash_5_3_2004=0.52; %let nirash_5_4_2004=0.55; %let nirash_6_1_2004=0.12; %let nirash_6_2_2004=0.79; %let nirash_6_3_2004=0.83; %let nirash_6_4_2004=0; %let nirash_7_1_2004=0.92; %let nirash_7_2_2004=0.76; %let nirash_7_3_2004=0; %let nirash_7_4_2004=0.41; %let nirash_8_1_2004=0.73; %let nirash_8_2_2004=0.06; %let nirash_8_3_2004=0.25; %let nirash_8_4_2004=0.32; %let nirash_1_1_2007=0.72; %let nirash_1_2_2007=0.46; %let nirash_1_3_2007=0.3; %let nirash_1_4_2007=0.13; %let nirash_2_1_2007=0.82; %let nirash_2_2_2007=0.65; %let nirash_2_3_2007=0.06; %let nirash_2_4_2007=0; %let nirash_3_1_2007=0.78; %let nirash_3_2_2007=0.58; %let nirash_3_3_2007=0; %let nirash_3_4_2007=0; %let nirash_4_1_2007=0.61; %let nirash_4_2_2007=0.66; %let nirash_4_3_2007=0.59; %let nirash_4_4_2007=0; %let nirash_5_1_2007=0.52; %let nirash_5_2_2007=0.69; %let nirash_5_3_2007=0.61; %let nirash_5_4_2007=0; %let nirash_6_1_2007=0.38; %let nirash_6_2_2007=0.78; %let nirash_6_3_2007=0.28; %let nirash_6_4_2007=0.34; %let nirash_7_1_2007=0; %let nirash_7_2_2007=0.73; %let nirash_7_3_2007=0.36; %let nirash_7_4_2007=0; %let nirash_8_1_2007=0; %let nirash_8_2_2007=0.46; %let nirash_8_3_2007=0.77; %let nirash_8_4_2007=0; %let nirash_1_1_2010=0.73; %let nirash_1_2_2010=0.48; %let nirash_1_3_2010=0; %let nirash_1_4_2010=0.24; %let nirash_2_1_2010=0.81; %let nirash_2_2_2010=0.56; %let nirash_2_3_2010=0.31; %let nirash_2_4_2010=0; %let nirash_3_1_2010=0.74; %let nirash_3_2_2010=0.64; %let nirash_3_3_2010=0.4; %let nirash_3_4_2010=0.16; %let nirash_4_1_2010=0.53; %let nirash_4_2_2010=0.72; %let nirash_4_3_2010=0.31; %let nirash_4_4_2010=0.14; %let nirash_5_1_2010=0.03; %let nirash_5_2_2010=0.72; %let nirash_5_3_2010=0.61; %let nirash_5_4_2010=0.24; %let nirash_6_1_2010=0; %let nirash_6_2_2010=0.72; %let nirash_6_3_2010=0.01; %let nirash_6_4_2010=0.64; %let nirash_7_1_2010=0.59; %let nirash_7_2_2010=0.77; %let nirash_7_3_2010=0; %let nirash_7_4_2010=0; %let nirash_8_1_2010=0; %let nirash_8_2_2010=0.46; %let nirash_8_3_2010=0.44; %let nirash_8_4_2010=0.37; %let nirash_1_1_2013=0.61; %let nirash_1_2_2013=0.18; %let nirash_1_3_2013=0; %let nirash_1_4_2013=0; %let nirash_2_1_2013=0.79; %let nirash_2_2_2013=0.6; %let nirash_2_3_2013=0.01; %let nirash_2_4_2013=0; %let nirash_3_1_2013=0.66; %let nirash_3_2_2013=0.56; %let nirash_3_3_2013=0.04; %let nirash_3_4_2013=0; %let nirash_4_1_2013=0.74; %let nirash_4_2_2013=0.53; %let nirash_4_3_2013=0.58; %let nirash_4_4_2013=0.39; %let nirash_5_1_2013=0.73; %let nirash_5_2_2013=0.53; %let nirash_5_3_2013=0.8; %let nirash_5_4_2013=0; %let nirash_6_1_2013=0.14; %let nirash_6_2_2013=0.6; %let nirash_6_3_2013=0.68; %let nirash_6_4_2013=0.09; %let nirash_7_1_2013=0; %let nirash_7_2_2013=0.63; %let nirash_7_3_2013=0.24; %let nirash_7_4_2013=0.6; %let nirash_8_1_2013=0; %let nirash_8_2_2013=0.04; %let nirash_8_3_2013=0; %let nirash_8_4_2013=0; %let nirash_1_1_2016=0.78; %let nirash_1_2_2016=0.45; %let nirash_1_3_2016=0; %let nirash_1_4_2016=0; %let nirash_2_1_2016=0.76; %let nirash_2_2_2016=0.57; %let nirash_2_3_2016=0; %let nirash_2_4_2016=0.09; %let nirash_3_1_2016=0.79; %let nirash_3_2_2016=0.62; %let nirash_3_3_2016=0.03; %let nirash_3_4_2016=0.43; %let nirash_4_1_2016=0.56; %let nirash_4_2_2016=0.64; %let nirash_4_3_2016=0.43; %let nirash_4_4_2016=0.39; %let nirash_5_1_2016=0.67; %let nirash_5_2_2016=0.73; %let nirash_5_3_2016=0.17; %let nirash_5_4_2016=0; %let nirash_6_1_2016=0.51; %let nirash_6_2_2016=0.62; %let nirash_6_3_2016=0.49; %let nirash_6_4_2016=0; %let nirash_7_1_2016=0; %let nirash_7_2_2016=0.76; %let nirash_7_3_2016=0.5; %let nirash_7_4_2016=0; %let nirash_8_1_2016=0.59; %let nirash_8_2_2016=0; %let nirash_8_3_2016=0; %let nirash_8_4_2016=0.3; %let nirash_1_1_2019=0.57; %let nirash_1_2_2019=0.25; %let nirash_1_3_2019=0; %let nirash_1_4_2019=0; %let nirash_2_1_2019=0.77; %let nirash_2_2_2019=0.5; %let nirash_2_3_2019=0.12; %let nirash_2_4_2019=0; %let nirash_3_1_2019=0.69; %let nirash_3_2_2019=0.58; %let nirash_3_3_2019=0; %let nirash_3_4_2019=0; %let nirash_4_1_2019=0.61; %let nirash_4_2_2019=0.58; %let nirash_4_3_2019=0; %let nirash_4_4_2019=0.19; %let nirash_5_1_2019=0; %let nirash_5_2_2019=0.52; %let nirash_5_3_2019=0.26; %let nirash_5_4_2019=0.39; %let nirash_6_1_2019=0.33; %let nirash_6_2_2019=0.49; %let nirash_6_3_2019=0.23; %let nirash_6_4_2019=0; %let nirash_7_1_2019=0; %let nirash_7_2_2019=0.62; %let nirash_7_3_2019=0.33; %let nirash_7_4_2019=0.33; %let nirash_8_1_2019=0; %let nirash_8_2_2019=0.51; %let nirash_8_3_2019=0.14; %let nirash_8_4_2019=0; * Impute DC wealth within each income/age group to correct share and then draw amount from normal distriubtion using group DC wealth means/SD; %if (&yr<=1987) %then %let yrr = 1983; * use 1983 SCF in prior years; %if (&yr>1987)and(&yr<=1990) %then %let yrr = 1989; * use 1989 SCF; %if (&yr>1990)and(&yr<=1992) %then %let yrr = 1992; %if (&yr>1992)and(&yr<=1996) %then %let yrr = 1995; %if (&yr>1996)and(&yr<=1999) %then %let yrr = 1998; %if (&yr>1999)and(&yr<=2002) %then %let yrr = 2001; %if (&yr>2002)and(&yr<=2005) %then %let yrr = 2004; %if (&yr>2005)and(&yr<=2008) %then %let yrr = 2007; %if (&yr>2008)and(&yr<=2011) %then %let yrr = 2010; %if (&yr>2011)and(&yr<=2014) %then %let yrr = 2013; %if (&yr>2014)and(&yr<=2017) %then %let yrr = 2016; %if (&yr>2017) %then %let yrr = 2019; if (&yr<1979) then agegp=2; if (&yr<1979) and (AGEX>0) then agegp=3; * age not available before 1979, assume age 41 to 65 or if elderly exemption claimed then age 65 to 72; if (&yr>=1979) then do; * age groups: 20-40, 41-66, 66-72, 73+; if (age>=20) then agegp=1; if (age>=41) then agegp=2; if (age>=65) then agegp=3; if (age>=73) then agegp=4; end; nirash = 0; %do i = 1 %to 8; * income group; %do a = 1 %to 4; * age group; if (TPIgrp=&i)and(agegp=&a) then do; dc_pct = &&dcp_&i&u&a&u&yrr; DCownMean = &&dcm_&i&u&a&u&yrr; DCownStd = &&dcs_&i&u&a&u&yrr; %if (&yr = 1989) %then %let yrr = 1995; %if (&yr = 1989)or(&yr >= 1993) %then %do; nirash = &&nirash_&i&u&a&u&yrr; %end; end; %end; %end; CALL STREAMINIT(4186516); * set pseudorandom numbers for draws; if (&yr>1974)and(ranuni(4842)<(dc_pct)) then DCscf = min(max(1000,rand('NORMAL',DCownMean,DCownStd/70)), DCownMean*20); * and(DC_FMVt= 1993))and(id ne .) then DC = DC_FMVt + DCscf*nirash; * Form 5498 DC wealth for filers plus SCF imputation scaled by group to only have non-IRA DC wealth; if DC=. or DC=0 then DC = 0.1; * placeholder to prevent dividing by zero; *******************************************; * Estate tax imputations; est_ratio=0; %do i = 1 %to 8; if (gp=&i) then est_ratio=&&est_&i&u&yr; %end; * Define a few variables; item=0; if ((SITX>0)or(PRPD>0)or(MID>0)or(STXD>0))and(id ne .) then item=1; niexem=0; if (item=0)and(id ne .) then niexem=EXEM; ct=1; RESID = NDLOSS - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH; *******************************************; * DB allocation: Devlin-Foltz, Henriques, and Sabelhaus (2016) estimate that top 1% consistently owns about 5 percent of DB wealth, to approximate set max wage at $250000; * Assume 40% have no DBs: Devlin-Foltz et al 2016 Fig 4 shares among working age households, but shares likely higher among full population; DBwg = min(min(wage, 200000) + SECA/(&&OASDI&yr + &&HI&yr) + min(PENSTX_calc, 40000), 300000); if (mars ne 2) then DBwg = min(wage + SECA/(&&OASDI&yr + &&HI&yr) + max(PENSTX_calc, 15000), 300000*0.70); if (WgGrp40=1)and(PENSTX_calc=0) then DBwg = 0; * set min DB wage to 40th percentile; * Pre-1988 use 1983 SCF shares of families with DB from current job ranked by income: P0-20 3%, P20-40 9%, P40-60 21%, P60-80 33%; if (&yr<=1987) then do; DBwg = max(DBwg, min(wage, 400000)); * missing very large DBs seen in 1983 SCF; if (Grp<=3) and ranuni(6832)>(0.03) then DBwg = 0; * P0-20; if (Grp =4) and ranuni(6832)>(0.09) then DBwg = 0; * P20-40; if (Grp =5) and ranuni(6832)>(0.21) then DBwg = 0; * P40-60; if (Grp =6) and ranuni(6832)>(0.33) then DBwg = 0; * P60-90; if (Grp =7) and (Grp <10) and ranuni(6832)>(0.35) then DBwg = 0; * P80-90; end; * pre-1988; if (&yr>1987) then do; * Since 1988: DB participation rates gradually decrease over time; if (Grp<=3) and ranuni(6832)>(0.03 - 0.0005*(&yr - 1987)) then DBwg = 0; * P0-20; if (Grp =4) and ranuni(6832)>(0.09 - 0.001*(&yr - 1987)) then DBwg = 0; * P20-40; if (Grp =5) and ranuni(6832)>(0.21 - 0.002*(&yr - 1987)) then DBwg = 0; * P40-60; if (Grp =6) and ranuni(6832)>(0.33 - 0.002*(&yr - 1987)) then DBwg = 0; * P60-80; if (Grp >6) and (Grp <10) and ranuni(6832)>(0.40 - 0.003*(&yr - 1987)) then DBwg = 0; * P80-99; if (Grp >=10) and ranuni(6832) >(0.50 - 0.010*(&yr - 1987)) then DBwg = 0; * top 5%; end; * since 1988; if DBwg=. then DBwg=0; if PENSNT ne . and PENSNT > 10000000 then DBwg = DBwg + 0.1*(PENSNT - 10000000); * To account for large DB plans (e.g., among executives), adjusted earnings is increased by 10% of amount of non-taxable rollovers >$10M; if DBwg=. or DBwg<0 then DBwg=0; * Only elderly without substantial wages are allocated medicare benefits; mc=0; mcp=0; if (&yr<1979)and(AGEX=1)and(wage<150000*&&cpi&yr/&cpi2015) then do; mc=1; mcp=1; if (mars=2) then do; mc=2; mcp=2; end; end; * <1979; if (&yr>=1979)and(age>=65)and(wage<150000*&&cpi&yr/&cpi2015) then do; mc=1; mcp=1; * Medicare Part B premium progressivity since 2007: see page 5 of https://www.cms.gov/Research-Statistics-Data-and-Systems/Statistics-Trends-and-Reports/ReportsTrustFunds/Downloads/Beneficiaryoop.pdf; * For filers, no AGI-based adjustment for Part D because premiums vary by cost of plan chosen, but Medicare beneficiaries whose only incomes are from Social Security qualify for Part D low-income subsidy; if (AGIX>= 82000*&&cpi&yr/&cpi2008 and AGIX<102000*&&cpi&yr/&cpi2008) then mcp=1.4; if (AGIX>=102000*&&cpi&yr/&cpi2008 and AGIX<153000*&&cpi&yr/&cpi2008) then mcp=2.0; if (AGIX>=153000*&&cpi&yr/&cpi2008 and AGIX<205000*&&cpi&yr/&cpi2008) then mcp=2.6; if (AGIX>=205000*&&cpi&yr/&cpi2008) then mcp=3.2; if (mars=2) then do; * if the primary filer is aged 65 or older then the secondary is also treated as such; mc=2; mcp=2; if (AGIX>= 82000*&&cpi&yr/&cpi2008*2 and AGIX<102000*&&cpi&yr/&cpi2008*2) then mcp=2*1.4; if (AGIX>=102000*&&cpi&yr/&cpi2008*2 and AGIX<153000*&&cpi&yr/&cpi2008*2) then mcp=2*2.0; if (AGIX>=153000*&&cpi&yr/&cpi2008*2 and AGIX<205000*&&cpi&yr/&cpi2008*2) then mcp=2*2.6; if (AGIX>=205000*&&cpi&yr/&cpi2008*2) then mcp=2*3.2; end; * married; end; * >=1979; if (id=.) then do; mc=0; mcp=0; end; * only filer portion here; pagix = AGIX; if (pagix<0) then pagix=0; if WAGE =. then WAGE=0; if AGIX =. then AGIX=0; cgs = pX004 + CGDS; if (cgs=.) then cgs=0; AGIXpos=AGIX; if (AGIXpos<0) then AGIXpos=0; AGIXposni = 0; if (item=0) and (AGIXpos< &&at90cut&yr) then AGIXposni = AGIXpos - EXEM*3000*&&cpi&yr/&cpi2015; * approximate state income tax base for non-itemizers, agi less personal exemptions; AGIXposni2= 0; if (item=0)and(&yr>=1979)and(AGIXpos< &&at90cut&yr) and (state not in(2, 10, 29, 30, 43, 44, 48, 51)) then AGIXposni2 = AGIXpos - EXEM*3000*&&cpi&yr/&cpi2015; * since 1979 do not allocate to states with no income tax: AK, FL, NH, NV, TN, TX, WA, WY ; absinc = abs(AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH); * absolute value of fiscal income for Fed Reserve allocation; incni = 0; if (item=0) then incni = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + IMP_SSA2; * income among non-itemizers likely to be homeowners (almost all of top decile homeowners itemize); if (item=0) and (((&yr<1979)and(AGEX=0))or((&yr>=1979)and(age<65))) then incni = max(0, (AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + IMP_SSA2 - 40000*&&cpi&yr/&cpi2015)); * if younger than 65 then deduct 40K to remove likely renters; nfex=0; if (id=.) then do; incni=0; nfex = exem; * number of nonfilers; end; o64_tf=o64_t; if (id=.) then o64_tf=0; * filers over age 64 (remove non-filers); alimrc5K=0; if ALIMRC < 5000*&&cpi&yr/&cpi2015 then alimrc5K=ALIMRC; pagix90 = 0; if (AGIX <= &&at90cut&yr) then pagix90 = pagix; * Shifted Passthrough Taxes: estimate 5% of passthrough-related individual income taxes and allocate to wages below; if (pPARTSCP + pBUSN + prent)>0 and pAGIX>0 then ftaxPT = 0.05 * FTAX * (pPARTSCP + pBUSN + prent)/pAGIX; * passthrough taxes estimated as positive passthrough income as a share of positive AGI; if (ftaxPT=.) or (ftaxPT<0) then ftaxPT=0; run; * Estimate totals and merge onto data; proc means data=TAB&yr; var count; weight xwgt; output out=totals mean(count)=count sum(WAGE TOTDIV INTEREST pINTEREST NTINT pX004 PARTSCP BUSN pPARTSCP pBUSN PENSION PENSTX_calc count FTAX SITX IPTAX WTAX DISP_INC nr DEPD AGIX FARM RENTS apass ap0 ap1 ap2 ap3 ap4 ap5 ap6 ap7 ap8 w0 w1 w2 w3 w4 w5 w6 w7 w8 wm0 wm1 wm2 wm3 wm4 wm5 wm6 wm7 wm8 ws0 ws1 ws2 ws3 ws4 ws5 ws6 ws7 ws8 d1 d2 d3 d4 d5 d6 d7 d8 o641 o642 o643 o644 o645 o646 o647 o648 pfarm prent pbusn TRUST ALIMRC ALIMPD DC EXEM mid niexem a1 a2 a3 a4 a5 a6 a7 a8 ct resid FTC mc mcp o64_t o64_tf pagix cgs AGIXposni AGIXposni2 absinc incni prpd DBwg nfAGI SSnf UNEMnf nfex nfwg alimrc5K PropExpn PropDepr ftaxPT FICA pagix90 avPassTh) =totwag alldiv totint ptotint totntint ptotcg partscptot totbusn ppartscptot ptotbusn totpens totpenstx totct totftax totsitx totiptax totwtax totdis nr DEPD totagi totfarm totrent tap tap0 tap1 tap2 tap3 tap4 tap5 tap6 tap7 tap8 tw0 tw1 tw2 tw3 tw4 tw5 tw6 tw7 tw8 twm0 twm1 twm2 twm3 twm4 twm5 twm6 twm7 twm8 tws0 tws1 tws2 tws3 tws4 tws5 tws6 tws7 tws8 td1 td2 td3 td4 td5 td6 td7 td8 to641 to642 to643 to644 to645 to646 to647 to648 totpfarm totprent pbusntot totTRUST totALIMRC totALIMPD totDC totexem totmid totniexem ta1 ta2 ta3 ta4 ta5 ta6 ta7 ta8 tct tresid tftc tmc tmcp to64_t to64_tf ptotagi tcgs AGIXposnitot AGIXposni2tot tabsinc tincni tprpd totDBwg tnfAGI tSSnf tUNEMnf tnfex tnfwg talimrc5K totexp tPropDepr tftaxPT tfica tpagix90 tavPassTh ; run; data TAB&yr; merge TAB&yr totals; by count; run; data TAB&yr; set TAB&yr; * Other gains missing in 1960 and 1964, use real 1962 and 1966 totals to estimate/interpolate and positive business income to allocate to tax returns; if (&yr=1960) then CGOTH = (&gnoth1962*&cpi1960/&cpi1962 ) *(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn); if (&yr=1964) then CGOTH = (&gnoth1962*&cpi1960/&cpi1962 + &gnoth1966*&cpi1960/&cpi1966)/2*(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn); * 1960: Non-deductible loss effect based on inflation adj. amount from 1962 and 1962 distribution; if (&yr = 1960) then do; if (IncGrp=1) then NDLoss = 1000000*313*0.22*(ap0+ap1)/(tap0+tap1); if (IncGrp=2) then NDLoss = 1000000*313*0.22*(ap2/tap2); if (IncGrp=3) then NDLoss = 1000000*313*0.00*(ap3/tap3); if (IncGrp=4) then NDLoss = 1000000*313*0.07*(ap4/tap4); if (IncGrp=5) then NDLoss = 1000000*313*0.06*(ap5/tap5); if (IncGrp=6) then NDLoss = 1000000*313*0.16*(ap6/tap6); if (IncGrp=7) then NDLoss = 1000000*313*0.14*(ap7/tap7); if (IncGrp=8) then NDLoss = 1000000*313*0.13*(ap8/tap8); end; * Total AGI is lower in microdata than SOI reports, close gap (scale up by share of positive AGI); if (&yr = 1964) then AGIX = AGIX + 1000000*(19687)*(pagix90/tpagix90); * ALIMONY: impute for years in the 1970s when missing alimony payments deducted; if (&yr in(1971,1972,1974,1976,1978)) then do; totALIMPD=1965403000*&&cpi&yr/&cpi1979*(1+(&yr-1979)*0.5/20); * index 1979 total alimony by inflation and scale by divorcee rate, which doubled between 1960 and 1980 www.washingtonpost.com/news/wonk/wp/2015/06/23/144-years-of-marriage-and-divorce-in-the-united-states-in-one-chart/?utm_term=.1d174ff3fe44; ALIMPD=totALIMPD*(0.25*TOTDIV/alldiv+0.75*WAGE/totwag); * distribute alimony paid when missing in data by quarter dividends and three-quarters by wages; end; * Allocate gap between reported alimony paid and received: 75% to nonfilers and 25% to returns with at least reported reciepts of $5K in $2015; if ALIMRC=. then ALIMRC=0; if (totALIMRC>0) then do; if (id = .)and(tnfex>0) then ALIMRCtot = 0.75*(totALIMPD - totALIMRC)*(nfex/tnfex); if (id ne .)and(talimrc5K>0) then ALIMRCtot = ALIMRC + 0.25*(totALIMPD - totALIMRC)*(alimrc5K/talimrc5K); * issue in 2008 equals .; end; if (&yr=2008)and(totALIMRC>0) then ALIMRCtot = 0.5*ALIMRC*(totALIMPD/totALIMRC); * address 2008-only issue: proportionally scale up reported alimony received; if (&yr<1971) then do; * impute alimony in 1960s when missing data by approximating 1979 overall effect; ALIMRCtot = 1965403000*&&cpi&yr/&cpi1979*(1+(&yr-1979)*0.5/20)*(0.60*exem/totexem +0.40*WAGE/totwag); * distribute alimony received 60% per capita and 40% by wages; ALIMPD = 1965403000*&&cpi&yr/&cpi1979*(1+(&yr-1979)*0.5/20)*(0.25*TOTDIV/alldiv+0.75*WAGE/totwag); * distribute alimony paid quarter dividends and three-quarters by wages; ALIMRC = 0.5*ALIMRCtot; * estimated amount in AGI, half estimated to be reported in 1971, first year variable available; end; if ALIMRCtot=. then ALIMRCtot=0; ALIMRCa = ALIMRCtot - ALIMRC; * add underreported alimony received (grossing up by amount deducted); * ESI pre-ACA distributions (and estate tax & PSZ pension distributions); PENpsz=0; DIVpsz=0; ESTX=0; ESI=0; CRETpsz=0; CTAXpsz=0; %do i = 1 %to 8; if (gp=&i)and(ta&i>0) then ESTX = 1000000*&&est&yr*est_ratio*(a&i/ta&i); * Estate tax paid by average ten-year decedent imputation by tax to income ratio; if (gp=&i)and(ta&i>0) then PENpsz = &&ret&i&u&yr*totpens*(a&i/ta&i); if (id=.) then PENpsz=0; * allocate pension income by PSZ non-SS retirement distribution; if (gp=&i)and(tw&i>0)and(mars=2) then ESI = 1000000*&&esi_mar&i*&&esi&yr*(wm&i/twm&i); * ESI: employer-sponsored insurance, allocate by AGI group and then wages within each group; if (gp=&i)and(tw&i>0)and(mars ne 2) then ESI = 1000000*&&esi_sin&i*&&esi&yr*(ws&i/tws&i); * ESI: employer-sponsored insurance, allocate by AGI group and then wages within each group; %end; if (IncGrp=1)and(AGIXa <0)and(mars=2) then ESI = 1000000*&esi_mar0*&&esi&yr*(wm0)/(twm0); if (IncGrp=1)and(AGIXa <0)and(mars ne 2) then ESI = 1000000*&esi_sin0*&&esi&yr*(ws0)/(tws0); if (IncGrp=1)and(AGIXa>=0)and(mars=2) then ESI = 1000000*&esi_mar1*&&esi&yr*(wm1)/(twm1); if (IncGrp=1)and(AGIXa>=0)and(mars ne 2) then ESI = 1000000*&esi_sin1*&&esi&yr*(ws1)/(tws1); * ESI Post-ACA distributions; %if (&yr<=2013) %then %do; %do i = 1 %to 8; if (gp=&i)and(tw&i>0)and(mars=2) then ESI = 1000000*&&esi_marp&i*&&esi&yr*(wm&i/twm&i); * ESI: employer-sponsored insurance, allocate by AGI group and then wages within each group; if (gp=&i)and(tw&i>0)and(mars ne 2) then ESI = 1000000*&&esi_sinp&i*&&esi&yr*(ws&i/tws&i); * ESI: employer-sponsored insurance, allocate by AGI group and then wages within each group; %end; if (IncGrp=1)and(AGIXa <0)and(mars=2) then ESI = 1000000*&esi_marp0*&&esi&yr*(wm0)/(twm0); if (IncGrp=1)and(AGIXa <0)and(mars ne 2) then ESI = 1000000*&esi_sinp0*&&esi&yr*(ws0)/(tws0); if (IncGrp=1)and(AGIXa>=0)and(mars=2) then ESI = 1000000*&esi_marp1*&&esi&yr*(wm1)/(twm1); if (IncGrp=1)and(AGIXa>=0)and(mars ne 2) then ESI = 1000000*&esi_sinp1*&&esi&yr*(ws1)/(tws1); %end; * Pre-ACA; * FSA contributions: allocate like ESI; FSA = &&fsa&yr * ESI/&&esi&yr; * Allocate missing pension variables in 1960; if (&yr=1960) then do; totpens=2000000000; totpenstx=totpens; * No pension variable available for 1960, is about $2.3B in 1962 so assume $2.0B in 1960; PENSION =totpens/61028000*1.128; PENSTX_calc=PENSION; * also need micro level pension income, so distribute equally among all filers, this is only used to allocate some corp income and taxes to lower parts of distribution; end; * Residential property taxes to non-itemizers (5% assigned to to non-filers, as suggested by SCF share to bottom quintile, and assigned below); PRPDi = PRPD; * amount deducted on returns; if not((&yr>=1967)and(&yr<=1971))and(item=0) then PRPD = 1000000*(&&xiptx&yr-0.05*&&rtx&yr)*(incni/tincni); if (&yr>=1967)and(&yr<=1971) then PRPD = PRPD + 1000000*(&&xiptx&yr-0.05*&&rtx&yr)*(PRPD/tprpd); * scale up estimated amounts for years missing deductions where non-itemizers not well-identified; * Distribute imputed rent from owner-occupied housing to filers using itemized property taxes and residual to non-itemizing filers; IRENT=0; IRENT =1000000*&&imprent&yr*0.95*(PRPD/1000000/(0.95*&&rtx&yr)); * 95% of imputed rent (including indiv. prop tax) times share of itemized indiv prop tax (5% to nonfilers below); * Distribute corporate retained earnings (CRET), corporate taxes (CTAX), business property taxes (BUSPTAX), and other taxes by disposable income (OTAX); CRET=0; CRET =1000000*&&totcorpNIPA&yr*((1-&&FracPenNew&yr-&&FracNPGv&yr) *(0.75*TOTDIV/alldiv + 0.25*cgs/tcgs) + &&FracPenNew&yr*(&&frdb&yr*DBwg/totDBwg +(1-&&frdb&yr)*DC/totDC) + &&FracNPGv&yr*(0.5*exem/totexem+0.5*WAGE/totwag)); if (&cg ne 25) then CRET =1000000*&&totcorpNIPA&yr*((1-&&FracPenNew&yr-&&FracNPGv&yr) *((1-&cg/100)*TOTDIV/alldiv + &cg/100*cgs/tcgs) + &&FracPenNew&yr*(&&frdb&yr*DBwg/totDBwg +(1-&&frdb&yr)*DC/totDC) + &&FracNPGv&yr*(0.5*exem/totexem+0.5*WAGE/totwag)); CTAX=0; if (&yr ne 1960) then CTAX =1000000*&&totctaxNIPA&yr*(0.25*WAGE/totwag + 0.75*(&&Fcp&yr*(0.75*TOTDIV/alldiv + 0.25*cgs/tcgs) + &&Frt&yr *(&&frdb&yr*DBwg/totDBwg +(1-&&frdb&yr)*DC/totDC) + &&Fdt&yr*pINTEREST/ptotint + (1- &&Fcp&yr- &&Frt&yr- &&Fdt&yr) *(0.5*exem/totexem+0.5*WAGE/totwag))); BUSPTAX=0; if (&yr ne 1960) then BUSPTAX=1000000*&&bpr&yr* (&&aFcp&yr*(0.75*TOTDIV/alldiv + 0.25*cgs/tcgs) + &&aFrt&yr *((&&frdb&yr*DBwg/totDBwg)+(1-&&frdb&yr)*DC/totDC) + &&aFdt&yr*pINTEREST/ptotint + (1-&&aFcp&yr-&&aFrt&yr-&&aFdt&yr-&&aFps&yr)*(0.5*exem/totexem+0.5*WAGE/totwag) + &&aFps&yr*(avPassTh)/(tavPassTh)); *absolute value of net income for each of the following: partnerships and S corporations, Sch. C businesses, rents, and Sch. F farms; OTAX =1000000*(&&otx&yr+&&subtr&yr)*(DISP_INC/totdis); * other indirect taxes, mostly sales taxes, and subsidies and transfers (includes user fee type taxes, to add); OTAXX=0; OTAXX =1000000*(&&otxx&yr )*(DISP_INC/totdis); * other indirect taxes, mostly sales taxes, excluding user fee type taxes (to subract for after-tax); NPGV=0; NPGV =1000000*&&npgv&yr*(0.5*exem/totexem+0.5*WAGE/totwag); * remaining non-profit and government income; FED=0; FED =1000000*&&fed&yr*(absinc/tabsinc); * Federal Reserve payments to treasury; * Retirement allocations; RETINC=0; RETINC =1000000*&&uret&yr*(&&frdb&yr*DBwg/totDBwg +(1-&&frdb&yr)*DC/totDC); * Undistributed retirement income distributed by topcoded wages (for DB portion) and DC retirement account wealth; RETADJ=0; RETADJ =1000000*&&retadj&yr*(&&frdb&yr*DBwg/totDBwg +(1-&&frdb&yr)*DC/totDC); * retirement adjustment to account for gap between current year distributed income and employer/employee contributions; ******************* * DETECTED MISREPORTING GROUPS: uses Auten and Langetieg (2020) detailed estimates from TCMP and NRP audit studies; *******************; rnum = 100*ranuni(4599); * set seed and set pseudorandom numbers for assigning ratio groups; CALL STREAMINIT(4186516); * set pseudorandom numbers for draws; * Set underreporting allocation income/ratio groups, where ratio groups are set randomly within each reported income group ; UndGp = .; %do i = 1 %to 11; * underreporting table AGI groups: -50K, <0, P0-40,...P80-90, 90-95, 95-99, 99-99.5, top 0.5%; cumlatpb=0; * reset cumulative counts for each new income group (makes sure each observation chosen once at most); %do rc = 0 %to 9; * 10 underreporting ratio groups: -0.5, 0.5, 1, 1.01-1.1, 1.1-1.2, 1.2-1.5, 1.5-2, 2-4, 4-8, 8+ (each income group has these ratio groups to create heterogeneity and reranking effects similar to TCMP/NRP audits); pb=0; if (&yr<2006) then pb=&&pb2001_&i&u&rc; if (&yr=2006)or(&yr=2007) then pb=&&pb2007_&i&u&rc; if (&yr=2008)or(&yr=2009) then pb=&&pb2009_&i&u&rc; if (&yr=2010)or(&yr=2011) then pb=&&pb2011_&i&u&rc; if (&yr >= 2012) then pb=&&pb2013_&i&u&rc; if Grp=&i and rnum>cumlatpb and rnum<=(cumlatpb + pb) and pb ne 0 and UndGp=. then UndGp = &i*10 + &rc; * gps: 10 to 129; cumlatpb = cumlatpb + pb; * add new share of returns for next ratio group (same income group); %end; * ratio group; %end; * income group; *****************************************************************; * MISREPORTED INCOME: GRADIENT APPROACH *****************************************************************; * UNDERREPORTING and overreporting from TCMP/NRP audit studies: Auten and Langetieg (2020) method using microdata approach. Select subgroups and allocate under/over-reported income to each income/ratio group; EVexm=0; EVgrd=0; %let max0=0; %let max1=0; %let max2=0; %let max3=1.1; %let max4=1.2; %let max5=1.5; %let max6=2.0; %let max7=4; %let max8=8; %let max9=999; %let min0=0; %let min1=0; %let min2=0; %let min3=1; %let min4=1.1; %let min5=1.2; %let min6=1.5; %let min7=2; %let min8=4; %let min9=8; %do i = 1 %to 11; * underreporting table income groups: -25K, <0, P0-40,...P80-90, 90-95, 95-99, 99-99.5, 99.5-99.9, top 0.1% sorted by busines income or wages; %do rc = 0 %to 9; * 10 underreporting ratio groups: -0.5, 0.5, 1, 1.01-1.1, 1.1-1.2, 1.2-1.5, 1.5-2, 2-4, 4-8, 8+ (each income group has these ratio groups to create heterogeneity and reranking effects similar to NRP audits); * for returns in each income/ratio group, exam income = reported plus detected evasion = Multiply the absolute value of the reported income by the average ratio in the average ratio group; if UndGp = (&i*10 + &rc) then do; ratio=0; stddev=0; if (&yr<1992) then do; ratio = &&sb1988_&i&u&rc; stddev = &&var1988_&i&u&rc * abs(ratio); end; * use 1988 TCMP estimates before 1992; if (&yr>=1992)and(&yr<=2003) then do; ratio = &&sb2001_&i&u&rc; stddev = &&var2001_&i&u&rc * abs(ratio); end; * use 2001 NRP estimates for 1992 to 2003; if (&yr>=2004)and(&yr<=2007) then do; ratio = &&sb2007_&i&u&rc; stddev = &&var2007_&i&u&rc * abs(ratio); end; * use 2006/07 NRP estimates for 2004 to 2007; if (&yr>=2008)and(&yr<=2009) then do; ratio = &&sb2009_&i&u&rc; stddev = &&var2009_&i&u&rc * abs(ratio); end; * use 2008/09 NRP estimates for 2008 to 2009; if (&yr>=2010)and(&yr<=2011) then do; ratio = &&sb2011_&i&u&rc; stddev = &&var2011_&i&u&rc * abs(ratio); end; * use 2010/11 NRP estimates for 2010 to 2011; if (&yr>=2012) then do; ratio = &&sb2013_&i&u&rc; stddev = &&var2013_&i&u&rc * abs(ratio); end; * use 2012/13 NRP estimates since 2012; *maxratio = &&max&rc; *minratio=&&min&rc; if (&rc=0)and(ratio<-1) then EVexm = abs(AGIXa)*(1+min(-1,rand('NORMAL',ratio,stddev))); * overreporting (negative evasion): becomes more negative; if (&rc=1)and(ratio< 0) then EVexm = abs(AGIXa)*(1+max(-1,rand('NORMAL',ratio,stddev))); * underreporting: 0.5 ratio group with negative AGI applies to cases where the audit reduces losses (but still negative), ratio of -0.670 means that auditors disallowed 33% of the negative amount. Multiplying the absolute value of AGI by -.670 gives audit-corrected income with smaller negative amount; if (&rc=1)and(ratio> 0) then EVexm = -abs(AGIXa)*(1-min( 1,rand('NORMAL',ratio,stddev))); * overreporting (negative evasion): becomes less positive; if (&rc>=3)and(&rc<9)and(ratio>1) then do; mult = max(&&min&rc,min(&&max&rc,rand('NORMAL',ratio,stddev))); EVexm = abs(AGIXa)*(mult-1); end; * underreporting of most ratio groups; if (&rc=9)and(ratio>1) then do; mult = min(ratio*1.25,max(8,rand('NORMAL',ratio,stddev))); * for top ratio group set maximum to 1.25 average ratio (about 0.4% of returns); EVexm = abs(AGIXa)*(mult-1); end; * Gradient multipliers by ratio group (no overreporting added); %let gmult0=0; %let gmult1=5.7; %let gmult2=0; %let gmult3=8; %let gmult4=6.9; %let gmult5=5.7; %let gmult6=4.6; %let gmult7=3.4; %let gmult8=2.3; %let gmult9=1.1; * multipliers for undetected underreporting only applied to underreporting (does not apply to overreported income); EVgrd = 0; if (EVexm > 0) and (AGIXa>=0) then EVgrd = EVexm*(&&gmult&rc - 1); * undetected underreporting of filers with positive AGIs (subtract one to remove detected portion ignore negative AGI because NOLs should not have multiplier applied); if (EVgrd=.)or(EVgrd<0) then EVgrd=0; EVexm_pos = EVexm; if EVexm_pos<0 then EVexm_pos=0; end; * UndGp; %end; * ratio group; %end; * income group; run; proc means data=TAB&yr; weight xwgt; output out=evasionpre sum(EVexm EVgrd EVexm_pos CRET CTAX BUSPTAX OTAX PENpsz)= tEVexm tEVgrd tEVexm_pos totcret totctax totbusptax tototax tpenpsz mean(count)=count; run; data TAB&yr; merge TAB&yr evasionpre; by count; run; data TAB&yr; set TAB&yr; %let undfl = 0.95; * share of underreported income to filers; * AUDIT is only audit-based part of underreporting adjustment to compare to TCMP/NRP, other components added to UNDER below (CCadj and residual); EVgrd2 = (EVgrd/tEVgrd)*tEVexm_pos*(3.3-1); * scale undetected underreporting to target historical overall DCE multiplier of 3 (deduct detected amount by subtracting by one); if (EVgrd2=.) then EVgrd2=0; AUDIT = EVexm + EVgrd2; * Filer underreporting equals detected and undetected amounts; UNDERWG = AUDIT*&undfl*&&wgu&yr/(&&wgu&yr+&&farmu&yr+&&nfu&yr+&&rentu&yr+&&scpu&yr); UNDERBUS = AUDIT*&undfl - UNDERWG; if UNDERWG =. then UNDERWG=0; if UNDERBUS =. then UNDERBUS=0; AUDITBUS = UNDERBUS; UNDER = AUDIT; * Nonfarm proprietor income: allocate Capital Consumption adjustment (since 2001, divided into expensing and accelerated depreciation allocated by non-expensing depreciation) and Residual from NIPA total; if UNDER=. then UNDER=0; if totexp=. then totexp=0; if PropExpn=. then PropExpn=0; if pPARTSCP=. then pPARTSCP=0; if pBUSN=. then pBUSN=0; if (&yr <= 1980) then do; * before 1981 no expensing and minimal CC adj and incomplete depreciation variables; UNDER = UNDER + (1000000*&&nfcc&yr + 1000000*&&nfres&yr)*(pPARTSCP + pBUSN)/(ppartscptot+ptotbusn); if (%eval(&incometype) >= 227) then do; PARTSCP = PARTSCP + (1000000*&&nfcc&yr + 1000000*&&nfres&yr)*(pPARTSCP )/(ppartscptot+ptotbusn); BUSN = BUSN + (1000000*&&nfcc&yr + 1000000*&&nfres&yr)*( pBUSN)/(ppartscptot+ptotbusn); end; * incometype>=227; end; * 1980 and earlier; if (&yr > 1980)and(tPropDepr>0) then do; UNDER = UNDER + 0.85*PropExpn + (1000000*&&nfcc&yr - 0.85*totexp)*(PropDepr/tPropDepr) + 1000000*&&nfres&yr*(pPARTSCP + pBUSN)/(ppartscptot+ptotbusn); if (%eval(&incometype) >= 227) then do; PARTSCP= PARTSCP + (0.85*PropExpn + (1000000*&&nfcc&yr - 0.85*totexp)*(PropDepr/tPropDepr) + 1000000*&&nfres&yr*(pPARTSCP + pBUSN)/(ppartscptot+ptotbusn))*ppartscptot/(ppartscptot+ptotbusn); BUSN = BUSN + (0.85*PropExpn + (1000000*&&nfcc&yr - 0.85*totexp)*(PropDepr/tPropDepr) + 1000000*&&nfres&yr*(pPARTSCP + pBUSN)/(ppartscptot+ptotbusn))*ptotbusn/(ppartscptot+ptotbusn); end; * incometype>=227; end; * since 1980; *****************************************************************; * Allocate inflation corrections for interest: households by taxable and tax-exempt interest, Business by positive net income, Government evenly by income; INFch = 0; if (&yr ne 1960) and (&incometype >= 226) then do; if (&yr < 1987) then HHinfch = 0; HHinfch = 1000000*(&&infHH&yr * (INTEREST ) / (totint ) + &&infWG&yr * WAGE / totwag); if (&yr >= 1987) then HHinfch = 0; HHinfch = 1000000*(&&infHH&yr * (INTEREST+NTINT) / (totint+totntint) + &&infWG&yr * WAGE / totwag); BUSinfch = 0; BUSinfch = 1000000*&&infbus&yr * (&&aFcp&yr/(&&aFcp&yr+&&aFps&yr)*(0.75*TOTDIV/alldiv + 0.25*cgs/tcgs) + &&aFps&yr/(&&aFcp&yr+&&aFps&yr)*(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn)); GOVinfch = 0; GOVinfch = 1000000*&&infgov&yr * (FTAX+CTAX+SITX) / (totftax+totsitx+totctax); INFch = HHinfch + BUSinfch + GOVinfch; * sums to zero at aggregate level; end; if UNDER=. then UNDER=0; if (SCP =.) then SCP=0; SCPp = SCP; if (SCPp<0) then SCPp=0; * non-negative S corp income (used in NIPAs, see www.bea.gov/faq/index.cfm?faq_id=318); adult = 1; if (mars=2) then adult=2; if (less20=1)or(ov20dep=1)or(remNR) then adult=0; mfs=0; if (mars=3) then mfs=1; negAGI=0; negAGIn=0; if (AGIX<0) then do; negAGI=AGIX; negAGIn=1; end; u20inc=0; ov20depinc=0; depwas=0; u20inc2=0; if (less20=1) then u20inc2 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT; if (less20=1) then u20inc = AGIX + STATADJ - SSAGIX - UNEM - CGSD; if (ov20dep=1) then ov20depinc = AGIX + STATADJ - SSAGIX - UNEM - CGSD; depwas=0; dp_u15=0; dp_o15=0; dpcp_u15=0; dp_cp_o15=0; if (less20=1) or (ov20dep=1) then do; depwas = WAGE; if ((less20=1)and(u20inc< 15000*&&cpi&yr/&cpi2015))or((ov20dep=1)and(ov20depinc< 15000*&&cpi&yr/&cpi2015)) then do; dp_u15=AGIX + STATADJ - SSAGIX - UNEM - CGSD; dp_u15n =1; end; if ((less20=1)and(u20inc>=15000*&&cpi&yr/&cpi2015))or((ov20dep=1)and(ov20depinc>=15000*&&cpi&yr/&cpi2015)) then do; dp_o15=AGIX + STATADJ - SSAGIX - UNEM - CGSD; dp_o15n =1; end; if ((less20=1)and((TOTDIV+INTEREST+X004)< 15000*&&cpi&yr/&cpi2015))or((ov20dep=1)and((TOTDIV+INTEREST+X004)< 15000*&&cpi&yr/&cpi2015)) then do; dpcp_u15=TOTDIV+INTEREST+X004; dpcp_u15n=1; end; if ((less20=1)and((TOTDIV+INTEREST+X004)>=15000*&&cpi&yr/&cpi2015))or((ov20dep=1)and((TOTDIV+INTEREST+X004)>=15000*&&cpi&yr/&cpi2015)) then do; dpcp_o15=TOTDIV+INTEREST+X004; dpcp_o15n=1; end; end; if (nr=1) then nrwas = WAGE; if (depun=1) then depuni=AGIX + STATADJ - SSAGIX - UNEM - CGSD; * Allocate 5% of passthrough-related individual income taxes to wages; FTAX = FTAX - ftaxPT; * remove shifted passthrough tax; FTAX = FTAX + tftaxPT * (WAGE / totwag); * add shifted passthrough tax proportionally to wages; * State income taxes to non-itemizing filers (<1% paid by non-filers); if (item=0)and (AGIXpos< &&at90cut&yr)and(&yr<2018) then SITX = 1000000*(&&xsitx&yr)*(AGIXposni/AGIXposnitot); if (item=0)and (AGIXpos< &&at90cut&yr)and(&yr>=1979) then do; SITX=0; if (state not in(2, 10, 29, 30, 43, 44, 48, 51)) then SITX = 1000000*(&&xsitx&yr)*(AGIXposni2/AGIXposni2tot); end; * since 1979 do not allocate to states with no income tax: AK, FL, NH, NV, TN, TX, WA, WY (assumes those in NH and TN with investment income tend to itemize); if SITX=. then SITX=0; * State income tax for years missing deduction amounts and since 2018 (also property taxes since 2018); %let s_1960_1 =0.100; %let s_1960_2 =0.313; %let s_1960_3=0.090; %let s_1960_4=0.195; %let s_1960_5=0.065; %let s_1960_6=0.127; %let s_1960_7=0.070; %let s_1960_8=0.040; %let s_1967_1 =0.100; %let s_1967_2 =0.376; %let s_1967_3=0.098; %let s_1967_4=0.175; %let s_1967_5=0.063; %let s_1967_6=0.100; %let s_1967_7=0.062; %let s_1967_8=0.026; %let s_1968_1 =0.100; %let s_1968_2 =0.415; %let s_1968_3=0.102; %let s_1968_4=0.170; %let s_1968_5=0.060; %let s_1968_6=0.080; %let s_1968_7=0.050; %let s_1968_8=0.023; %let s_1974_1 =0.100; %let s_1974_2 =0.402; %let s_1974_3=0.137; %let s_1974_4=0.178; %let s_1974_5=0.052; %let s_1974_6=0.073; %let s_1974_7=0.040; %let s_1974_8=0.018; %let s_1976_1 =0.100; %let s_1976_2 =0.410; %let s_1976_3=0.136; %let s_1976_4=0.179; %let s_1976_5=0.049; %let s_1976_6=0.070; %let s_1976_7=0.038; %let s_1976_8=0.018; %let s_1978_1 =0.100; %let s_1978_2 =0.411; %let s_1978_3=0.139; %let s_1978_4=0.180; %let s_1978_5=0.047; %let s_1978_6=0.066; %let s_1978_7=0.037; %let s_1978_8=0.020; %let s_2017_1 =0.010; %let s_2017_2 =0.240; %let s_2017_3=0.130; %let s_2017_4=0.220; %let s_2017_5=0.070; %let s_2017_6=0.120; %let s_2017_7=0.110; %let s_2017_8=0.100; %let p_2017_1 =0.070; %let p_2017_2 =0.420; %let p_2017_3=0.170; %let p_2017_4=0.210; %let p_2017_5=0.040; %let p_2017_6=0.050; %let p_2017_7=0.020; %let p_2017_8=0.020; if (&yr=1960)or((&yr>=1967)and(&yr<=1971))or(&yr=1974)or(&yr=1976)or(&yr=1978) then SITX=0; * Remove variables in years for which use distribution of surrounding years; if (&yr=1960) then do; %do i = 1 %to 8; if (gp=&i)and(ta&i>0) then SITX = 1000000*(&&sitx&yr)*&&s_1960_&i*(a&i/ta&i); %end; end; if (&yr=1967) then do; %do i = 1 %to 8; if (gp=&i)and(ta&i>0) then SITX = 1000000*(&&sitx&yr)*&&s_1967_&i*(a&i/ta&i); %end; end; if (&yr>=1968)and(&yr<=1971) then do; %do i = 1 %to 8; if (gp=&i)and(ta&i>0) then SITX = 1000000*(&&sitx&yr)*&&s_1968_&i*(a&i/ta&i); %end; end; if (&yr=1974) then do; %do i = 1 %to 8; if (gp=&i)and(ta&i>0) then SITX = 1000000*(&&sitx&yr)*&&s_1974_&i*(a&i/ta&i); %end; end; if (&yr=1976) then do; %do i = 1 %to 8; if (gp=&i)and(ta&i>0) then SITX = 1000000*(&&sitx&yr)*&&s_1976_&i*(a&i/ta&i); %end; end; if (&yr=1978) then do; %do i = 1 %to 8; if (gp=&i)and(ta&i>0) then SITX = 1000000*(&&sitx&yr)*&&s_1978_&i*(a&i/ta&i); %end; end; if (&yr>2017) then do; %do i = 1 %to 8; if (gp=&i)and(ta&i>0) then do; SITX = 1000000*(&&sitx&yr)*&&s_2017_&i*(a&i/ta&i); PRPD = 1000000*(&&rtx&yr)*0.95*&&p_2017_&i*(a&i/ta&i); IRENT = 1000000*(&&imprent&yr)*0.95*&&p_2017_&i*(a&i/ta&i); end; %end; end; if SITX=. or SITX<0 then SITX=0; if PRPD=. then PRPD=0; if IRENT=. then IRENT=0; * Deduct state refundable tax credits in recent years as a share of federal refundable credits state by state; * see https://www.taxcreditsforworkersandfamilies.org/state-tax-credits/ and http://users.nber.org/~taxsim/sales-tax-irs-publication-600/statesoi.html; if REFCR=. or REFCR<0 then REFCR=0; SITXy=SITX; if (&yr>=1986)and(state ne .) then do; * deduct state refundable credits; if (&yr>=2015)and(state=5)and(WAGE<30000) then SITX = SITX - REFCR*0.85; * California 2015 85 percent and wage < $30,000; if (&yr>=1999)and(state=6) then SITX = SITX - REFCR*0.85; * Colorado 1999 10 percent; if (&yr>=2011)and(state=7) then SITX = SITX - REFCR*0.23; * Connecticu 2011 23 percent; if (&yr>=2000)and(state=9) then SITX = SITX - REFCR*0.40; * DC 2000 40 percent; if (&yr>=2000)and(state=14) then SITX = SITX - REFCR*0.18; * Illinois 2000 18 percent; if (&yr>=1999)and(state=15) then SITX = SITX - REFCR*0.09; * Indiana 1999 9 percent; if (&yr>=1989)and(state=16) then SITX = SITX - REFCR*0.15; * Iowa 1989 15 percent; if (&yr>=1998)and(state=17) then SITX = SITX - REFCR*0.17; * Kansas 1998 17 percent; if (&yr>=2007)and(state=19) then SITX = SITX - REFCR*0.05; * Louisiana 2007 5 percent; if (&yr>=2000)and(state=20) then SITX = SITX - REFCR*0.15; * Maine 2000 15 percent; if (&yr>=1987)and(state=21) then SITX = SITX - REFCR*0.28; * Maryland 1987 28 percent; if (&yr>=1997)and(state=22) then SITX = SITX - REFCR*0.30; * Massach 1997 30 percent; if (&yr>=2006)and(state=23) then SITX = SITX - REFCR*0.06; * Michigan 2006 6 percent; if (&yr>=1991)and(state=24) then SITX = SITX - REFCR*0.34; * Minnesota 1991 34 percent; if (&yr>=2017)and(state=27) then SITX = SITX - REFCR*0.03; * Montana 2017 3 percent; if (&yr>=2006)and(state=28) then SITX = SITX - REFCR*0.10; * Nebraska 2006 10 percent; if (&yr>=2000)and(state=31) then SITX = SITX - REFCR*0.37; * New Jersey 2000 37 percent; if (&yr>=2007)and(state=32) then SITX = SITX - REFCR*0.10; * New Mexico 2007 10 percent; if (&yr>=1994)and(state=33) then SITX = SITX - REFCR*0.30; * New York 1994 30 percent; if (&yr>=1997)and(state=38) then SITX = SITX - REFCR*0.12; * Oregon 1997 12 percent averaged; if (&yr>=1986)and(state=40) then SITX = SITX - REFCR*0.15; * Rhode Isla 1986 15 percent; if (&yr>=1988)and(state=46) then SITX = SITX - REFCR*0.36; * Vermont 1988 36 percent; if (&yr>=1989)and(state=50) then SITX = SITX - REFCR*0.20; * Wisconsin 1989 20 percent; end; SITXref = SITXy - SITX; * Employee unreimbursed expenses for years missing (1960 and since 2018) using near-year distributions and inflation-adj totals; %let i_1962_1 =0.05; %let i_1962_2 =0.21; %let i_1962_3=0.08; %let i_1962_4=0.27; %let i_1962_5=0.12; %let i_1962_6=0.18; %let i_1962_7=0.08; %let i_1962_8=0.01; %let i_2017_1 =0.13; %let i_2017_2 =0.63; %let i_2017_3=0.13; %let i_2017_4=0.09; %let i_2017_5=0.01; %let i_2017_6=0.01; %let i_2017_7=0.01; %let i_2017_8=0.01; if (&yr=1960) then do; %do i = 1 %to 8; if (gp=&i)and(ta&i>0)and(a&i>0) then EMPEX = 9447904751*&cpi1960/&cpi1962*&&i_1962_&i*(a&i/ta&i); %end; end; if (&yr>2017) then do; %do i = 1 %to 8; if (gp=&i)and(ta&i>0)and(a&i>0) then EMPEX = 100464401592*&&cpi&yr/&cpi2017*&&i_2017_&i*(a&i/ta&i); %end; end; if EMPEX=. or EMPEX<0 then EMPEX=0; * Interest Expense Deduction: interpolate for missing years; * adjust total levels to interpolate relative to years with interest expense variable; if (&yr>=1974)and(&yr<=1979) then IntEx=IntEx*9/5; if (&yr>=1980)and(&yr<=1985) then IntEx=IntEx*4; * adjust distribution to target observed distribution in years with interest expense variable; if &yr ne 1972 and &yr le 1985 then do; if IncGrp=1 then IntEx=IntEx*0.02; if IncGrp=2 then IntEx=IntEx*0.01; if IncGrp=3 then IntEx=IntEx*0.01; if IncGrp=4 then IntEx=IntEx*0.03; if IncGrp=4 and year>1972 then i4=IntEx*0.05; if IncGrp>4 then IntEx=IntEx*0.30; if IncGrp>4 and(&yr=1960 or &yr=1962) then IntEx=IntEx*0.45; if IncGrp>4 and(&yr>=1980)and(&yr<=1985) then IntEx=IntEx*0.14; if IncGrp=1 and(&yr=1967 or &yr=1969 or &yr=1971 or &yr =1979) then IntEx=IntEx*0.007; * total interest (no deduction variables these years); if AGIXa<0 then IntEx=IntEx*0.50; if year=1985 and AGIXa<0 then IntEx=IntEx*0.20; end; if IntEx=. then IntEx=0; * Medicare benefits less premiums (non-filer portion below); MCR = 0; if (mc ne .) and (tmc>0) and (tmc ne .) then do; MCR = 1000000* &&mc&yr *(1-&&mcnf&yr)*(mc/tmc); * Benefits allocated per capita to retirees; if (&yr < 2007) then MCR = MCR - 1000000*(&&mcpr&yr*(1-&&mcnf&yr)+ &&mcprd&yr*(1-&&mcnf&yr*0.5))*(mc/tmc); * before 2007 MC part B premiums allocated on a per capita basis; if (&yr >= 2007)and (tmcp>0) then MCR = MCR - 1000000*&&mcpr&yr*(1-&&mcnf&yr)*(mcp/tmcp); * since 2007, Part B premiums are progressive based on AGI adjustment above; if (&yr >= 2007)and (tmc >0) then MCR = MCR - 1000000*&&mcprd&yr*(1-&&mcnf&yr*0.5)*(mc/tmc); * Part D premiums: vary by cost of plan chosen but small shift of premiums to filers to account for low-income subsidy; end; txretire65=0; if (&yr<1979)and(agex ne 0) then txretire65=PENSTX_calc; * 65+ years old; if (&yr>=1979)and(age>=65) then txretire65=PENSTX_calc; * 65+ years old; * Non-taxable interest: before 1987 impute using SCF because not reported on returns; if (&yr = 1960) then do; * Surveys of Consumer Finances 1962; if (IncGrp=1) then NTINT = 1000000*&&ntint&yr*0.0180*d1/td1; if (IncGrp=2) then NTINT = 1000000*&&ntint&yr*0.0577*d2/td2; if (IncGrp=3) then NTINT = 1000000*&&ntint&yr*0.0000*d3/td3; if (IncGrp=4) then NTINT = 1000000*&&ntint&yr*0.1033*d4/td4; if (IncGrp=5) then NTINT = 1000000*&&ntint&yr*0.1760*d5/td5; if (IncGrp=6) then NTINT = 1000000*&&ntint&yr*0.3382*d6/td6; if (IncGrp=7) then NTINT = 1000000*&&ntint&yr*0.2027*d7/td7; if (IncGrp=8) then NTINT = 1000000*&&ntint&yr*0.1041*d8/td8; end; if (&yr>1960) and (&yr < 1982) then do; * straight-line shares between Surveys of Consumer Finances 1962 and tax dist 1987 (similar to SCF 1983); if (IncGrp=1) then NTINT = 1000000*&&ntint&yr*(0.0757+(0.0082)*(&yr - 1962))*(d1/td1)*0.25; if (IncGrp=2) then NTINT = 1000000*&&ntint&yr*(0.0757+(0.0082)*(&yr - 1962))*(d2/td2)*0.75; if (IncGrp=3) then NTINT = 1000000*&&ntint&yr*(0.0000-(0.0000-0.0859)/20*(&yr - 1962))*(d3/td3); if (IncGrp=4) then NTINT = 1000000*&&ntint&yr*(0.1033-(0.1033-0.1971)/20*(&yr - 1962))*(d4/td4); if (IncGrp=5) then NTINT = 1000000*&&ntint&yr*(0.1760-(0.1760-0.0843)/20*(&yr - 1962))*(d5/td5); if (IncGrp=6) then NTINT = 1000000*&&ntint&yr*(0.3382-(0.3382-0.1538)/20*(&yr - 1962))*(d6/td6); if (IncGrp=7) then NTINT = 1000000*&&ntint&yr*(0.2027-(0.2027-0.1631)/20*(&yr - 1962))*(d7/td7); if (IncGrp=8) then NTINT = 1000000*&&ntint&yr*(0.1041-(0.1041-0.0761)/20*(&yr - 1962))*(d8/td8); *768 or 761; end; if (&yr >= 1982) and (&yr < 1987) then do; * Using tax dist 1987; if (IncGrp=1) then NTINT = 1000000*&&ntint&yr*0.0660*(d1/td1); if (IncGrp=2) then NTINT = 1000000*&&ntint&yr*0.2000*(d2/td2); if (IncGrp=3) then NTINT = 1000000*&&ntint&yr*0.0859*(d3/td3); if (IncGrp=4) then NTINT = 1000000*&&ntint&yr*0.1971*(d4/td4); if (IncGrp=5) then NTINT = 1000000*&&ntint&yr*0.0843*(d5/td5); if (IncGrp=6) then NTINT = 1000000*&&ntint&yr*0.1538*(d6/td6); if (IncGrp=7) then NTINT = 1000000*&&ntint&yr*0.1361*(d7/td7); if (IncGrp=8) then NTINT = 1000000*&&ntint&yr*0.0768*(d8/td8); end; * Add combat pay per capita to wages; COMB = 1000000*&&comb&yr*(count/totct); WAGE = WAGE + COMB; * Allocate Undistributed trust income by distributed trust income (before 1966 missing variable and so allocated by 1966 distribution to income groups); if FTAX=. then FTAX = 0; if SITX=. then SITX = 0; if INTEREST=. then INTEREST = 0; if TOTDIV=. then TOTDIV = 0; if PRPD=. then PRPD = 0; if WTAX=. then WTAX = 0; if (&yr <= 1964) then do; *and(&incometype >= 221) ; if (IncGrp=1) then do; SITX = SITX + 1000000*&&trstx&yr*0.170*1/3*(a1/ta1); *if (&yr ne 1960) then ; FTAX = FTAX + 1000000*&&trftx&yr*0.170*1/3*(a1/ta1); UNDTRST = (1000000*&&trint&yr+1000000*&&trdiv&yr+1000000*&&troth&yr)*0.170*1/3*(a1/ta1); INTEREST = INTEREST + 1000000*&&trint&yr*0.170*1/3*(a1/ta1); TOTDIV = TOTDIV + 1000000*&&trdiv&yr*0.170*1/3*(a1/ta1); end; if (IncGrp=2) then do; SITX = SITX + 1000000*&&trstx&yr*0.170*2/3*(a2/ta2); FTAX = FTAX + 1000000*&&trftx&yr*0.170*2/3*(a2/ta2); UNDTRST = (1000000*&&trint&yr+1000000*&&trdiv&yr+1000000*&&troth&yr)*0.170*2/3*(a2/ta2); INTEREST = INTEREST + 1000000*&&trint&yr*0.170*2/3*(a2/ta2); TOTDIV = TOTDIV + 1000000*&&trdiv&yr*0.170*2/3*(a2/ta2); end; if (IncGrp=3) then do; SITX = SITX + 1000000*&&trstx&yr*0.084*(a3/ta3); FTAX = FTAX + 1000000*&&trftx&yr*0.084*(a3/ta3); UNDTRST = (1000000*&&trint&yr+1000000*&&trdiv&yr+1000000*&&troth&yr)*0.084*(a3/ta3); INTEREST = INTEREST + 1000000*&&trint&yr*0.084*(a3/ta3); TOTDIV = TOTDIV + 1000000*&&trdiv&yr*0.084*(a3/ta3); end; if (IncGrp=4) then do; SITX = SITX + 1000000*&&trstx&yr*0.094*(a4/ta4); FTAX = FTAX + 1000000*&&trftx&yr*0.094*(a4/ta4); UNDTRST = (1000000*&&trint&yr+1000000*&&trdiv&yr+1000000*&&troth&yr)*0.094*(a4/ta4); INTEREST = INTEREST + 1000000*&&trint&yr*0.094*(a4/ta4); TOTDIV = TOTDIV + 1000000*&&trdiv&yr*0.094*(a4/ta4); end; if (IncGrp=5) then do; SITX = SITX + 1000000*&&trstx&yr*0.225*(a5/ta5); FTAX = FTAX + 1000000*&&trftx&yr*0.225*(a5/ta5); UNDTRST = (1000000*&&trint&yr+1000000*&&trdiv&yr+1000000*&&troth&yr)*0.225*(a5/ta5); INTEREST = INTEREST + 1000000*&&trint&yr*0.225*(a5/ta5); TOTDIV = TOTDIV + 1000000*&&trdiv&yr*0.225*(a5/ta5); end; if (IncGrp=6) then do; SITX = SITX + 1000000*&&trstx&yr*0.174*(a6/ta6); FTAX = FTAX + 1000000*&&trftx&yr*0.174*(a6/ta6); UNDTRST = (1000000*&&trint&yr+1000000*&&trdiv&yr+1000000*&&troth&yr)*0.174*(a6/ta6); INTEREST = INTEREST + 1000000*&&trint&yr*0.174*(a6/ta6); TOTDIV = TOTDIV + 1000000*&&trdiv&yr*0.174*(a6/ta6); end; if (IncGrp=7) then do; SITX = SITX + 1000000*&&trstx&yr*0.164*(a7/ta7); FTAX = FTAX + 1000000*&&trftx&yr*0.164*(a7/ta7); UNDTRST = (1000000*&&trint&yr+1000000*&&trdiv&yr+1000000*&&troth&yr)*0.164*(a7/ta7); INTEREST = INTEREST + 1000000*&&trint&yr*0.164*(a7/ta7); TOTDIV = TOTDIV + 1000000*&&trdiv&yr*0.164*(a7/ta7); end; if (IncGrp=8) then do; SITX = SITX + 1000000*&&trstx&yr*0.089*(a8/ta8); FTAX = FTAX + 1000000*&&trftx&yr*0.089*(a8/ta8); UNDTRST = (1000000*&&trint&yr+1000000*&&trdiv&yr+1000000*&&troth&yr)*0.089*(a8/ta8); INTEREST = INTEREST + 1000000*&&trint&yr*0.089*(a8/ta8); TOTDIV = TOTDIV + 1000000*&&trdiv&yr*0.089*(a8/ta8); end; end; * trust before 1966; if (&yr = 1960) then do; * Distribute 1960 Ctax using 1962 corp tax distribution; if (IncGrp=1) then CTAX= &&totctaxNIPA&yr*0.087*1000000*(a1/ta1); if (IncGrp=2) then CTAX= &&totctaxNIPA&yr*0.389*1000000*(a2/ta2); if (IncGrp=3) then CTAX= &&totctaxNIPA&yr*0.091*1000000*(a3/ta3); if (IncGrp=4) then CTAX= &&totctaxNIPA&yr*0.149*1000000*(a4/ta4); if (IncGrp=5) then CTAX= &&totctaxNIPA&yr*0.053*1000000*(a5/ta5); if (IncGrp=6) then CTAX= &&totctaxNIPA&yr*0.094*1000000*(a6/ta6); if (IncGrp=7) then CTAX= &&totctaxNIPA&yr*0.080*1000000*(a7/ta7); if (IncGrp=8) then CTAX= &&totctaxNIPA&yr*0.057*1000000*(a8/ta8); * Distribute 1960 business property tax using 1962 all capital distribution; if (IncGrp=1) then BUSPTAX= &&bpr&yr*0.139*1000000*(a1/ta1); if (IncGrp=2) then BUSPTAX= &&bpr&yr*0.369*1000000*(a2/ta2); if (IncGrp=3) then BUSPTAX= &&bpr&yr*0.114*1000000*(a3/ta3); if (IncGrp=4) then BUSPTAX= &&bpr&yr*0.171*1000000*(a4/ta4); if (IncGrp=5) then BUSPTAX= &&bpr&yr*0.048*1000000*(a5/ta5); if (IncGrp=6) then BUSPTAX= &&bpr&yr*0.069*1000000*(a6/ta6); if (IncGrp=7) then BUSPTAX= &&bpr&yr*0.050*1000000*(a7/ta7); if (IncGrp=8) then BUSPTAX= &&bpr&yr*0.040*1000000*(a8/ta8); * Distribute 1960 inflation adjustment total income using 1962 inflation inflation adjustments; if (IncGrp=1) then INFch = -100.0*1000000*(d1/td1); if (IncGrp=2) then INFch = -300.9*1000000*(d2/td2); if (IncGrp=3) then INFch = 44.4*1000000*(d3/td3); if (IncGrp=4) then INFch = 26.4*1000000*(d4/td4); if (IncGrp=5) then INFch = 33.8*1000000*(d5/td5); if (IncGrp=6) then INFch = 69.1*1000000*(d6/td6); if (IncGrp=7) then INFch = 131.9*1000000*(d7/td7); if (IncGrp=8) then INFch = 95.3*1000000*(d8/td8); end; * Distribute Social Security Benefits before 1985 (see tab C17, based on reported shares in later year adjusted by elderly population in each AGI group); %let ssnf1960=0.4581; %let ss_1_1960=0.3725; %let ss_2_1960=0.1174; %let ss_3_1960=0.017; %let ss_4_1960=0.0236; %let ss_5_1960=0.0043; %let ss_6_1960=0.0056; %let ss_7_1960=0.0012; %let ss_8_1960=0.0003; %let ssnf1962=0.4581; %let ss_1_1962=0.3725; %let ss_2_1962=0.1174; %let ss_3_1962=0.017; %let ss_4_1962=0.0236; %let ss_5_1962=0.0043; %let ss_6_1962=0.0056; %let ss_7_1962=0.0012; %let ss_8_1962=0.0003; %let ssnf1964=0.4717; %let ss_1_1964=0.375; %let ss_2_1964=0.1087; %let ss_3_1964=0.0137; %let ss_4_1964=0.0196; %let ss_5_1964=0.004; %let ss_6_1964=0.0055; %let ss_7_1964=0.0015; %let ss_8_1964=0.0003; %let ssnf1966=0.4425; %let ss_1_1966=0.3818; %let ss_2_1966=0.1223; %let ss_3_1966=0.0159; %let ss_4_1966=0.0252; %let ss_5_1966=0.0047; %let ss_6_1966=0.0058; %let ss_7_1966=0.0015; %let ss_8_1966=0.0003; %let ssnf1967=0.446; %let ss_1_1967=0.3867; %let ss_2_1967=0.1154; %let ss_3_1967=0.0159; %let ss_4_1967=0.0243; %let ss_5_1967=0.0042; %let ss_6_1967=0.0058; %let ss_7_1967=0.0014; %let ss_8_1967=0.0003; %let ssnf1968=0.4195; %let ss_1_1968=0.3941; %let ss_2_1968=0.1325; %let ss_3_1968=0.0168; %let ss_4_1968=0.0241; %let ss_5_1968=0.0051; %let ss_6_1968=0.0059; %let ss_7_1968=0.0017; %let ss_8_1968=0.0003; %let ssnf1969=0.4107; %let ss_1_1969=0.4069; %let ss_2_1969=0.1292; %let ss_3_1969=0.0182; %let ss_4_1969=0.0223; %let ss_5_1969=0.0043; %let ss_6_1969=0.0066; %let ss_7_1969=0.0015; %let ss_8_1969=0.0003; %let ssnf1970=0.4219; %let ss_1_1970=0.4098; %let ss_2_1970=0.1145; %let ss_3_1970=0.0181; %let ss_4_1970=0.0238; %let ss_5_1970=0.0044; %let ss_6_1970=0.0059; %let ss_7_1970=0.0013; %let ss_8_1970=0.0003; %let ssnf1971=0.4769; %let ss_1_1971=0.3542; %let ss_2_1971=0.1192; %let ss_3_1971=0.016; %let ss_4_1971=0.0227; %let ss_5_1971=0.0039; %let ss_6_1971=0.0055; %let ss_7_1971=0.0013; %let ss_8_1971=0.0003; %let ssnf1972=0.4524; %let ss_1_1972=0.3592; %let ss_2_1972=0.1375; %let ss_3_1972=0.0167; %let ss_4_1972=0.0224; %let ss_5_1972=0.0045; %let ss_6_1972=0.0057; %let ss_7_1972=0.0013; %let ss_8_1972=0.0003; %let ssnf1973=0.4541; %let ss_1_1973=0.368; %let ss_2_1973=0.1263; %let ss_3_1973=0.0172; %let ss_4_1973=0.023; %let ss_5_1973=0.0042; %let ss_6_1973=0.0056; %let ss_7_1973=0.0013; %let ss_8_1973=0.0003; %let ssnf1974=0.4711; %let ss_1_1974=0.3318; %let ss_2_1974=0.1379; %let ss_3_1974=0.0217; %let ss_4_1974=0.0261; %let ss_5_1974=0.0042; %let ss_6_1974=0.0055; %let ss_7_1974=0.0014; %let ss_8_1974=0.0003; %let ssnf1975=0.4606; %let ss_1_1975=0.3418; %let ss_2_1975=0.1468; %let ss_3_1975=0.0178; %let ss_4_1975=0.0217; %let ss_5_1975=0.0042; %let ss_6_1975=0.0056; %let ss_7_1975=0.0013; %let ss_8_1975=0.0002; %let ssnf1976=0.4538; %let ss_1_1976=0.349; %let ss_2_1976=0.1438; %let ss_3_1976=0.0188; %let ss_4_1976=0.0232; %let ss_5_1976=0.0043; %let ss_6_1976=0.0056; %let ss_7_1976=0.0012; %let ss_8_1976=0.0003; %let ssnf1977=0.4769; %let ss_1_1977=0.3201; %let ss_2_1977=0.1503; %let ss_3_1977=0.0182; %let ss_4_1977=0.0234; %let ss_5_1977=0.0041; %let ss_6_1977=0.0056; %let ss_7_1977=0.0012; %let ss_8_1977=0.0002; %let ssnf1978=0.4654; %let ss_1_1978=0.3294; %let ss_2_1978=0.1526; %let ss_3_1978=0.0192; %let ss_4_1978=0.0225; %let ss_5_1978=0.0041; %let ss_6_1978=0.0054; %let ss_7_1978=0.0012; %let ss_8_1978=0.0002; %let ssnf1979=0.4654; %let ss_1_1979=0.3204; %let ss_2_1979=0.1522; %let ss_3_1979=0.0212; %let ss_4_1979=0.0272; %let ss_5_1979=0.0053; %let ss_6_1979=0.0066; %let ss_7_1979=0.0015; %let ss_8_1979=0.0002; %let ssnf1980=0.4617; %let ss_1_1980=0.3059; %let ss_2_1980=0.1674; %let ss_3_1980=0.0211; %let ss_4_1980=0.0294; %let ss_5_1980=0.0054; %let ss_6_1980=0.0074; %let ss_7_1980=0.0015; %let ss_8_1980=0.0002; %let ssnf1981=0.4254; %let ss_1_1981=0.3256; %let ss_2_1981=0.1775; %let ss_3_1981=0.0242; %let ss_4_1981=0.0321; %let ss_5_1981=0.0061; %let ss_6_1981=0.0074; %let ss_7_1981=0.0015; %let ss_8_1981=0.0002; %let ssnf1982=0.408; %let ss_1_1982=0.3308; %let ss_2_1982=0.1861; %let ss_3_1982=0.028; %let ss_4_1982=0.0318; %let ss_5_1982=0.0062; %let ss_6_1982=0.0074; %let ss_7_1982=0.0015; %let ss_8_1982=0.0002; %let ssnf1983=0.3734; %let ss_1_1983=0.3542; %let ss_2_1983=0.1997; %let ss_3_1983=0.0268; %let ss_4_1983=0.0311; %let ss_5_1983=0.0056; %let ss_6_1983=0.0075; %let ss_7_1983=0.0015; %let ss_8_1983=0.0002; %let ssnf1984=0.3557; %let ss_1_1984=0.3597; %let ss_2_1984=0.2037; %let ss_3_1984=0.0297; %let ss_4_1984=0.0349; %let ss_5_1984=0.0061; %let ss_6_1984=0.0087; %let ss_7_1984=0.0013; %let ss_8_1984=0.0002; * UI shares from early 1980s returns; %let uinf=0.244; %let ui_1=0.490; %let ui_2=0.244; %let ui_3=0.017; %let ui_4=0.004; %let ui_5=0.001; %let ui_6=0; %let ui_7=0; %let ui_8=0; * Distribute Social Sec. benefits before 1985; %if (&yr=1960) %then %do; * SS: no agex for 1960 file; %do i = 1 %to 8; if (gp=&i) then IMP_SSA2 = 1000000*&&ss&yr * &&ss_&i&u&yr * (a&i / ta&i); %end; %end; %if (&yr>1960)and(&yr<=1984) %then %do; * SS: 1962-1984; %do i = 1 %to 8; if (gp=&i) then IMP_SSA2 = 1000000*&&ss&yr * &&ss_&i&u&yr * (o64&i / to64&i); %end; %end; * share of elderly by incgp; if IMP_SSA2=. then IMP_SSA2 = 0; if o64_tf=. then o64_tf = 0; if (&incometype>=222) and (&yr = 1986) then IMP_SSA2 = IMP_SSA2 + &&xss&yr * 1000000 * (o64_tf/to64_tf); * allocate 1986 residual to elderly (no SSA-1099 data in 1986); * Distribute UI before 1981; if (&yr>=1960)and(&yr<=1980) then do; %do i = 1 %to 8; if (gp=&i) then UNEM2 = 1000000*&&ui&yr * &&ui_&i * (w&i / tw&i); %end; end; ******************; *** NON-FILERS ***; ******************; if (id=.)and(&incometype>=222) then do; * only non-filers (these imputations are excluded from TOTALS incometype=221); * 5% of underreported income to non-filers; UNDERWG = (1-&undfl)*(&&wgu&yr)*1000000*(nfAGI/tnfAGI); UNDERBUS = (1-&undfl)*(&&farmu&yr+&&nfu&yr+&&rentu&yr+&&scpu&yr)*1000000*(nfAGI/tnfAGI); UNDER = UNDERWG + UNDERBUS; WAGE = WAGE + UNDERWG; BUSN = BUSN + UNDERBUS; * Distribute 5% of residential property to elderly non-filers; IRENT = IRENT + 0.05*&&imprent&yr*1000000*(SSnf/tSSnf); * Non-filer SS benefits are imputed amounts by main demographic groups; IMP_SSA2 = SSnf; %if (&yr <= 1984) %then %do; IMP_SSA2 = 1000000*&&ss&yr * &&ssnf&yr * (SSnf/tSSnf);%end; * True up UI benefits to non-filers (small adjustment to non-filer UI benefits based on difference between NIPA less filer amounts and imputed nonfiler amounts); if (&yr> 1980) then UNEM2 = UNEMnf + &&xui&yr *1000000 *(UNEMnf/tUNEMnf); if (&yr<=1980) then UNEM2 = ( &&ui&yr * &uinf *1000000)*(UNEMnf/tUNEMnf); * scale UI portion by share of each non-filer demograahic group; * Add Medicare to non-filers based on group SS benefits; MCR = 1000000*((&&mc&yr - &&mcpr&yr)*&&mcnf&yr - &&mcprd&yr*&&mcnf&yr*0.5)*(SSnf/tSSnf); * Distribute non-filer property taxes; if PRPD=. then PRPD = 0; PRPD = PRPD + &&rtx&yr*1000000*(SSnf/tSSnf) * 0.05; * indiv prop tax to non-filers; end; * non-filer allocations; ******************; if IRENT=. then IRENT = 0; if FICA=. then FICA = 0; if WTAX=. then WTAX = 0; if UNDTRST=. then UNDTRST = 0; if FTAX=. then FTAX = 0; if FTC=. then FTC = 0; if ESTX=. then ESTX = 0; if SITX=. then SITX = 0; if IMP_SSA2=. then IMP_SSA2 = 0; if UNEM2=. then UNEM2 = 0; if CTRAN=. then CTRAN = 0; if NCTRAN=. then NCTRAN = 0; if INTEREST=. then INTEREST = 0; if NTINT=. then NTINT = 0; if TOTDIV=. then TOTDIV = 0; if UNEM2=. then UNEM2 = 0; if MCR=. then MCR = 0; if PRPD=. then PRPD = 0; if WTAX=. then WTAX = 0; if STXRF=. then STXRF = 0; if GAMBLS=. then GAMBLS = 0; if NOLS=. then NOLS = 0; if EXDIV=. then EXDIV = 0; if CGDS=. then CGDS = 0; if IRA=. then IRA = 0; if CGOTH=. then CGOTH = 0; if ALIMRCa=. then ALIMRCa = 0; if ALIMPD=. then ALIMPD = 0; if COMB=. then COMB = 0; if FSA=. then FSA = 0; if INTEX=. then INTEX = 0; if AGIX=. then AGIX = 0; if STATADJ=. then STATADJ = 0; if SSAGIX=. then SSAGIX = 0; if UNEM=. then UNEM = 0; if CGSD=. then CGSD = 0; if NDLoss=. then NDLoss = 0; if NTINT=. then NTINT = 0; if CRET=. then CRET = 0; if AGIXa=. then AGIXa = 0; if REFCR=. then REFCR = 0; if UNDERWG=. then UNDERWG = 0; if UNDERBUS=. then UNDERBUS = 0; ATINC = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB - INTEX + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + MCR + ESREBATE + CTRAN + NCTRAN - FTAX - FTC - ESTX - SITX - CTAX - PRPD - BUSPTAX - WTAX - OTAXX ; TINC = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB - INTEX + IMP_SSA2; * corrected market income plus SS/UI for CPS income for allocating transfers; if ATINC=. then ATINC = 0; if TINC=. then TINC = 0; ficaui = FICA + UI; * Groups to merge with CPS-based Transfers File; year=&yr; married=0; if (mars=2) then married=1; dep_kids=0; if (agegroup ne 2)and((EXEM>1 and married=0)or(EXEM>2 and married=1)) then dep_kids=1; * elderly with dependents is an excluded group for the CPS transfers groups; agegroup=0; if (&yr<1979)and(AGEX = 0)and(substr(reverse(id),1,1)>=5) then agegroup=1; * assume half of non-eldery filers are headed by 40-64 year old (ranuni(8892)>0.5); if (&yr<1979)and(AGEX > 0) then agegroup=2; if (&yr>=1979)and(age>=40) then agegroup=1; if (&yr>=1979)and(age>=65) then agegroup=2; run; %if (&incometype >= 323) %then %do; %end; * removed; proc sort data= TAB&yr; by agegroup married dep_kids; run; %centiles(TAB&yr, TINC, XWGT, percentile); * Merge CPS-based transfers from Larrimore et al (2021, JPE) by demographic group and percentile; data transfers; set indiv.transfers19892016; if (&yr<1989)and(year=1989) then year=&yr; * use 1989 for earlier years (scaled to NI totals below); if (&yr>2016)and(year=2016) then year=&yr; * use 2016 for later years (scaled to NI totals below); if (&yr=2000) then do; if year=2000 then year=9999; if year=1999 then year=&yr; end; * use near-year distributions for 2000-01 due to CPS issues (scaled to NI totals below); if (&yr=2001) then do; if year=2001 then year=9999; if year=2002 then year=&yr; end; if (year ne &yr) then delete; run; proc sort data= transfers ; by agegroup married dep_kids percentile; run; proc sort data= TAB&yr ; by agegroup married dep_kids percentile; run; data TAB&yr; merge TAB&yr (in=a) transfers (in=b); by agegroup married dep_kids percentile; if a; run; data TAB&yr; set TAB&yr; if (percentile >90) then do; cashtran=0; noncashtr=0; end; run; * Totals for small scaling of some income sources (transfers included here); proc means data=TAB&yr; var count; weight xwgt; output out=totals2 mean(count)=count sum(underwg UNDERBUS FTAX ATINC BUSPTAX PRPD WTAX NTINT CTAX cashtran noncashtr totdiv wage irent IMP_SSA2 UNEM2 MCR cret ficaui AGIXa REFCR SITX SITXref)= tunderwg tunderbus tftax tatinc tbpr tprpd twtax tntint tctax tcashtran tnoncashtr alldiv totwag tirent tssa2 tunem2 tmcr tcret tficaui tAGIXa tREFCR tsitx tSITXref; run; proc sort data=TAB&yr; by count; run; proc sort data=totals2; by count; run; data TAB&yr; merge TAB&yr totals2; by count; run; * TOTALS tab in spreadsheet; proc means data=TAB&yr; var AGIX; weight xwgt; output out=TOTTEMP mean(year)=year sum(AGIX WAGE INTEREST DIVID TOTDIV EXDIV CGSD CGDS PENSION UNEM TUNEM SSAGIX TSSA STATADJ BUSN PARTSCP FARM RENTS TRUST NOLS OTHR STXRF FICA UI GAMBLS X004 PENSTX_calc eq20 EXEM less20 ov20dep remNR count CRET CTAX TAX SETX STXD SITX DED SSTX ESREBATE IMP_SSA2 UNEM2 FTAX IPTAX PRPDi WTAX IRENT FTC nr SCP SCPp adult NTINT u20inc ov20depinc depwas PASNDLS RENTNDLS PASNDLS100 RENTNDLS100 NDLoss NDLoss100 IRA EMPEX mfs ptholid CGOTH MID negAGI negAGIn depun depuni depunincap depincap ALIMRCa ALIMPD ALIMRC nrwas txretire65 DC SSnf UNEMnf RETDEC WAGEnf BUSnnf RETnf PropExpn IntEx PropDepr REFCR TXPENS)= AGIX WAGE INTEREST DIVID TOTDIV EXDIV CGSD CGDS PENSION UNEM TUNEM SSAGIX TSSA STATADJ BUSN PARTSCP FARM RENTS TRUST NOLS OTHR STXRF FICA UI GAMBLS X004 PENSTX_calc eq20 EXEM less20 ov20dep remNR count CRET CTAX TAX SETX STXD SITX DED SSTX ESREBATE IMP_SSA2 UNEM2 FTAX IPTAX PRPD WTAX IRENT FTC nr SCP SCPp adult NTINT u20inc ov20depinc depwas PASNDLS RENTNDLS PASNDLS100 RENTNDLS100 NDLoss NDLoss100 IRA EMPEX mfs ptholid CGOTH MID negAGI negAGIn depun depuni depunincap depincap ALIMRCa ALIMPD ALIMRC nrwas txretire65 DC SSnf UNEMnf RETDEC WAGEnf BUSnnf RETnf PropExpn IntEx PropDepr REFCR TXPENS; run; proc append base=income_sources data=TOTTEMP force; run; **********************************************************************************; data TAB&yr; set TAB&yr; * NEW UNDERREPORTING: Small scaling of underreported income (filers and nonfilers, about 0.1% for 1988); UNDERWG = UNDERWG *1000000*&&wgu&yr/tunderwg; *&undfl; UNDERBUS = UNDERBUS*1000000*(&&farmu&yr+&&nfu&yr+&&rentu&yr+&&scpu&yr+&&nfcc&yr+&&nfres&yr)/tunderbus; UNDER = UNDERWG + UNDERBUS; * comment out to test for only detected misreporting; WAGE = WAGE + UNDERWG; FARM = FARM + UNDERBUS*&&farmu&yr/(&&farmu&yr+&&nfu&yr+&&rentu&yr+&&scpu&yr); RENTS = RENTS + UNDERBUS*&&rentu&yr/(&&farmu&yr+&&nfu&yr+&&rentu&yr+&&scpu&yr); PARTSCP = PARTSCP + UNDERBUS*(0.5*&&nfu&yr+&&scpu&yr)/(&&farmu&yr+&&nfu&yr+&&rentu&yr+&&scpu&yr); BUSN = BUSN + UNDERBUS* 0.5*&&nfu&yr/(&&farmu&yr+&&nfu&yr+&&rentu&yr+&&scpu&yr); * Scale tax credits and CPS-based transfers to NIPA totals; if (tREFCR>0) then REFC = 1000000* &&refcr&yr*(REFCR/tREFCR); if REFC=. then REFC = 0; if cashtran=. then cashtran = 0; CTRAN = 1000000*(&&cash&yr + &&vet&yr - &&refcr&yr)*(cashtran /tcashtran); * REFC: refundable tax credits allocated with income taxes; NCTRAN = 1000000* &&ncash&yr*(noncashtr/tnoncashtr); * Small scaling of some sources to target NIPA totals; if (&yr >= 1985) then IMP_SSA2 = IMP_SSA2*1000000*&&ss&yr/tssa2; SITX = SITX*1000000*(&&sitx&yr+&&trstx&yr)/tsitx; FICA = FICA + (1000000*&&ewtx&yr-tficaui)*FICA/tfica; * employer-side payroll taxes only; WTAX = WTAX*1000000*&&wtx&yr/twtax; * full payroll taxes: employer and employee sides; FTAX = FTAX*1000000*&&ftx&yr/tftax; * federal inc taxes from trusts are included in both FTAX and ftx; * Scaling for alternative non-filer weights (PSZ comparison); if (&filingtype ne 19) then do; IRENT = IRENT *1000000*&&imprent&yr/tirent; IMP_SSA2 = IMP_SSA2*1000000*&&ss&yr/tssa2; UNEM2 = UNEM2 *1000000*&&ui&yr/tunem2; PRPD = PRPD *1000000*&&rtx&yr/tprpd; BUSPTAX = BUSPTAX *1000000*&&bpr&yr/tbpr; CTAX = CTAX *1000000*&&totctaxNIPA&yr/tctax; CRET = CRET *1000000*&&totcorpNIPA&yr/tcret; if (&yr>=1966)and(&yr< 2007) then MCR = MCR*1000000*(&&mc&yr - &&mcpr&yr - &&mcprd&yr)/tmcr; if (&yr>=2007) then MCR = MCR*1000000*(&&mc&yr - &&mcpr&yr/2 - &&mcprd&yr)/tmcr; end; * Government surplus (deficit): allocate by income taxes paid (C corp, payroll, and indiv. federal income taxes); if FTAX=. then FTAX = 0; if WTAX=. then WTAX = 0; if CTAX=. then CTAX = 0; SUR = 1000000*&&gvsur&yr*(FTAX+WTAX+CTAX)/1000000/(&&ftx&yr + &&wtx&yr + &&totctaxNIPA&yr); * Government consumption by half lump sum and half by income; GVCONS = 1000000*&&gvcons&yr*0.5*(ATINC / tatinc); * half by after-tax income (alt AGIX / totagi); if GVCONS=. then GVCONS = 0; GVCONS = GVCONS + 1000000*&&gvcons&yr*0.5*(exem / totexem); * half per capita; if REFC=. then REFC = 0; if REFCR=. then REFCR = 0; if CTRAN=. then CTRAN = 0; if NCTRAN=. then NCTRAN = 0; if GVCONS=. then GVCONS = 0; * Remove distributions due to death with IRA variable; if IRA=. then IRA = 0; if RETDEC=. then RETDEC = 0; IRA = IRA + RETDEC; * Allocate refundable credits across federal and state income taxes; FTAX = FTAX - REFC; ********************** * INCOME DEFINITIONS; INCOME10 = AGIX; * Piketty and Saez (2003) replication: market income including Sch. D capital gains; INCOME11 = AGIX + STATADJ - SSAGIX - UNEM; * Piketty and Saez (2003) replication: market income excluding Sch. D capital gains; INCOME12 = AGIX + STATADJ - SSAGIX - UNEM - CGSD; * Cd1: CORRECTED INCOME: Remove <20 filers (filingtype=17, remove above and add more non-filers in TopShares and distribute income off model); * Cd1: CORRECTED INCOME: Remove dependent filers (filingtype=18, remove above and add more non-filers in TopShares and distribute income off model); * Cd1: CORRECTED INCOME: remove non-resident filers (filingtype=23, remove above and add more non-filers in TopShares); * Ci1: Corrected Income: remove non-deductible losses from income before TRA86; IF (&yr<1987) then INCOME101 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss; * Ci2: Corrected Income: Add tax-exempt interest; INCOME102 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT; * Cd2: CORRECTED INCOME: Correct income: add excluded dividend, combat pay, and missing alimony and remove gambling losses, NOLS, cap gains distributions (since 1970), other gains (since 1966), state tax refunds; INCOME198 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB; * Ei0: Pre-tax income: add undistributed trust income; INCOME222 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST; * Ei1: Pre-tax income: add C corp retained earnings; INCOME223 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET; * Ei2: Pre-tax income: add C corp; INCOME224 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX; * Ei3: Pre-tax income: add business property taxes; INCOME225 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX; * Ei4: Pre-tax income: Inflation adjustment; INCOME226 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch; * Ed1: Pre-tax income: add under-reported income as estimated by BEA (non-filer portion added in EST_DIST); INCOME227 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER; * Ed2: Pre-tax income: add imputed rent; INCOME228 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT; * Ed3: Pre-tax income: add employer payroll taxes; INCOME229 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI; * Ed4: Pre-tax income: add employer health insurance; INCOME230 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA; * Ed5: Pre-tax income: Add retirement account income and retirement contrib./distrib. adjustment; INCOME231 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ; * Ed6: Pre-tax income: Add indirect taxes, mostly sales tax, remaining non-profit/govt income ; INCOME232 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED; * Bd1: Pre-tax after-transfer income: add SSA; INCOME321 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2; * Bd2: Pre-tax after-transfer income: add UI; INCOME322 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2; * Bd3: Pre-tax after-transfer income: add cash transfers including 2008 stimulus; INCOME323 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + ESREBATE + CTRAN; * Bd4: Pre-tax after-transfer income: add medicare; INCOME324 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + ESREBATE + CTRAN + MCR; * Bd5: Pre-tax after-transfer income: add other transfers; INCOME325 = INCOME324 + NCTRAN; * AT1: After-Tax Income: remove federal income taxes and estate taxes (excludes SECA); INCOME401 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + MCR + ESREBATE + CTRAN + NCTRAN - FTAX - FTC - ESTX; * AT2: After-Tax Income: remove State/Local indiv. income tax; INCOME402 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + MCR + ESREBATE + CTRAN + NCTRAN - FTAX - FTC - ESTX - SITX; * AT3: After-Tax Income: remove Corporate income tax; INCOME403 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + MCR + ESREBATE + CTRAN + NCTRAN - FTAX - FTC - ESTX - SITX - CTAX; * AT4: After-Tax Income: remove property taxes; INCOME404 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + MCR + ESREBATE + CTRAN + NCTRAN - FTAX - FTC - ESTX - SITX - CTAX - PRPD - BUSPTAX; * AT5: After-Tax Income: remove employer and employee payroll taxes; INCOME405 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + MCR + ESREBATE + CTRAN + NCTRAN - FTAX - FTC - ESTX - SITX - CTAX - PRPD - BUSPTAX - WTAX; * AT6: After-Tax Income: remove Sales and Other (mostly excise) taxes; INCOME406 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + MCR + ESREBATE + CTRAN + NCTRAN - FTAX - FTC - ESTX - SITX - CTAX - PRPD - BUSPTAX - WTAX - OTAXX; * After-tax National Income targeting; * NAT1 (407): After-Tax National Income: add government deficit; INCOME407 = INCOME406 + SUR; * NAT2 (408): After-Tax National Income: add government consumption by half lump sum and half by income; INCOME408 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + MCR + ESREBATE + CTRAN + NCTRAN - FTAX - FTC - ESTX - SITX - CTAX - PRPD - BUSPTAX - WTAX - OTAXX + SUR + GVCONS; *************************** *************************** SENSITIVITY ANALYSIS (generally not valid for 1960); ***************************; * 232=baseline pre-tax, ALT: 233=50% wage/50% to corp capital 234=100% to corp capital 235=100% all nonhousing capital; * ALT1 PRE-TAX: 50% wage C tax and 50% to corp capital; CTAXa = 1000000*&&totctaxNIPA&yr*(0.50*WAGE/totwag + 0.50*(&&Fcp&yr*(0.75*TOTDIV/alldiv + 0.25*cgs/tcgs) + &&Frt&yr*(&&frdb&yr*DBwg/totDBwg +(1-&&frdb&yr)*DC/totDC) + &&Fdt&yr*pINTEREST/ptotint + (1- &&Fcp&yr- &&Frt&yr- &&Fdt&yr)*(0.5*exem/totexem+0.5*WAGE/totwag))); if CTAXa =. then CTAXa=0; INCOME233 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAXa + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED; * ALT2 PRE-TAX: 0% wage C tax and 100% to corp capital; CTAXa = 1000000*&&totctaxNIPA&yr*((&&Fcp&yr*(0.00*WAGE/totwag + 1.00*(0.75*TOTDIV/alldiv + 0.25*cgs/tcgs)))+ &&Frt&yr*(&&frdb&yr*DBwg/totDBwg +(1-&&frdb&yr)*DC/totDC) + &&Fdt&yr*pINTEREST/ptotint + (1- &&Fcp&yr- &&Frt&yr- &&Fdt&yr)*(0.5*exem/totexem+0.5*WAGE/totwag)); if CTAXa =. then CTAXa=0; INCOME234 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAXa + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED; * ALT3: PRE-TAX: distribute C tax 0% wages and 100% to all capital including passthroughs but excluding interest (PSZ); CTAXpsz = 1000000*&&totctaxNIPA&yr*(&&aFcp&yr*(0.00*WAGE/totwag + 1.00*(0.50*TOTDIV/alldiv + 0.50*cgs/tcgs)) + &&aFrt&yr*(&&frdb&yr*DBwg/totDBwg +(1-&&frdb&yr)*DC/totDC) + &&aFdt&yr*pINTEREST/ptotint + (1-&&aFcp&yr-&&aFrt&yr-&&aFdt&yr-&&aFps&yr)*(AGIX/totagi) + &&aFps&yr*(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn)); %do i = 1 %to 8; if (gp=&i)and(ta&i>0) then CTAXpsz = 1000000*&&totctaxNIPA&yr*((&&aFcp&yr*&&c&i&u&yr*(a&i/ta&i)) + &&aFrt&yr*PENpsz/tpenpsz + &&aFdt&yr*pINTEREST/ptotint + (1-&&aFcp&yr-&&aFrt&yr-&&aFdt&yr-&&aFps&yr)*(AGIX/totagi) + &&aFps&yr*(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn)); %end; INCOME235 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAXpsz + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED; * ALT3a: PRE-TAX: deduct employee business and investment interest expenses; INCOME236 = -EMPEX - INTEX + AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED; * ALT3b: AFTER-TAX: deduct employee business and investment interest expenses; INCOME413 = -EMPEX - INTEX + AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + MCR + ESREBATE + CTRAN + NCTRAN - FTAX - FTC - ESTX - SITX - CTAX - PRPD - BUSPTAX - WTAX - OTAXX + SUR + GVCONS; * ALT4 After-Tax: retained earnings 50% cap gains instead of 25% (see code above); * ALT5 After-Tax: Government Consumption 25% per capita; IF (&incometype = 411)and(&pc = 25) then do; GVCONS = 1000000*&&gvcons&yr*0.75*(ATINC / tatinc); if GVCONS=. then GVCONS = 0; GVCONS = GVCONS + 1000000*&&gvcons&yr*0.25*(exem / totexem); if GVCONS=. then GVCONS = 0; INCOME411 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + MCR + ESREBATE + CTRAN + NCTRAN - FTAX - FTC - ESTX - SITX - CTAX - PRPD - BUSPTAX - WTAX - OTAXX + SUR + GVCONS; end; * ALT6 After-Tax: Government Consumption 75% per capita; IF (&incometype = 411)and(&pc = 75) then do; GVCONS = 1000000*&&gvcons&yr*0.25*(ATINC / tatinc); if GVCONS=. then GVCONS = 0; GVCONS = GVCONS + 1000000*&&gvcons&yr*0.75*(exem / totexem); if GVCONS=. then GVCONS = 0; INCOME411 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + MCR + ESREBATE + CTRAN + NCTRAN - FTAX - FTC - ESTX - SITX - CTAX - PRPD - BUSPTAX - WTAX - OTAXX + SUR + GVCONS; end; * ALT7 After-Tax: Government Consumption 100% per capita; IF (&incometype = 411)and(&pc = 100) then do; GVCONS = 1000000*&&gvcons&yr*0.00*(ATINC / tatinc); if GVCONS=. then GVCONS = 0; GVCONS = GVCONS + 1000000*&&gvcons&yr*1.00*(exem / totexem); if GVCONS=. then GVCONS = 0; INCOME411 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + MCR + ESREBATE + CTRAN + NCTRAN - FTAX - FTC - ESTX - SITX - CTAX - PRPD - BUSPTAX - WTAX - OTAXX + SUR + GVCONS; end; * ALThighest: After-Tax National Income: Retained earnings by 50% cap gains (changed above), no govt deficit/surplus (ALT: no economies of scale for ranking use rank type=7 in main statement); IF (&incometype = 410) then do; SUR=0; * no surplus/deficit; INCOME410 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + MCR + ESREBATE + CTRAN + NCTRAN - FTAX - FTC - ESTX - SITX - CTAX - PRPD - BUSPTAX - WTAX - OTAXX + SUR + GVCONS; end; * ALT: After-Tax and Pre-tax National Income: no underreporting; IF (&incometype = 412)or(&incometype = 414) then do; UNDER=0; * no underreporting; INCOME412 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + MCR + ESREBATE + CTRAN + NCTRAN - FTAX - FTC - ESTX - SITX - CTAX - PRPD - BUSPTAX - WTAX - OTAXX + SUR + GVCONS; INCOME414 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED; end; ****************************** **************************** * Decomposition of Auten-Splinter versus PSZ assumptions on top one percent income shares; * AS to PSZ assumptions (YYY); * P0 299: No correction for under age, dependent, or non-resident tax filers (lower nonfilers to PS numbers); CORR0 = 0; CORR = 0; if (&yr=2014) then CORR0 = 1000000*(24130)*(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn); if (&yr=1979) then CORR0 = 1000000*(-17954)*(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn); if (&yr=1962) then CORR0 = 1000000*(-567)*WAGE/totwag; INCOME299 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + CORR0; * P1 700: Various corrections to tax data: reverse corrections to number of non-filers, non-residents, and income definition (+ NDLOSS - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + combat pay); if (&yr=2014) then CORR = 1000000*(84278)*(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn); * distribute missing income by positive business income; if (&yr=1979) then CORR = 1000000*( 2056)*(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn); if (&yr=1962) then CORR = 1000000*(944)*WAGE/totwag; INCOME700 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + CORR; * P2 295: Go from groups by size-adjusted incomes and #indivs. to equal-split adults (no change to income); * P3 710: Remove distributed private retirement income and add with PSZ non-SS retirement distribution; PENpsz = totpens*(PENpsz/tpenpsz); INCOME710 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + PENpsz - PENSION; *P4 715: Retirement account income by PSZ private retirement distribution; %let adj= 0; %if (&yr=2014) %then %let adj = 571; RETINCpsz = 1000000*&&uret&yr*(PENpsz/tpenpsz); * by PSZ income group fractions of non-SS retirement income; RETADJpsz = 1000000*(&&retadj&yr+&adj)*(PENpsz/tpenpsz); INCOME715 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAX + NPGV + FED; * P5 720: Retained earnings retirement corporate ownership share by PSZ private retirement distribution; %if (&yr=2014) %then %let adj= 0; %if (&yr=1962) %then %let adj= -1156; CRETpszr = 1000000*(&&totcorpNIPA&yr+&adj)*((1-&&FracPenNew&yr-&&FracNPGv&yr)*(0.75*TOTDIV/alldiv + 0.25*cgs/tcgs) + &&FracPenNew&yr*(PENpsz/tpenpsz) + &&FracNPGv&yr*(0.5*exem/totexem+0.5*WAGE/totwag)); * AS to PSZ; %do i = 1 %to 8; * AGI income group; if (gp=&i)and(ta&i>0) then do; CRETpszrr= 1000000*(&&totcorpNIPA&yr )*((1-&&FracPenNew&yr-&&FracNPGv&yr)*&&c&i&u&yr*(a&i/ta&i) + &&FracPenNew&yr*(&&frdb&yr*DBwg/totDBwg +(1-&&frdb&yr)*DC/totDC) + &&FracNPGv&yr*(0.5*exem/totexem+0.5*WAGE/totwag)); * PSZ to AS; end; %end; if CRETpszrr=. then CRETpszrr=0; INCOME720 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRETpszr + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED; * PB5.5 725: Business property tax retirement portion by PSZ distribution; %if (&yr=2014) %then %let adj=0; %if (&yr=1962) %then %let adj=-211; BUSPTAXpszr =1000000*(&&bpr&yr+&adj)*(&&aFcp&yr*(0.75*TOTDIV/alldiv + 0.25*cgs/tcgs) + &&aFrt&yr*(PENpsz/tpenpsz) + &&aFdt&yr*pINTEREST/ptotint + (1-&&aFcp&yr-&&aFrt&yr-&&aFdt&yr-&&aFps&yr)*(0.5*exem/totexem+0.5*WAGE/totwag) + &&aFps&yr*(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn)); * AS to PSZ; %do i = 1 %to 8; * AGI income group; if (gp=&i)and(ta&i>0) then do; BUSPTAXpszrr=1000000*(&&bpr&yr+&adj)*(&&aFcp&yr*&&c&i&u&yr*(a&i/ta&i) + &&aFrt&yr*(PENpsz/tpenpsz) + &&aFdt&yr*pINTEREST/ptotint + (1-&&aFcp&yr-&&aFrt&yr-&&aFdt&yr-&&aFps&yr)*AGIX/totagi + &&aFps&yr*(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn)); * PSZ to AS; BUSPTAXpsz =1000000*(&&bpr&yr+&adj)*(&&aFcp&yr*&&c&i&u&yr*(a&i/ta&i) + &&aFrt&yr*((&&frdb&yr*DBwg/totDBwg)+(1-&&frdb&yr)*DC/totDC) + &&aFdt&yr*pINTEREST/ptotint + (1-&&aFcp&yr-&&aFrt&yr-&&aFdt&yr-&&aFps&yr)*AGIX/totagi + &&aFps&yr*(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn)); * PSZ; end; %end; INCOME725 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAXpszr + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED; * P6 730: Replace return on equity with PSZ distribution (dividends, retained earnings and corp. tax); nalldiv=alldiv; if (&yr=1962) then nalldiv=alldiv+1000000*920; %if (&yr=1962) %then %let adj= -2162+92; %do i = 1 %to 8; * AGI income group; if (gp=&i)and(ta&i>0) then DIVpsz = &&c&i&u&yr*nalldiv*(a&i/ta&i); * allocate equity income by PSZ distribution (excludes Corp tax); if (gp=&i)and(ta&i>0) then CRETpsze = 1000000*&&totcorpNIPA&yr *((1-&&FracPenNew&yr-&&FracNPGv&yr)*&&c&i&u&yr*(a&i/ta&i) + &&FracPenNew&yr*(&&frdb&yr*DBwg/totDBwg +(1-&&frdb&yr)*DC/totDC) + &&FracNPGv&yr*AGIX/totagi); * AS to PSZ; if (gp=&i)and(ta&i>0) then CRETpszee = 1000000*(&&totcorpNIPA&yr+&adj)*((1-&&FracPenNew&yr-&&FracNPGv&yr)*(0.75*TOTDIV/alldiv + 0.25*cgs/tcgs) + &&FracPenNew&yr*(PENpsz/tpenpsz) + &&FracNPGv&yr*(0.5*exem/totexem+0.5*WAGE/totwag)); * PSZ to AS; *CRET = 1000000*&&totcorpNIPA&yr *((1-&&FracPenNew&yr-&&FracNPGv&yr)*(0.75*TOTDIV/alldiv + 0.25*cgs/tcgs) + &&FracPenNew&yr*(&&frdb&yr*DBwg/totDBwg +(1-&&frdb&yr)*DC/totDC) + &&FracNPGv&yr*(0.5*exem/totexem+0.5*WAGE/totwag)); if (gp=&i)and(ta&i>0) then CTAXpsz = 1000000*&&totctaxNIPA&yr*((&&aFcp&yr*&&c&i&u&yr*(a&i/ta&i)) + &&aFrt&yr*PENpsz/tpenpsz + &&aFdt&yr*pINTEREST/ptotint + (1-&&aFcp&yr-&&aFrt&yr-&&aFdt&yr-&&aFps&yr)*(AGIX/totagi) + &&aFps&yr*(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn)); %end; if CRETpszee=. then CRETpszee=0; INCOME730 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRETpsze + CTAXpsz + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + DIVpsz - TOTDIV; * P7 740: Federal Res. payments by AS method to AGI; FEDpsz = 1000000*&&fed&yr*(AGIX/totagi); INCOME740 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FEDpsz; * P8 750: imputed rent by property tax deductions or PSZ housing wealth, from PSZ tables TE2 TE2b TE2c; IRENTpsz = 0; * 1962 shares, similar to 1979 shares; if (((gp=1)or(gp=2))and(ta1+ta2)>0) then IRENTpsz = 1000000*(&&imprent&yr)*((a1+a2)/(ta1+ta2))*(1.0-0.152-0.214-0.051-0.063-0.032-0.009); if (gp=3) then IRENTpsz = 1000000*(&&imprent&yr)*(a3/ta3)*0.152; if (gp=4) then IRENTpsz = 1000000*(&&imprent&yr)*(a4/ta4)*0.214; if (gp=5) then IRENTpsz = 1000000*(&&imprent&yr)*(a5/ta5)*0.051; if (gp=6) then IRENTpsz = 1000000*(&&imprent&yr)*(a6/ta6)*0.063; if (gp=7) then IRENTpsz = 1000000*(&&imprent&yr)*(a7/ta7)*0.032; if (gp=8) then IRENTpsz = 1000000*(&&imprent&yr)*(a8/ta8)*0.009; if (&yr eq 1979) then do; if (gp=1)or(gp=2) then IRENTpsz = 1000000*(&&imprent&yr)*((a1+a2)/(ta1+ta2))*(1.0-0.149-0.205-0.053-0.078-0.043-0.014); if (gp=3) then IRENTpsz = 1000000*(&&imprent&yr)*(a3/ta3)*0.149; if (gp=4) then IRENTpsz = 1000000*(&&imprent&yr)*(a4/ta4)*0.205; if (gp=5) then IRENTpsz = 1000000*(&&imprent&yr)*(a5/ta5)*0.053; if (gp=6) then IRENTpsz = 1000000*(&&imprent&yr)*(a6/ta6)*0.078; if (gp=7) then IRENTpsz = 1000000*(&&imprent&yr)*(a7/ta7)*0.043; if (gp=8) then IRENTpsz = 1000000*(&&imprent&yr)*(a8/ta8)*0.014; end; if (&yr eq 2014) then do; if (gp=1)or(gp=2) then IRENTpsz = 1000000*(&&imprent&yr)*((a1+a2)/(ta1+ta2))*(1.0-0.180-0.246-0.056-0.071-0.040-0.010); if (gp=3) then IRENTpsz = 1000000*(&&imprent&yr)*(a3/ta3)*0.180; if (gp=4) then IRENTpsz = 1000000*(&&imprent&yr)*(a4/ta4)*0.246; if (gp=5) then IRENTpsz = 1000000*(&&imprent&yr)*(a5/ta5)*0.056; if (gp=6) then IRENTpsz = 1000000*(&&imprent&yr)*(a6/ta6)*0.071; if (gp=7) then IRENTpsz = 1000000*(&&imprent&yr)*(a7/ta7)*0.040; if (gp=8) then IRENTpsz = 1000000*(&&imprent&yr)*(a8/ta8)*0.010; end; INCOME750 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENTpsz + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED; * P9 760: Non-profits/govt. income from half by lump sump to all by income; NPGVpsz = 1000000*&&npgv&yr*(pAGIX/ptotagi); BUSPTAXpszn =1000000*(&&bpr&yr)*(&&aFcp&yr*(0.75*TOTDIV/alldiv + 0.25*cgs/tcgs) + &&aFrt&yr*((&&frdb&yr*DBwg/totDBwg)+(1-&&frdb&yr)*DC/totDC) + &&aFdt&yr*pINTEREST/ptotint + (1-&&aFcp&yr-&&aFrt&yr-&&aFdt&yr-&&aFps&yr)*(pAGIX/ptotagi) + &&aFps&yr*(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn)); * for AS to PSZ; %do i = 1 %to 8; * AGI income group; if (gp=&i)and(ta&i>0) then do; BUSPTAXpsznn=1000000*(&&bpr&yr)*(&&aFcp&yr*&&c&i&u&yr*(a&i/ta&i) + &&aFrt&yr*(PENpsz/tpenpsz) + &&aFdt&yr*pINTEREST/ptotint + (1-&&aFcp&yr-&&aFrt&yr-&&aFdt&yr-&&aFps&yr)*(0.5*exem/totexem+0.5*WAGE/totwag) + &&aFps&yr*(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn)); * for PSZ to AS; end; %end; if BUSPTAXpsznn=. then BUSPTAXpsznn=0; * BUSPTAX = 1000000*&&bpr&yr* (&&aFcp&yr*(0.75*TOTDIV/alldiv + 0.25*cgs/tcgs) + &&aFrt&yr*((&&frdb&yr*DBwg/totDBwg)+(1-&&frdb&yr)*DC/totDC) + &&aFdt&yr*pINTEREST/ptotint + (1-&&aFcp&yr-&&aFrt&yr-&&aFdt&yr-&&aFps&yr)*(0.5*exem/totexem+0.5*WAGE/totwag) + &&aFps&yr*(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn)); INCOME760 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAXpszn + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGVpsz + FED; * P10 765: other taxes by factor income less savings (use wages or AGI because this distribution not shown in PSZ results, but should be similar to AGI or slightly more equal distribution); if (&yr=2014) then userfee=97000; if (&yr=1979) then userfee=19580; if (&yr=1962) then userfee=7002; * fuel tax and government utility payments and adjustment; OTAXpsz = 1000000*(&&otx&yr+&&subtr&yr)*(AGIX/totagi); *(AGIXa/tAGIXa); * other indirect taxes, mostly sales taxes, and subsidies and transfers (includes user fee taxes); OTAXXpsz2 = 1000000*(&&otxx&yr)*WAGE/totwag; if (&yr=1962) then OTAXXpsz2 = 1000000*(&&otxx&yr)*(DISP_INC/totdis); if (&yr=1979) then OTAXXpsz2 = 1000000*(&&otxx&yr+367)*WAGE/totwag; if (&yr=2014) then OTAXXpsz2 = 1000000*(&&otxx&yr-4226)*(0.5*AGIX/totagi+0.5*WAGE/totwag); INCOME765 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAXpsz + NPGV + FED; * P11 770: Underreported income from IRS audit data distribution to just inflating reported positive income; if WAGE=. then WAGE=0; if pBUSN=. then pBUSN=0; if pPARTSCP=. then pPARTSCP=0; if pRENT=. then pRENT=0; UNDERpsz = 1000000*((&&wgu&yr+&&comb&yr )*WAGE/totwag + (&&nfu&yr + &&nfcc&yr + &&nfres&yr + &&scpu&yr + &&farmu&yr + &&rentu&yr )*(pBUSN + pPARTSCP + pRENT)/(pbusntot + ppartscptot + totprent)); * all partn/S corp income to distribute as PSZ do not appear to use negative business incomes (which would attribute even more to the top); if (&yr=2014) then UNDERpsz = 1000000*((&&wgu&yr+&&comb&yr-30000)*WAGE/totwag + (&&nfu&yr + &&nfcc&yr + &&nfres&yr + &&scpu&yr + &&farmu&yr + &&rentu&yr+50000)*(pBUSN + pPARTSCP + pRENT)/(pbusntot + ppartscptot + totprent)); * all partn/S corp income to distribute as PSZ do not appear to use negative business incomes (which would attribute even more to the top); if (&yr=1979) then UNDERpsz = 1000000*((&&wgu&yr -30094)*WAGE/totwag + (&&nfu&yr + &&nfcc&yr + &&nfres&yr + &&scpu&yr + &&farmu&yr + &&rentu&yr+30000)*(pBUSN + pPARTSCP + pRENT)/(pbusntot + ppartscptot + totprent)); if (&yr=1962) then UNDERpsz = 1000000*((&&wgu&yr +3914)*WAGE/totwag + (&&nfu&yr + &&nfcc&yr + &&nfres&yr + &&scpu&yr + &&farmu&yr + &&rentu&yr- 4000)*(pBUSN + pPARTSCP + pRENT)/(pbusntot + ppartscptot + totprent)); INCOME770 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB - INTEX + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDERpsz + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED; * P12 762: Remove OASDI taxes and add SS/UI payments (PSZ treatment like pensions, SS deficit by PSZ half taxes half govt benefits, for SS deficit just SS+UI benefits); if (HI=.) then HI=0; if (SETX=.) then SETX=0; SETX_HI = 0; if (AGIX>200000)and(SETX>0) then SETX_HI=SETX ; * for high incomes almost all of SETX is the HI portion; HIall = HI + SETX_HI; if (&yr <1965) then HIall=0; * PSZ SS deficit: add SS/UI surplus half by social insurance benefits and half by SS taxes taxes paid (AS deficit does not split out SS only) (ZZZ); if (&yr=2014) then SSdef=-78258+476; if (&yr=1979) then SSdef=-33412; if (&yr=1962) then SSdef= -597; SSdf = SSdef *(0.5*(IMP_SSA2+UNEM2)/(&&ss&yr+&&ui&yr)+0.5*(WTAX/&&wtx&yr)); SSdf = SSdef*1000000*(0.5*(EXEM/totexem)+0.5*(WTAX/twtax)); INCOME762 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 - WTAX + HIall - SSdf; * Add Social insurance benefits (Medicare not added) less payroll taxes (HI tax excluded); * P13 763: Inflation adjustment; INCOME763 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED; ************************************ * PSZ to AS order: Pre-tax; %do i = 1 %to 8; * AGI income group; if (gp=&i)and(ta&i>0) then DIVpsz = &&c&i&u&yr*alldiv*(a&i/ta&i); * allocate equity income by PSZ distribution (excludes Corp tax); if (gp=&i)and(ta&i>0) then CRETpsz = 1000000*&&totcorpNIPA&yr*((1-&&FracPenNew&yr-&&FracNPGv&yr)*&&c&i&u&yr*(a&i/ta&i) + &&FracPenNew&yr*PENpsz/tpenpsz + &&FracNPGv&yr*AGIX/totagi); %end; if (&yr=2014) then CORR0 = 1000000*(28133)*(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn); if (&yr=2014)and(&filingtype=0) then CORR0 = 1000000*(239964)*(WAGE/totwag); if (&yr=1979) then CORR0 = 1000000*(-17170)*EXEM/totexem; if (&yr=1962) then CORR0 = 1000000*(-539)*WAGE/totwag; if (&yr=2014) then CORR = 1000000*(53887)*(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn); if (&yr=1979) then CORR = 1000000*(2064)*(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn); if (&yr=1962) then CORR = 1000000*(2072)*(pPARTSCP+pBUSN)/(ppartscptot+ptotbusn); * PSZ replication (all changes); INCOME782 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsz + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGVpsz + FEDpsz + PENpsz - PENSION + CORR + CORR0 - WTAX + HIall + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV - SSdf; * PB0 782: No correction for under age, dependent, or non-resident tax filers (lower nonfilers to PS numbers); if (&filingtype=19) then INCOME782 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsz + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGVpsz + FEDpsz + PENpsz - PENSION + CORR - WTAX + HIall + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV - SSdf; * PB2 782 again: Go from groups by size-adjusted incomes and #indivs. to equal-split adults (all PSZ assumptions applied); * PB1 780: Various corrections to tax data: reverse corrections to number of non-filers, non-residents, and income definition (+ NDLOSS - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + combat pay); INCOME780 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsz + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGVpsz + FEDpsz + PENpsz - PENSION + CORR0 - WTAX + HIall + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV - SSdf + NDLOSS - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB; * PB3 784: Remove distributed private retirement income and add with PSZ non-SS retirement distribution; INCOME784 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsz + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGVpsz + FEDpsz + CORR + CORR0 - WTAX + HIall + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV - SSdf; *PB4 786: Retirement account income (retained earnings and corp tax) by PSZ private retirement distribution; INCOME786 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsz + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAXpsz + NPGVpsz + FEDpsz + PENpsz - PENSION + CORR + CORR0 - WTAX + HIall + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV - SSdf; * PB5 788: Retained earnings retirement corporate ownership share by PSZ private retirement distribution (CRETpsze added and CRET and CRETpszr REMOVED!) ; INCOME788 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST +CRETpszrr+ CTAXpsz + BUSPTAXpsz + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGVpsz + FEDpsz + PENpsz - PENSION + CORR + CORR0 - WTAX + HIall + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV - SSdf; * PB5.5 789: Business property tax retirement portion by PSZ distribution; INCOME789 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsz + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGVpsz + FEDpsz + PENpsz - PENSION + CORR + CORR0 - WTAX + HIall + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV - SSdf; * PB6 790: Replace return on equity income with tax return distribution (dividends, retained earnings, corp tax); *CRETpsze + CTAXpsz CRETpszr + CTAXpszr; INCOME790 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpszee+ CTAX + BUSPTAXpsz + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGVpsz + FEDpsz + PENpsz - PENSION + CORR + CORR0 - WTAX + HIall + IMP_SSA2 + UNEM2 - SSdf; * PB7 792: Federal Res. payments by mortgage interest to AGI; INCOME792 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsz + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGVpsz + FED + PENpsz - PENSION + CORR + CORR0 - WTAX + HIall + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV - SSdf; * PB8 794: Imputed rent by property tax deductions or PSZ housing wealth; INCOME794 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsz + UNDERpsz + IRENT + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGVpsz + FEDpsz + PENpsz - PENSION + CORR + CORR0 - WTAX + HIall + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV - SSdf; * PB9 796: Non-profits/govt. income from half by lump sump to all by income (was CRETpsza + CTAXpsza + BUSPTAXpsza ); INCOME796 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsznn + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGV + FEDpsz + PENpsz - PENSION + CORR + CORR0 - WTAX + HIall + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV - SSdf; * PB10 797: other taxes by disposable income (use PSZ disposable income distributions in Table S.9 of PSZ online appendix: 9.0, 4.3, 2.1, 1.6); INCOME797 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsz + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAX + NPGVpsz + FEDpsz + PENpsz - PENSION + CORR + CORR0 - WTAX + HIall + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV - SSdf; * PB11 798: Underreported income from scaling up positive income to IRS audit data distribution ; INCOME798 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsz + UNDER + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGVpsz + FEDpsz + PENpsz - PENSION + CORR + CORR0 - WTAX + HIall + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV - SSdf; * PB12 799: remove social insur. (and deficit) and add back payroll taxes (retain Medicare taxes); INCOME799 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsz + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGVpsz + FEDpsz + PENpsz - PENSION + CORR + CORR0 + DIVpsz - TOTDIV ; * PB13 795: add inflation adjustment; INCOME795 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsz + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGVpsz + FEDpsz + PENpsz - PENSION + CORR + CORR0 - WTAX + HIall + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV - SSdf + INFch; *** AFTER-TAX: Calculations ***; * excludes SS and UI, distribute by PSZ distribution of medicare and medicaid transfers for medicaid and rest to bottom 90%, Tables TC3 TC3b TC3c; transfers = &&vet&yr + &&cash&yr + &&ncash&yr; TRANpsz = 0; cutb=1; if (&yr>=2007)and (&filingtype ne 19) then cutb=2; if (gp=1) then TRANpsz = 1000000*(transfers + &&mc&yr - &&mcpr&yr - &&mcprd&yr)*(a1/ta1); * all to bottom 90 percent: using PSZ Tables TC3 TC3b TC3c and remove SS and govt consumption for transfers and residual almost all in bottom 90% ; if (&yr>=1979) then do; if ((gp=1)or(gp=2)) then TRANpsz = 1000000*(transfers + (&&mc&yr - &&mcpr&yr/cutb - &&mcprd&yr)*(1.000-0.0545-0.0450-0.0060-0.0057-0.0016-0.0002))*((a1+a2)/(ta1+ta2)); * use share of 65+ to allocate Medicare, all other to bottom; if (gp=3) then TRANpsz = 1000000*(&&mc&yr - &&mcpr&yr/cutb - &&mcprd&yr)*(a3/ta3)*0.0545; if (gp=4) then TRANpsz = 1000000*(&&mc&yr - &&mcpr&yr/cutb - &&mcprd&yr)*(a4/ta4)*0.0450; if (gp=5) then TRANpsz = 1000000*(&&mc&yr - &&mcpr&yr/cutb - &&mcprd&yr)*(a5/ta5)*0.0060; if (gp=6) then TRANpsz = 1000000*(&&mc&yr - &&mcpr&yr/cutb - &&mcprd&yr)*(a6/ta6)*0.0057; if (gp=7) then TRANpsz = 1000000*(&&mc&yr - &&mcpr&yr/cutb - &&mcprd&yr)*(a7/ta7)*0.0016; if (gp=8) then TRANpsz = 1000000*(&&mc&yr - &&mcpr&yr/cutb - &&mcprd&yr)*(a8/ta8)*0.0002; end; if TRANpsz=. then TRANpsz = 0; GVCONSpsz = 0; if (&yr>=1988) then do; * 2014 distribution calculated from PSZ Table TC3e; if ((gp=1)or(gp=2)) then GVCONSpsz = 1000000*(&&gvcons&yr)*((a1+a2)/(ta1+ta2))*(0.588); *P0-90; if (gp=3) then GVCONSpsz = 1000000*(&&gvcons&yr)*(a3/ta3)*(0.162); if (gp=4) then GVCONSpsz = 1000000*(&&gvcons&yr)*(a4/ta4)*(0.077); if (gp=5) then GVCONSpsz = 1000000*(&&gvcons&yr)*(a5/ta5)*(0.038); if (gp=6) then GVCONSpsz = 1000000*(&&gvcons&yr)*(a6/ta6)*(0.057); if (gp=7) then GVCONSpsz = 1000000*(&&gvcons&yr)*(a7/ta7)*(0.041); if (gp=8) then GVCONSpsz = 1000000*(&&gvcons&yr)*(a8/ta8)*(0.037); end; if (&yr >1970 and &yr<1988) then do; * 1979 distribution calculated from PSZ Table TC3e and small adjustment to target PSZ after-tax top 1% shares; if ((gp=1)or(gp=2)) then GVCONSpsz = 1000000*(&&gvcons&yr)*((a1+a2)/(ta1+ta2))*(0.690);* - 0.008 - 0.010); *P0-90; if (gp=3) then GVCONSpsz = 1000000*(&&gvcons&yr)*(a3/ta3)*(0.136); if (gp=4) then GVCONSpsz = 1000000*(&&gvcons&yr)*(a4/ta4)*(0.076); if (gp=5) then GVCONSpsz = 1000000*(&&gvcons&yr)*(a5/ta5)*(0.028);* + 0.010); if (gp=6) then GVCONSpsz = 1000000*(&&gvcons&yr)*(a6/ta6)*(0.036);* + 0.005); if (gp=7) then GVCONSpsz = 1000000*(&&gvcons&yr)*(a7/ta7)*(0.021);* + 0.003); if (gp=8) then GVCONSpsz = 1000000*(&&gvcons&yr)*(a8/ta8)*(0.013); end; if (&yr<=1970) then do; * 1962 distribution calculated from PSZ Table TC3e; if ((gp=1)or(gp=2)) then GVCONSpsz = 1000000*(&&gvcons&yr)*((a1+a2)/(ta1+ta2))*(0.680); *P0-90; if (gp=3) then GVCONSpsz = 1000000*(&&gvcons&yr)*(a3/ta3)*(0.140); if (gp=4) then GVCONSpsz = 1000000*(&&gvcons&yr)*(a4/ta4)*(0.078); if (gp=5) then GVCONSpsz = 1000000*(&&gvcons&yr)*(a5/ta5)*(0.030); if (gp=6) then GVCONSpsz = 1000000*(&&gvcons&yr)*(a6/ta6)*(0.038); if (gp=7) then GVCONSpsz = 1000000*(&&gvcons&yr)*(a7/ta7)*(0.021); if (gp=8) then GVCONSpsz = 1000000*(&&gvcons&yr)*(a8/ta8)*(0.013); end; if (&yr=2014) then do; COR2= 7789; suradj=0; SSdf=SSdf/2; end; if (&yr=1979) then do; COR2=36633; suradj=0; SSdf=SSdf*1.3; end; if (&yr=1962) then do; COR2= 6095; suradj=270; SSdf=SSdf*11; end; CORR2 = COR2*1000000*AGIX/totagi; * PSZ Government deficit (surplus): half by govt transfers received (SS, UI, MC, Cash, NC) and half by taxes; SURpsz = (&&gvsur&yr+suradj)*(0.5*(IMP_SSA2+UNEM2+MCR+CTRAN+NCTRAN)/(&&ss&yr+&&ui&yr+&&mc&yr+&&cash&yr+&&vet&yr+&&ncash&yr) +0.5*(FTAX+ESTX+SITX+CTAX+PRPD+BUSPTAX+WTAX+OTAXX)/(&&FTX&yr+&&totctaxnipa&yr+&&WTX&yr+&&SITX&yr+&&rtx&yr+&&bpr&yr+&&OTX&yr)); if SURpsz=. then SURpsz=0; *** AFTER-TAX ***; * AS to PSZ; * A1 652: Government transfer distribution (excludes SS and UI); INCOME652 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + ESREBATE + TRANpsz - FTAX - FTC - ESTX - SITX - CTAX - PRPD - BUSPTAX - WTAX - OTAXX + SUR + GVCONS ; * A2 650: Estate tax by prior decade decedent income to only top one percent (top 0.01% here to simplify allocation); ESTXpsz = 0; if (gp=8) then ESTXpsz = 1000000*&&est&yr*(a8/ta8); INCOME650 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + MCR + ESREBATE + CTRAN + NCTRAN - FTAX - FTC - ESTXpsz - SITX - CTAX - PRPD - BUSPTAX - WTAX - OTAXX + SUR + GVCONS; * A3 660: Govt. deficits by federal income and payroll taxes to half by govt spending half by after-tax income (660 below in EST_DIST); INCOME660 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + MCR + ESREBATE + CTRAN + NCTRAN - FTAX - FTC - ESTX - SITX - CTAX - PRPD - BUSPTAX - WTAX - OTAXX + SURpsz + GVCONS; * A4 670: Govt. consumption allocated half lump sum to all by after-tax income; INCOME670 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + MCR + ESREBATE + CTRAN + NCTRAN - FTAX - FTC - ESTX - SITX - CTAX - PRPD - BUSPTAX - WTAX - OTAXX + SUR + GVCONSpsz; * A5 663: Corporate taxes by capital ownership; INCOME663 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + MCR + ESREBATE + CTRAN + NCTRAN - FTAX - FTC - ESTX - SITX - CTAXpsz - PRPD - BUSPTAX - WTAX - OTAXX + SUR + GVCONS; * A5 667: Other taxes by factor income less savings; INCOME667 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NDLoss + NTINT - STXRF - GAMBLS + NOLS + EXDIV - CGDS - IRA - CGOTH + ALIMRCa - ALIMPD + COMB + UNDTRST + CRET + CTAX + BUSPTAX + INFch + UNDER + IRENT + FICA + UI + ESI + FSA + RETINC + RETADJ + OTAX + NPGV + FED + IMP_SSA2 + UNEM2 + MCR + ESREBATE + CTRAN + NCTRAN - FTAX - FTC - ESTX - SITX - CTAX - PRPD - BUSPTAX - WTAX - OTAXXpsz2 + SUR + GVCONS; * PSZ to AS; * AB0 680: PSZ after-tax replication; INCOME680 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsz + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGVpsz + FEDpsz + PENpsz - PENSION + CORR + CORR0 + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV + ESREBATE + CORR2 - FTAX - FTC - ESTXpsz - SITX - CTAXpsz - PRPD - BUSPTAXpsz - WTAX - OTAXXpsz2 + SURpsz + GVCONSpsz + FTC + TRANpsz; * AB1 681: AS transfers distribution; INCOME681 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsz + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGVpsz + FEDpsz + PENpsz - PENSION + CORR + CORR0 + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV + ESREBATE + CORR2 - FTAX - FTC - ESTXpsz - SITX - CTAXpsz - PRPD - BUSPTAXpsz - WTAX - OTAXXpsz2 + SURpsz + GVCONSpsz + FTC + CTRAN + NCTRAN + MCR; * AB2 682: Estate tax from only to top one percent (PSZ, actually top 0.01%) to prior decade decedent income (AS); INCOME682 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsz + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGVpsz + FEDpsz + PENpsz - PENSION + CORR + CORR0 + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV + ESREBATE + CORR2 - FTAX - FTC - ESTX - SITX - CTAXpsz - PRPD - BUSPTAXpsz - WTAX - OTAXXpsz2 + SURpsz + GVCONSpsz + FTC + TRANpsz; * AB3 685: Govt. deficits from half by govt spending half by after-tax income (PSZ) to by federal income and payroll taxes (AS); INCOME685 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsz + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGVpsz + FEDpsz + PENpsz - PENSION + CORR + CORR0 + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV + ESREBATE + - FTAX - FTC - ESTXpsz - SITX - CTAXpsz - PRPD - BUSPTAXpsz - WTAX - OTAXXpsz2 + SUR - SSdf + GVCONSpsz + FTC + TRANpsz; * AB4 690: Govt. consumption from after-tax income (PSZ) to allocated half lump sum (AS); INCOME690 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsz + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGVpsz + FEDpsz + PENpsz - PENSION + CORR + CORR0 + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV + ESREBATE + CORR2 - FTAX - FTC - ESTXpsz - SITX - CTAXpsz - PRPD - BUSPTAXpsz - WTAX - OTAXXpsz2 + SURpsz + GVCONS + FTC + TRANpsz; * AB5 687: Corporate taxes by wages and corp. ownership (AS); INCOME687 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsz + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGVpsz + FEDpsz + PENpsz - PENSION + CORR + CORR0 + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV + ESREBATE + CORR2 - FTAX - FTC - ESTXpsz - SITX - CTAX - PRPD - BUSPTAXpsz - WTAX - OTAXXpsz2 + SURpsz + GVCONSpsz + FTC + TRANpsz; * AB6 688: Other taxes by AS after-tax disposable income; INCOME688 = AGIX + STATADJ - SSAGIX - UNEM - CGSD + NTINT + UNDTRST + CRETpsz + CTAXpsz + BUSPTAXpsz + UNDERpsz + IRENTpsz + FICA + UI + ESI + FSA + RETINCpsz + RETADJpsz + OTAXpsz + NPGVpsz + FEDpsz + PENpsz - PENSION + CORR + CORR0 + IMP_SSA2 + UNEM2 + DIVpsz - TOTDIV + ESREBATE + CORR2 - FTAX - FTC - ESTXpsz - SITX - CTAXpsz - PRPD - BUSPTAXpsz - WTAX - OTAXX + SURpsz + GVCONSpsz + FTC + TRANpsz; if (mars=2) then marwt = XWGT*2; xwgt1000000 =xwgt/1000000; run; *************************** Additional tables ***************************; /* */ data TAB&yr; set TAB&yr; * assign to each income group; if IncGrp=1 then int1=IntEx; if IncGrp=2 then int2=IntEx; if IncGrp=3 then int3=IntEx; if IncGrp=4 then int4=IntEx; if IncGrp>4 then int5=IntEx; if IncGrp=1 then emx1=EMPEX; if IncGrp=2 then emx2=EMPEX; if IncGrp=3 then emx3=EMPEX; if IncGrp=4 then emx4=EMPEX; if IncGrp>4 then emx5=EMPEX; run; proc means data=TAB&yr; var IntEx; weight xwgt; output out=temp2 mean(year)=year sum(IntEx int1 int2 int3 int4 int5 EMPEX emx1 emx2 emx3 emx4 emx5)= IntEx bot50 P5090 P9095 P9599 top1 EMPEX ebot50 eP5090 eP9095 eP9599 etop1; run; proc append base=INTdist data=temp2 force; run; %if (&incometype = 198) %then %do; %GroupsAll2(TAB&yr, AGIXa, xwgt, gp, cutoff); data TAB&yr; set TAB&yr; married=0; if (mars=2) then married=1; mar90=.; if (Incgrp<=2) then do; mar90=0; dep90=deps; if (mars=2) then mar90=1; end; mar10=.; if (Incgrp>=3) then do; mar10=0; dep10=deps; if (mars=2) then mar10=1; end; mar01=.; if (Incgrp>=5) then do; mar01=0; dep01=deps; if (mars=2) then mar01=1; end; if (depd=1)or(less20=1)or(remNR=1) then do; married=.; mar90=.; mar10=.; mar01=.; end; * remove tax units with heads younger than 20 years old, claimed as dependents, or non-residents; o64_t=.; if (&yr<1979)and(AGEX ne 0) then o64_t=1; if (&yr<1979)and(AGEX ne 0)and(mars=2) then o64_t=2; if (&yr>=1979)and(age>64) then o64_t=1; if (&yr>=1979)and(age>64)and(mars=2) then o64_t=2; %do i = 1 %to 12; o64_&i=0; if (gp=&i)and(&yr< 1979)and(AGEX ne 0) then o64_&i=1; if (gp=&i)and(&yr< 1979)and(AGEX ne 0)and(mars=2) then o64_&i=2; if (gp=&i)and(&yr>=1979)and(age>64) then do o64_&i=1; o64a_&i=1; end; if (gp=&i)and(&yr=1979 or &yr=2015)and(age>64)and(mars=2)and(sec_yob <= (&yr - 65)) then o64_&i=2;* 2013: 36.6M with 0.80, 45.8 M with 1.0, Census 44.7M 65+ individuals (July 1, not Dec 31); if (gp=&i)and(&yr>=1979)and(age>64)and(mars=2) then o64a_&i=1.9; %end; itemizetop1=.; itemizetop10=.; *if (state in(2,10,29,42,44,48,51)) then delete; * removing states with no income tax increases top 1% itemizing rate from 95% to over 98%; if (&yr=1962)and(income>27300) then itemizetop1 =0; if (&yr=1962)and(income>27300)and(itemize>0) then itemizetop1 =1; if (&yr=1962)and(income>10300) then itemizetop10=0; if (&yr=1962)and(income>10300)and(itemize>0) then itemizetop10=1; if (&yr=1985)and(income>122000) then itemizetop1 =0; if (&yr=1985)and(income>122000)and(itemize>0) then itemizetop1 =1; if (&yr=1985)and(income>51000) then itemizetop10=0; if (&yr=1985)and(income>51000)and(itemize>0) then itemizetop10=1; if (&yr=1990)and(income>190000) then itemizetop1 =0; if (&yr=1990)and(income>190000)and(itemize>0) then itemizetop1 =1; if (&yr=1990)and(income>68500) then itemizetop10=0; if (&yr=1990)and(income>68500)and(itemize>0) then itemizetop10=1; if (&yr=2013)and(income>498000) then itemizetop1 =0; if (&yr=2013)and(income>498000)and(itemize>0) then itemizetop1 =1; if (&yr=2013)and(income>158000) then itemizetop10=0; if (&yr=2013)and(income>158000)and(itemize>0) then itemizetop10=1; * age groups for nonfiler demographics (remove from Census counts); *age = &yr - yob_dm1; if age=. then age=25; if (&yr<1979) then do; age=25; if (AGEX>0) then age=65; if (less20=1) then age=0; end; * ages not generally available before 1979; if (mars ne 2)and(age>=20)and(age<35) then s_20=1; if (mars ne 2)and(age>=35)and(age<55) then s_35=1; if (mars ne 2)and(age>=55)and(age<65) then s_55=1; if (mars ne 2)and(age>=65) then s_65=1; if (mars = 2)and(age>=20)and(age<35) then m_20=1; if (mars = 2)and(age>=35)and(age<55) then m_35=1; if (mars = 2)and(age>=55)and(age<65) then m_55=1; if (mars = 2)and(age>=65) then m_65=1; * peak income ages: 48-57; if (mars ne 2)and(age>=48)and(age<58) then s_48=1; if (mars = 2)and(age>=48)and(age<58) then m_48=1; inc_48=0; if (age>=48)and(age<58) then inc_48 = INCOME232; * Baby Boomer incomes: born 1946-1965; inc_BB=0; if (&yr - age)>=1946 and (&yr - age)<=1965 then inc_BB = INCOME232; gp100K=0; if (AGIXa>100000) then gp100K=1; gp1=gp; if AGIX<0 then gp1=0; if (PARTSCP<0) then PARTSCPL=PARTSCP; if (RENTS<0) then RENTSL =RENTS; count=1; filers=0; if (mars ne .) then filers=1; if (mars=2) then filers=2; year = &yr; filingtype=&filingtype; run; proc means data=TAB&yr; var count; weight xwgt; output out=temp mean(year)=year sum(count married)=count mar_ct mean(married mar90 mar10 mar01)=mar_all mar90 mar10 mar01 mean(deps dep90 dep10 dep01)=deps_all dep90 dep10 dep01; run; proc append base=mars_shares data=temp force; run; proc means data=TAB&yr; var count; weight xwgt; output out=temp mean(year)=year sum(filers)=filers sum(o64_1 o64_2 o64_3 o64_4 o64_5 o64_6 o64_7 o64_8 o64_9 o64_10 o64_11 o64_12 o64a_1 o64a_2 o64a_3 o64a_4 o64a_5 o64a_6 o64a_7 o64a_8 o64a_9 o64a_10 o64a_11 o64a_12) =o64_1 o64_2 o64_3 o64_4 o64_5 o64_6 o64_7 o64_8 o64_9 o64_10 o64_11 o64_12 o64a_1 o64a_2 o64a_3 o64a_4 o64a_5 o64a_6 o64a_7 o64a_8 o64a_9 o64a_10 o64a_11 o64a_12 ; run; proc append base=age_gps data=temp force; run; proc means data=TAB&yr; var count; weight xwgt; output out=temp mean(year)=year sum(filers)=filers sum(s_20 s_35 s_55 s_65 m_20 m_35 m_55 m_65 s_48 m_48 inc_48 inc_BB) =s_20 s_35 s_55 s_65 m_20 m_35 m_55 m_65 s_48 m_48 inc_48 inc_BB; run; proc append base=age_cts data=temp force; run; * Non-deductible losses: for 1987; proc sort data=TAB&yr; by gp100K; run; proc means data=TAB&yr; var count; by gp100K; weight xwgt; output out=NDlosses mean(year)=year sum(count)=count sum(PARTSCPL pasndls RENTSL rentndls)=PARTSCPL pasndls RENTSL rentndls; run; proc sort data=TAB&yr; by gp1; run; proc means data=TAB&yr; var count; by gp1; weight xwgt; output out=NDlossesTop1 mean(year)=year sum(count)=count sum(PARTSCPL pasndls RENTSL rentndls)=PARTSCPL pasndls RENTSL rentndls; run; *Non-deductible losses affect the top of the distribution more and allowed rental losses phase out for AGIs over $100,000. For tax units with positive market incomes over $100,000 in 1987 (indexed in earlier years), 85% of partnership/S corporation losses and 30% of rental losses are estimated to be non-deductible. For tax returns below the threshold, 20% of partnership/S corporation losses are assumed to be non-deductible.; * Footnote: generally 95 percent of top one percent itemized deductions; proc means data=TAB&yr; var INCOME; weight xwgt; output out=Itemize mean(itemizetop1 itemizetop10)=mn_itemizetop1 mn_itemizetop10; run; %end; /* * UNDERREPORTING and RETIREMENT ESTIMATES: filers only to compare to Johns-Slemrod and other NRP estimates; data TAB&yr; set TAB&yr; xwgtfil=xwgt; if id=. then xwgtfil=0; if AGIX=. then AGIX=0; if AUDIT=. then AUDIT=0; TRUE = AGIX + AUDIT; * detected and undetected misreporting; if EVexm=. then EVexm=0; TRUEdet = AGIX + EVexm; * detected misreporting only; * DB retirement income; DBcur=0; DBwrk=0; DBnew=0; RETADJnew=0; RETINCnew=0; if (totDBwg >0) then DBRET =1000000*&&uret&yr*(&&frdb&yr*(DBwg/totDBwg)); DCRETINC=0; if (totDC >0) then DCRETINC =1000000*&&uret&yr *((1-&&frdb&yr)*DC/totDC); incempex = income232 - EMPEX; run; * By reported income group (AGI, filers only); %GroupsDecilesN(TAB&yr, AGIX, xwgtfil, AGIgp); proc sort data=TAB&yr; by AGIgp; run; proc means data=TAB&yr; var count; by AGIgp; weight xwgtfil; output out=UnderByAGI mean(year)=year sum(count AGIX TRUE income232 WAGE BUSU AUDIT AUDITBUS UNDER UNDERWG UNDERBUS EVexm)=count AGIX TRUE NatInc WAGE BUSU AUDIT AUDITBUS UNDER UNDERWG UNDERBUS EVexm; run; * By true detected income group (allocated underreported income and AGI, filers only); %GroupsDecilesN(TAB&yr, TRUEdet, xwgtfil, TrIncGrp); * Groups by AGI and tax unit weights; proc sort data=TAB&yr; by TrIncGrp; run; proc means data=TAB&yr; var count; by TrIncGrp; weight xwgtfil; output out=UnderByTrueDetected mean(year)=year sum(count AGIX TRUEdet income232 WAGE BUSU AUDIT AUDITBUS UNDER UNDERWG UNDERBUS EVexm)=count AGIX TRUEdet NatInc WAGE BUSU AUDIT AUDITBUS UNDER UNDERWG UNDERBUS EVexm; run; * By true income group (allocated underreported income and AGI, filers only); %GroupsDecilesN(TAB&yr, TRUE, xwgtfil, TrIncGrp); * Groups by AGI and tax unit weights; proc sort data=TAB&yr; by TrIncGrp; run; proc means data=TAB&yr; var count; by TrIncGrp; weight xwgtfil; output out=UnderByTrue mean(year)=year sum(count AGIX TRUE income232 WAGE BUSU AUDIT AUDITBUS UNDER UNDERWG UNDERBUS EVexm)=count AGIX TRUE NatInc WAGE BUSU AUDIT AUDITBUS UNDER UNDERWG UNDERBUS EVexm; run; * By pre-tax national income group; %GroupsDecilesN(TAB&yr, income232, xwgtfil, NIGrp); * Groups by AGI and tax unit weights; proc sort data=TAB&yr; by NIGrp; run; proc means data=TAB&yr; var count; by NIGrp; weight xwgtfil; output out=UnderByNI mean(year)=year sum(count AGIX TRUE income232 WAGE BUSU AUDIT AUDITBUS UNDER UNDERWG UNDERBUS)=count AGIX TRUE NatInc WAGE BUSU AUDIT AUDITBUS UNDER UNDERWG UNDERBUS; run; */ /* * By reported business income group; proc sort data=TAB&yr; by BusGrp; run; proc means data=TAB&yr; var count; by BusGrp; weight xwgt; output out=UnderByBUS mean(year)=year sum(count AGIX TRUE income232 WAGE BUSU AUDIT AUDITBUS UNDER UNDERWG UNDERBUS)=count AGIX TRUE NatInc WAGE BUSU AUDIT AUDITBUS UNDER UNDERWG UNDERBUS; run; */ /* * Retirement account ownership shares by AGI with nonfilers; %GroupsDecilesN(TAB&yr, AGIX, xwgt, AGIgrp); * Groups by AGI and tax unit weights; proc sort data=TAB&yr; by AGIgrp; run; proc means data=TAB&yr; var count; by AGIgrp; weight xwgt; output out=RetByAGI mean(year)=year sum(count AGIX income232 WAGE RETINC DCRETINC RETADJ DBRET DC_FMVt DC DCscf)= count AGIX income232 WAGE RETINC DCRETINC RETADJ DBRET DC_FMVt DC DCscf; run; * Retirement account ownership shares by TPI with nonfilers; %GroupsDecilesN(TAB&yr, TPI, xwgt, TPIgrp); * Groups by TPI and tax unit weights; proc sort data=TAB&yr; by TPIgrp; run; proc means data=TAB&yr; var count; by TPIgrp; weight xwgt; output out=RetByTPI mean(year)=year sum(count TPI income232 WAGE RETINC DCRETINC RETADJ DBRET DC_FMVt DC DCscf)= count TPI income232 WAGE RETINC DCRETINC RETADJ DBRET DC_FMVt DC DCscf; run; * Age groups: agegp: 20-40, 41-64, 65-72, 73+ with nonfilers; proc sort data=TAB&yr; by agegp; run; proc means data=TAB&yr; var count; by agegp; weight xwgt; output out=RetByAge mean(year)=year sum(count AGIX income232 WAGE RETINC DCRETINC RETADJ DBRET DC_FMVt DC DCscf)= count AGIX income232 WAGE RETINC DCRETINC RETADJ DBRET DC_FMVt DC DCscf; run; */ /* * AGI and age groups for retiremetn estimates with nonfilers; %GroupsAll(TAB&yr, AGIX, xwgt, AGIgrpA, cut); proc sort data=TAB&yr; by AGIgrpA agegp; run; proc means data=TAB&yr; var count; by AGIgrpA agegp; weight xwgt; output out=RetByAGIAge mean(year)=year sum(count AGIX SS1099t IMP_SSA2 TSSA SSnf DC_FMVt DC DCscf)= count AGIX SS1099t IMP_SSA2 TSSA SSnf DC_FMVt DC DCscf; run; * Retirement account ownership shares by NI with nonfilers; %GroupsDecilesN(TAB&yr, income232, xwgt, NIGrp); * Groups by AGI and tax unit weights; proc sort data=TAB&yr; by NIGrp; run; proc means data=TAB&yr; var count; by NIGrp; weight xwgt; output out=RetByNI mean(year)=year sum(count AGIX income232 WAGE RETINC DCRETINC RETADJ DBRET DBcur DBwrk DBnew RETADJnew RETINCnew TXPENS incempex)= count AGIX income232 WAGE RETINC DCRETINC RETADJ DBRET DBcur DBwrk DBnew RETADJnew RETINCnew TXPENS incempex; run; * SS Dist (Tab C17) by AGI groups filers only; %GroupsAll2(TAB&yr, AGIX, xwgtfil, AGIgrp, cutoff); * Groups by AGI and tax unit weights; proc sort data=TAB&yr; by AGIgrp; run; proc means data=TAB&yr; var count; by AGIgrp; weight xwgtfil; output out=SSRetByAGIfilers mean(year)=year sum(count AGIX SS1099t IMP_SSA2 TSSA SSnf)= count AGIX SS1099t IMP_SSA2 TSSA SSnf; run; proc means data=TAB&yr; var count; weight xwgt; output out=SSRetByAGInonfilers mean(year)=year sum(count AGIX SS1099t IMP_SSA2 TSSA SSnf)=count AGIX SS1099t IMP_SSA2 TSSA SSnf; run; */ /* * all income type test; proc means data=TAB&yr; var income101; weight xwgt1000000; output out=temp mean(year)=year sum(income12 income101 income102 income198 income222 income223 income224 income225 income226 income227 income228 income229 income230 income231 income232 income321 income322 income323 income324 income325 income401 income402 income403 income404 income405 income406 income407 income408 AGIX STATADJ SSAGIX UNEM CGSD NDLoss NTINT STXRF GAMBLS NOLS EXDIV CGDS IRA CGOTH ALIMRCa ALIMPD COMB INTEX UNDTRST CRET CTAX BUSPTAX INFch UNDER IRENT FICA UI ESI FSA RETINC RETADJ OTAX NPGV FED IMP_SSA2 UNEM2 MCR ESREBATE CTRAN NCTRAN FTAX FTC ESTX SITX PRPD WTAX OTAXX SUR GVCONS UNDERWG UNDERBUS)= income12 income101 income102 income198 income222 income223 income224 income225 income226 income227 income228 income229 income230 income231 income232 income321 income322 income323 income324 income325 income401 income402 income403 income404 income405 income406 income407 income408 AGIX STATADJ SSAGIX UNEM CGSD NDLoss NTINT STXRF GAMBLS NOLS EXDIV CGDS IRA CGOTH ALIMRCa ALIMPD COMB INTEX UNDTRST CRET CTAX BUSPTAX INFch UNDER IRENT FICA UI ESI FSA RETINC RETADJ OTAX NPGV FED IMP_SSA2 UNEM2 MCR ESREBATE CTRAN NCTRAN FTAX FTC ESTX SITX PRPD WTAX OTAXX SUR GVCONS UNDERWG UNDERBUS; run; proc append base=TotalTest data=temp force; run; proc means data=TAB&yr; var income101; weight xwgt; output out=temp sum(income232 income299 income700 income710 income715 income720 income725 income730 income740 income750 income760 income765 income770 income762 income763 income782 income780 income784 income786 income788 income789 income790 income792 income794 income796 income797 income798 income799 income795 income408 income652 income650 income660 income670 income663 income667 income680 income681 income682 income685 income690 income687 income688)= income232 income299 income700 income710 income715 income720 income725 income730 income740 income750 income760 income765 income770 income762 income763 income782 income780 income784 income786 income788 income789 income790 income792 income794 income796 income797 income798 income799 income795 income408 income652 income650 income660 income670 income663 income667 income680 income681 income682 income685 income690 income687 income688; run; proc append base=TotalTestPSZ data=temp force; run; */ %mend EST_INCOME; %macro EST_RELAT(yr, ranktype); * Rank by tax units (PS method); %if (&ranktype eq 0) %then %do; %GroupsAll(TAB&yr, INCOME, XWGT, IncGrp, cutoff); %Quintiles(TAB&yr, INCOME, XWGT, Quintile, qcutoff); %gini(INCOME, XWGT, TAB&yr, &yr, &incometype); %end; * Set relative group sizes by number of adults but use tax unit incomes to rank: for setting the threshold increase non-filer weights to account for married nonfilers (all below top 10% threshold); %if (&ranktype eq 1) %then %do; data TAB&yr; set TAB&yr; marwt = XWGT; if (id=.) then marwt=XWGT*1.40; * assume non-filer marriage rate of 40%; if (mars=2) then do; * if married filer then double weight and half incomes, so total income is the same but thresholds can change and adults can re-rank, with some married falling and single filers rising; marwt = XWGT*2; end; run; %GroupsAll(TAB&yr, INCOME, marwt, IncGrp, cutoff); %Quintiles(TAB&yr, INCOME, marwt, Quintile, qcutoff); %end; *Set relative groups by number of number of individuals, rank by size-adjusted income: Square Root of Tax Unit Size (filers+dependents), treat non-filers as having no dependents; %if (&ranktype eq 2) %then %do; * Divide married filer incomes (and sources) by two and increase non-filer weights to account for married nonfilers (all below top 10% threshold); data TAB&yr; set TAB&yr; szad_wt = XWGT; szad_inc = INCOME; if (&filingtype ne 19)and(id=.)and(mars=2) then do; * adjust for married nonfilers (assume no non-filer dependents); szad_wt=XWGT*2; szad_inc = INCOME/SQRT(2); end; if (EXEM>1)and(id ne .) then do; * if married filer then double weight and half incomes, so total income is the same but thresholds can change and adults can re-rank, with some married falling and single filers rising; szad_wt = XWGT*EXEM; szad_inc = INCOME/SQRT(EXEM); if (&incometype=408) then szad_inc232 = INCOME232/SQRT(EXEM); TAX = FTAX + FTC - REFC + ESTX + SITX + CTAX + PRPD + BUSPTAX + WTAX + OTAXX; FEDTAX = FTAX + FTC - REFC + ESTX + CTAX + BUSPTAX + WTAX; end; run; %GroupsAll(TAB&yr, szad_inc, szad_wt, IncGrp, cutoff); %Quintiles(TAB&yr, szad_inc, szad_wt, Quintile, qcutoff); %gini(szad_inc, szad_wt, TAB&yr, &yr, &incometype); %if (&incometype=325) %then %do; %giniconcindex( TAX, szad_inc, szad_wt, TAB&yr, &yr, kakall); * Tax concentration for Kakwani, giniconcindex(concinc, rankinc, wts, dsin, yr, var); %giniconcindex( FEDTAX, szad_inc, szad_wt, TAB&yr, &yr, kakfed); * Fed Tax concentration for Kakwani, giniconcindex(concinc, rankinc, wts, dsin, yr, var); %end; %if (&incometype=232) %then %do; %giniconcindex(INCOME408, szad_inc, szad_wt, TAB&yr, &yr, reynsmol); * After-tax income concentration for Reyn-Smol; %giniconcindex(INCOME406, szad_inc, szad_wt, TAB&yr, &yr, reynsmolbef); * After-tax before deficits/govt consump for Reyn-Smol; %giniconcindex(INCOME325, szad_inc, szad_wt, TAB&yr, &yr, reynsmoltra); * After-tax after transfers only for Reyn-Smol; %end; %if (&lowest=1)and(&yr=2019) %then %do; * CBO tax unit to household conversion only for top 1% by increasing number of household members according to Larrimore, Mortenson, and Splinter: https://www.federalreserve.gov/econresdata/feds/2017/files/2017002pap.pdf; data TAB&yr; set TAB&yr; if (IncGrp>=5) then do; if (ranuni(4096)<0.22) then EXEM = EXEM + 1; * 22% of top 1% of tax units have 1 additional tax unit in household; if (ranuni(4096)<0.10) then EXEM = EXEM + 1; * 10% of top 1% of tax units have 2 additional tax unit in household; if (ranuni(4096)<0.06) then EXEM = EXEM + 1; * 5.7% of top 1% of tax units have 3+ additional tax unit in household; end; if (EXEM>1)and(id ne .) then do; * if married filer then double weight and half incomes, so total income is the same but thresholds can change and adults can re-rank, with some married falling and single filers rising; szad_wt = XWGT*EXEM; szad_inc = INCOME/SQRT(EXEM); end; run; %GroupsAll(TAB&yr, szad_inc, szad_wt, IncGrp, cutoff); %end; %end; * Rank by adult level incomes (PSZ method): Divide married filer incomes (and sources) by two and increase non-filer weights to account for married nonfilers (all below top 10% threshold); %if (&ranktype eq 3) %then %do; * Divide married filer incomes (and sources) by two and increase non-filer weights to account for married nonfilers (all below top 10% threshold); data TAB&yr; set TAB&yr; if (id=.) then do; XWGT=XWGT*1.40; INCOME=INCOME/1.40; end; * assume non-filer marriage rate of 40%, increase weight for setting thresholds and decrease income such that total income unchanged; if (mars=2) then do; * if married filer then double weight and half incomes, so total income is the same but thresholds can change and adults can re-rank, with some married falling and single filers rising; XWGT = XWGT*2; INCOME = INCOME/2; X001 = X001/2; X002 = X002/2; X003 = X003/2; X004 = X004/2; PARTSCP = PARTSCP/2; RENTS = RENTS/2; TRUST = TRUST/2; CRET = CRET/2; CRET=CRET/2; CTAX=CTAX/2; end; run; %GroupsAll(TAB&yr, INCOME, XWGT, IncGrp, cutoff); %end; *Set relative groups by number of individuals, rank by tax unit income (i.e., full sharing or economies of scale, e=0); %if (&ranktype eq 5) %then %do; * Divide married filer incomes (and sources) by two and increase non-filer weights to account for married nonfilers (all below top 10% threshold); data TAB&yr; set TAB&yr; szad_wt = XWGT; if (id=.)and(mars=2) then szad_wt=XWGT*2; * adjust for married nonfilers (assume no non-filer dependents); if (EXEM>1)and(id ne .) then szad_wt = XWGT*EXEM; * if filer then multiply weight by number of individuals; run; %GroupsAll(TAB&yr, INCOME, szad_wt, IncGrp, cutoff); %Quintiles(TAB&yr, INCOME, szad_wt, Quintile, qcutoff); %end; *Set relative groups by number of individuals, rank by fully-split tax unit income (i.e., no economies of scale or equivalence scale=1); %if (&ranktype eq 7) %then %do; data TAB&yr; set TAB&yr; szad_wt = XWGT; szad_inc = INCOME; if (id=.)and(mars=2) then do; szad_wt=XWGT*2; szad_inc = INCOME/2; end; * nonfilers assume no dependents; if (EXEM>1)and(id ne .) then do; szad_wt = XWGT*EXEM; szad_inc = INCOME/EXEM; end; * filers; %GroupsAll(TAB&yr, szad_inc, szad_wt, IncGrp, cutoff); *%Quintiles(TAB&yr, szad_inc, szad_wt, Quintile, qcutoff); %end; /* * Marriage Rates and Age Groups: extra output tables; DATA TAB&yr; set TAB&yr; married=0; if (mars=2) then married=1; %do gp = 1 %to 7; mar&gp=.; if (Incgrp=&gp)and(count=1) then do; mar&gp=0; if (mars=2) then mar&gp=1; end; * if part of income group and filer (count ne 1 for nonfilers); gpp&gp=.; if (Incgrp=&gp)and(count=1) then gpp&gp=1; %end; o64_t=.; if (count=1)and(&yr<1979)and(AGEX ne 0) then o64_t=1; if (count=1)and(&yr<1979)and(AGEX ne 0)and(mars=2) then o64_t=2; if (count=1)and(&yr>=1979)and(yob_dm1 <= (&yr - 65)) then o64_t=1; if (count=1)and(&yr>=1979)and(yob_dm1 <= (&yr - 65))and(mars=2) then o64_t=2; %do gp = 2 %to 7; o64_&gp=.; if (count=1)and(Incgrp=&gp)and(&yr<1979)and(AGEX ne 0) then o64_&gp=1; if (count=1)and(Incgrp=&gp)and(&yr<1979)and(AGEX ne 0)and(mars=2) then o64_&gp=2; if (count=1)and(Incgrp=&gp)and(&yr>=1979)and(yob_dm1 <= (&yr - 65)) then o64_&gp=1; if (count=1)and(Incgrp=&gp)and(&yr>=1979)and(yob_dm1 <= (&yr - 65))and(mars=2) then o64_&gp=2;* 2013: 36.6M with 0.80, 45.8 M with 1.0, Census 44.7M 65+ individuals (July 1, not Dec 31); %end; filers=0; if (mars ne .) then filers=1; if (mars=2) then filers=2; year = &yr; run; * Age Gps; %if &incometype=198 %then %do; proc means data=TAB&yr; var mar1; weight xwgt; output out=temp mean(year)=year sum(count married)=count mar_ct mean(married mar1 mar2 mar3 mar4 mar5 mar6 mar7)=mar_all mar1 mar2 mar3 mar4 mar5 mar6 mar7 sum(married mar1 mar2 mar3 mar4 mar5 mar6 mar7 )=mar_tot mrt1 mrt2 mrt3 mrt4 mrt5 mrt6 mrt7 sum(gpp1 gpp2 gpp3 gpp4 gpp5 gpp6 gpp7)=gpp1 gpp2 gpp3 gpp4 gpp5 gpp6 gpp7; run; proc append base=mars_shares data=temp force; run; proc means data=TAB&yr; var mar1; weight xwgt; output out=temp mean(year)=year sum(filers)=filers sum(o64_t o64_2 o64_3 o64_4 o64_5 o64_6 o64_7 count)=o64_t o64_2 o64_3 o64_4 o64_5 o64_6 o64_7 returns; run; proc append base=age_gps data=temp force; run; %end; */ %mend EST_RELAT; %macro EST_DIST(yr, filingtype, incometype); DATA TABB(KEEP= WAS1-WAS8 INT1-INT8 DBE1-DBE8 CG1-CG8 EN1-EN8 SIN1-SIN8 STX1-STX8 FTX1-FTX8 IWT1-IWT8 CTX1-CTX8 CRT1-CRT8 INC1-INC8 SZWT1-SZWT8 WT1-WT8 JYC1-JYC8 PTX1-PTX8 WTX1-WTX8 OTX1-OTX8 RET1-RET8 EST1-EST8 EI1-EI8) ; SET TAB&yr END=ILAST; ARRAY WAS{8} WAS1-WAS8; ARRAY INT{8} INT1-INT8; ARRAY DBE{8} DBE1-DBE8; ARRAY CG{8} CG1-CG8; ARRAY EN{8} EN1-EN8; ARRAY SIN{8} SIN1-SIN8; ARRAY FTX{8} FTX1-FTX8; ARRAY STX{8} STX1-STX8; ARRAY IWT{8} IWT1-IWT8; ARRAY CTX{8} CTX1-CTX8; ARRAY CRT{8} CRT1-CRT8; ARRAY INC{8} INC1-INC8; ARRAY SZWT{8} SZWT1-SZWT8; ARRAY WT{8} WT1-WT8; ARRAY JYC{8} JYC1-JYC8; ARRAY PTX{8} PTX1-PTX8; ARRAY WTX{8} WTX1-WTX8; ARRAY OTX{8} OTX1-OTX8; ARRAY RET{8} RET1-RET8; ARRAY EST{8} EST1-EST8; ARRAY EI{8} EI1-EI8; RETAIN WAS1-WAS8 INT1-INT8 DBE1-DBE8 CG1-CG8 EN1-EN8 SIN1-SIN8 STX1-STX8 FTX1-FTX8 IWT1-IWT8 CTX1-CTX8 CRT1-CRT8 INC1-INC8 SZWT1-SZWT8 WT1-WT8 JYC1-JYC8 PTX1-PTX8 WTX1-WTX8 OTX1-OTX8 RET1-RET8 EST1-EST8 EI1-EI8 0; * Initialize variables; INC0=0; * FILL OUTPUT DISTRIBUTION TABLES (bottom 50% first); if (IncGrp = 1)and(XWGT ne .) then do; INC0 = INC0 + XWGT * INCOME ; if (INCOME ne .) then INC(8) = INC(8) + XWGT * INCOME ; WT(8) = WT(8) + XWGT; IWT(8) = IWT(8) + marwt; SZWT(8) = SZWT(8) + szad_wt; if (id ne .) then do; * no non-filers for these sources; WAS(8) = WAS(8) + XWGT * WAGE; INT(8) = INT(8) + XWGT * INTEREST; DBE(8) = DBE(8) + XWGT * TOTDIV; CG(8) = CG(8) + XWGT * X004; EN(8) = EN(8) + XWGT * (PARTSCP + BUSN + FARM + RENTS); SIN(8) = SIN(8) + XWGT * (IMP_SSA2 + UNEM2) ; CRT(8) = CRT(8) + XWGT * CRET ; FTX(8) = FTX(8) + XWGT * (FTAX+FTC); STX(8) = STX(8) + XWGT * SITX; CTX(8) = CTX(8) + XWGT * CTAX; PTX(8) = PTX(8) + XWGT * (PRPD+BUSPTAX); WTX(8) = WTX(8) + XWGT * WTAX; OTX(8) = OTX(8) + XWGT * OTAX; RET(8) = RET(8) + XWGT * (PENSTX_calc+RETINC+RETADJ); EST(8) = EST(8) + XWGT * ESTX; EI(8) = EI(8) + XWGT * (FICA+UI+ESI); end; end; do JJ=1 to 7; if (IncGrp = JJ+1) then do; if (INCOME ne .) then INC(JJ) = INC(JJ) + XWGT * INCOME ; INC(8) = INC(8) + XWGT * INCOME ; WT(JJ) = WT(JJ) + XWGT; WT(8) = WT(8) + XWGT; IWT(JJ)= IWT(JJ) + marwt; * Adult weights; IWT(8) = IWT(8) + marwt; SZWT(JJ)= SZWT(JJ) + szad_wt; * Individual weights; SZWT(8) = SZWT(8) + szad_wt; if (XWGT ne .) then do; * (id ne .): previously no non-filers for these sources; if (WAGE ne .) then WAS(JJ)= WAS(JJ)+ XWGT * WAGE; WAS(8) = WAS(8) + XWGT * WAGE; INT(JJ)= INT(JJ)+ XWGT * (INTEREST + NTINT); INT(8) = INT(8) + XWGT * (INTEREST + NTINT); DBE(JJ)= DBE(JJ)+ XWGT * TOTDIV; DBE(8) = DBE(8) + XWGT * TOTDIV; CG(JJ) = CG(JJ) + XWGT * X004; * only want positive Sch D gains; CG(8) = CG(8) + XWGT * X004; if (PARTSCP ne .) then EN(JJ) = EN(JJ) + XWGT * PARTSCP; * Part + S corp, but no farm or sch C; if (BUSN ne .) then EN(JJ) = EN(JJ) + XWGT * BUSN; if (FARM ne .) then EN(JJ) = EN(JJ) + XWGT * FARM; if (RENTS ne .) then EN(JJ) = EN(JJ) + XWGT * RENTS; EN(8) = EN(8) + XWGT * (PARTSCP + BUSN + FARM + RENTS); SIN(JJ) = SIN(JJ) + XWGT * (IMP_SSA2 + UNEM2 + MCR) ; * Social insurance is SS UI and Medicare (all added in EST_DIST also); SIN(8) = SIN(8) + XWGT * (IMP_SSA2 + UNEM2 + MCR) ; CRT(JJ) = CRT(JJ) + XWGT * CRET ; * C corp retained earnings (excl. taxes); CRT(8) = CRT(8) + XWGT * CRET ; FTX(JJ) = FTX(JJ) + XWGT * (FTAX+FTC); * Federal income taxes and FTCs; FTX(8) = FTX(8) + XWGT * (FTAX+FTC); STX(JJ) = STX(JJ) + XWGT * SITX; * State and local income tax (missing variable years distributed below); STX(8) = STX(8) + XWGT * SITX; CTX(JJ) = CTX(JJ) + XWGT * CTAX; * C corp taxes; CTX(8) = CTX(8) + XWGT * CTAX; PTX(JJ) = PTX(JJ) + XWGT * (PRPD+BUSPTAX); * Property taxes; PTX(8) = PTX(8) + XWGT * (PRPD+BUSPTAX); WTX(JJ) = WTX(JJ) + XWGT * WTAX; * payroll taxes; WTX(8) = WTX(8) + XWGT * WTAX; OTX(JJ) = OTX(JJ) + XWGT * OTAX; * Sales and other taxes; OTX(8) = OTX(8) + XWGT * OTAX; RET(JJ) = RET(JJ) + XWGT * (PENSTX_calc+RETINC+RETADJ); * PENSION Realized taxable retirement income, inside buildup (dividends and interest) and retirement adjustment; RET(8) = RET(8) + XWGT * (PENSTX_calc+RETINC+RETADJ); * DBwg to test share of DB wealth to top 1%; EST(JJ) = EST(JJ) + XWGT * ESTX; * Estate and Gift Tax; EST(8) = EST(8) + XWGT * ESTX; EI(JJ) = EI(JJ) + XWGT * (FICA+UI+ESI); * Employer-sponsored insurance and employer payroll taxes; EI(8) = EI(8) + XWGT * (FICA+UI+ESI); END; * income sources (filers only); END; * income and weights (filers and non-filers); END; * loop; IF (ILAST) THEN DO; DO JJ=1 TO 8; WAS(JJ) = WAS(JJ)/1000000; INT(JJ) = INT(JJ)/1000000; DBE(JJ) = DBE(JJ)/1000000; CG(JJ) = CG(JJ) /1000000; EN(JJ) = EN(JJ) /1000000; CRT(JJ) = CRT(JJ)/1000000; INC(JJ) = INC(JJ)/1000000; SIN(JJ) = SIN(JJ)/1000000; FTX(JJ)= FTX(JJ)/1000000; STX(JJ)= STX(JJ)/1000000; CTX(JJ)= CTX(JJ)/1000000; PTX(JJ)= PTX(JJ)/1000000; WTX(JJ)= WTX(JJ)/1000000; OTX(JJ)= OTX(JJ)/1000000; RET(JJ)= RET(JJ)/1000000; EST(JJ)= EST(JJ)/1000000; EI(JJ)= EI(JJ)/1000000; END; DO JJ=1 TO 7; PUT (JYC(JJ) WAS(JJ) EN(JJ) DBE(JJ) INT(JJ) FTX(JJ) CRT(JJ) INC(JJ) CG(JJ) WT(JJ) SIN(JJ) STX(JJ) IWT(JJ) CTX(JJ) PTX(JJ) WTX(JJ) OTX(JJ) RET(JJ) EST(JJ) EI(JJ)) (11.1); END; PUT ' TOTAL ' (WAS(8) EN(8) DBE(8) INT(8) FTX(8) CRT(8) INC(8) CG(8) WT(8) SIN(8) STX(8) IWT(8) CTX(8) PTX(8) WTX(8) OTX(8) RET(8) EST(8) EI(JJ)) (11.1); OUTPUT TABB; END; RETURN; RUN; %mend EST_DIST; %macro TopShares(frstyr, lastyr, filingtype, incometype, ranktype); %do yr = &frstyr %to &lastyr; * year loop; data TOTAL&yr; run; %IF (&yr ne 1961) and (&yr ne 1963) and (&yr ne 1965) %THEN %DO; %EST_INCOME(&yr, &filingtype, &incometype); * Set income components; %IF (&filingtype=0) %THEN %DO; data TAB&yr; set TAB&yr; xwgt_PS=.; psnfinc=.; run; proc append base=TAB&yr data=NonFilers&yr force; run; data TAB&yr; set TAB&yr; if (id=.) then do; XWGT=xwgt_PS*1000; INCOME = psnfinc; X004=0; PARTSCP=0; RENTS=0; TRUST=0; X009=0; INCFRACTION=0; CRET=0; CTAX=0; TAX=0; end; run; %end; %IF (&filingtype=18) %THEN %DO; data TAB&yr; set TAB&yr; xwgt_PS=.; xwgt_20=.; xwgt_dep=.; psnfinc=.; run; proc append base=TAB&yr data=NonFilers&yr force; run; data TAB&yr; set TAB&yr; if (id=.) then do; XWGT = (xwgt_PS+xwgt_20)*1000; INCOME = psnfinc; X004=0; PARTSCP=0; RENTS=0; TRUST=0; X009=0; INCFRACTION=0; CRET=0; CTAX=0; end; run; %end; %IF (&filingtype=19) %THEN %DO; data TAB&yr; set TAB&yr; xwgt_PS=.; xwgt_20=.; xwgt_dep=.; psnfinc=.; xwgt_noNR=.; xwgt_mfs=.; run; proc append base=TAB&yr data=NonFilers&yr force; run; data TAB&yr; set TAB&yr; if (id=.) then do; XWGT = (xwgt_PS+xwgt_20+xwgt_noNR+xwgt_mfs)*1000; INCOME = psnfinc; X004=0; PARTSCP=0; RENTS=0; TRUST=0; X009=0; INCFRACTION=0; CRET=0; CTAX=0; end; run; %end; %IF (&filingtype=30) %THEN %DO; * PS # non-filers; data TAB&yr; set TAB&yr; xwgt_noNR=.; xwgt_PS=.; xwgt_20=.; xwgt_dep=.; psnfinc=.; run; proc append base=TAB&yr data=NonFilers&yr force; run; data TAB&yr; set TAB&yr; if (id=.) then do; XWGT = (xwgt_PS)*1000; INCOME = psnfinc; PARTSCP=0; RENTS=0; TRUST=0; X009=0; INCFRACTION=0; CRET=0; CTAX=0; end; run; %end; %EST_RELAT(&yr, &ranktype); * Set income groups and cutoffs based on incometype; %EST_DIST(&yr, &filingtype, &incometype); * Calculate Income sources by income group; * Add results for each year to output datasets; data TEMPb; year=&yr; filingtype=&filingtype; incometype=&incometype; ranktype=&ranktype; run; %end; * for missing years just append last years results so have line of output; %IF (&yr ne 1961) and (&yr ne 1963) and (&yr ne 1965) %THEN %DO; data TEMPb; merge TEMPb TAB&yr; run; data TEMPinc; set TEMPb; keep year filingtype incometype ranktype INC1-INC8; run; %end; proc append base= TOTAL_ALL data=TEMPb force; run; proc append base= TOTAL_INC data=TEMPinc force; run; %end; * year loop; data indiv.ztotalall&incometype; set TOTAL_ALL; run; %mend TopShares; %macro MultiTopShares(frstyr, lastyr, filingtype, incometype_i, incometype_f, ranktype); * clear output tables; proc datasets library=indiv; delete zTOTAL_INC&incometype_i; quit; run; %do incometype = &incometype_i %to &incometype_f; proc datasets library=work; delete TOTAL_ALL&incometype TOTAL_INC&incometype; quit; run; %end; %do yr = &frstyr %to &lastyr; * year loop; data NonFilers&yr; set NonFilers&yr; PSTATE=.;DSI=.;STATE=.;FLPDYR=.;xwgt=.;id=.;DEPD=.;EMPEX=.;PART=.;SCORPNET=.;EXEM=.;AGIX=.;WAGE=.;INTEREST=.;DIVID=.;BUSN=.;PARTSCP=.;CGSD=.;CGDS=.;CGOTH=.;PENSTX=.;PENSION=.;PENSNT=.;FARM=.;UNEM=.;SSAGIX=.; TSSA=.;STATADJ=.;RENTS=.;TRUST=.;STXRF=.;PASNDLS=.;RENTNDLS=.;OTHR=.;FOREX=.;GAMBLS=.;NOLS=.;NTINT=.;CGPRSCP=.;TAX=.;SETX=.;SITX=.; SSTX=.;STXD=.;PRPD=.;PPRP=.;DED=.;itemize=.;FTC=.;SCP=.;IRA=.;ALIMRC=.;ALIMPD=.;MID=.;secap=.;secas=.;ESREBATE=.;AGIXa=.;yob_dm1=.;yod_dm1=.;dob_dm1=.;dod_dm1=.;dropret=.;IncGrp=.;cutoff=.;OASDI_BASE=.; wasind2010=.;wasind2000=.;ficashare=.;OASDI=.;HI_BASE=.;HI=.;FICA=.;ptholid=.;FICAe=.;FICA_BASE=.;WGFICA=.;ficashare1=.;oasdi1=.;w2oasdi1=.;ficashare2=.;oasdi2=.; w2oasdi2=.;ficashare3=.;oasdi3=.;w2oasdi3=.;ficashare4=.;oasdi4=.;w2oasdi4=.;UI_base=.;UI=.;X004=.; CGACT=.;TOTDIV=.;EXDIV=.;TUNEM=.;depun=.;DEPINC=.;AGEX=.;nr=.;less20=.;ov20dep=.;remNR=.;eq20=.;PENSTX_calc=.;count=.; NDLoss=.;PASNDLS100=.;RENTNDLS100=.;NDLoss100=.;IMP_SSA2=.;UNEM2=.;FTAX=.;IPTAX=.;WTAX=.;deps=.;pTRUST=.;capinc=.;depinccap=.;depincap=.;depuninccap=.;depunincap=.;_TYPE_=.;_FREQ_=.;totTRUST=.; depstot=.;capinctot=.;UNDTRST=.;pBUSN=.;pX004=.;pfarm=.;prent=.;DISP_INC=.;year=.;gp=.;apass=.;w=.;ap0=.;w0=.;wm0=.;ws0=.;a1=.;ap1=.;w1=.;wm1=.;ws1=.;ap2=.;w2=.;ws2=.;a2=.;ap3=.;w3=.;wm3=.;ws3=.;a3=.; ap4=.;w4=.;wm4=.;ws4=.;ap5=.;w5=.;wm5=.;ws5=.;a5=.;ap6=.;w6=.;wm6=.;ws6=.;a6=.;ap7=.;w7=.;wm7=.;ws7=.;a7=.;ap8=.;w8=.;wm8=.;ws8=.;a8=.;*dc_ratio=.;DC=.;est_ratio=.; agegp=.;item=.;niexem=.;ct=.;RESID=.;mc=.;mcp=.;o64_t=.;pagix=.;cgs=.;AGIXpos=.;AGIXposni=.;AGIXposni2=.; absinc=.;incni=.;totwag=.;alldiv=.;totint=.;ptotint=.;totntint=.;ptotcg=.;partscptot=.;totbusn=.;ppartscptot=.;ptotbusn=.;totpens=.;totpenstx=.;totct=.;totftax=.;totsitx=.;totiptax=.;totwtax=.;totdis=.;totagi=.;totfarm=.;totrent=.; tap=.;tap0=.;tap1=.;tap2=.;tap4=.;tap5=.;tap6=.;tap7=.;tap8=.;tw0=.;tw1=.;tw2=.;tw3=.;tw4=.;tw5=.;tw6=.;tw7=.;tw8=.;twm0=.;twm1=.;twm2=.;twm3=.;twm4=.;twm5=.;twm6=.;twm7=.;twm8=.;tws0=.;tws1=.;tws2=.;tws3=.;tws4=.;tws5=.;tws6=.; tws7=.;tws8=.;totpfarm=.;totprent=.;pbusntot=.;totALIMRC=.;totALIMPD=.;totDC=.;totexem=.;totmid=.;totniexem=.;ta1=.;ta3=.;ta4=.;ta5=.;ta6=.;ta7=.;ta8=.;tct=.;tresid=.;tftc=.;tmc=.;tmcp=.;ptotagi=.; tcgs=.;AGIXposnitot=.;AGIXposni2tot=.;tabsinc=.;tincni=.;tprpd=.;ALIMRCtot=.;ALIMRCa=.;PENpsz=.;DIVpsz=.;ESTX=.;ESI=.;CRETpsz=.;CTAXpsz=.;PRPDi=.;IRENT=.;CRET=.;CTAX=.;BUSPTAX=.;OTAX=.;OTAXX=.;RETINC=.;DCRETINC=.;RETADJ=.;NPGV=.; FED=.;totcret=.;totctax=.;totbusptax=.;tototax=.;tpenpsz=.;INFch=.;UNDER=.;HHinfch=.;BUSinfch=.;GOVinfch=.;undersh=.;SCPp=.;adult=.;mfs=.;negAGI=.;negAGIn=.;u20inc=.;ov20depinc=.;depwas=.;u20inc2=.;dp_u15=.;dp_o15=.;dpcp_u15=.;dp_cp_o15=.;dp_u15n=.;dp_o15n=.; dpcp_u15n=.;dpcp_o15=.;dpcp_o15n=.;nrwas=.;depuni=.;MCR=.;INCOME10=.;INCOME12=.;INCOME101=.;INCOME102=.;INCOME198=.;INCOME222=.;INCOME223=.;INCOME224=.;INCOME225=.;INCOME226=.;INCOME227=.;INCOME228=.;INCOME229=.;INCOME230=.;INCOME231=.;INCOME232=.; INCOME321=.;INCOME322=.;INCOME323=.;INCOME324=.;INCOME325=.;INCOME401=.;INCOME403=.;INCOME404=.;INCOME405=.;INCOME406=.;INCOME407=.; GVCONS=.;INCOME408=.;INCOME383=.;INCOME384=.;INCOME382=.;INCOME411=.;CORR0=.;CORR=.;INCOME299=.;INCOME700=.;INCOME710=.;RETADJpsz=.;INCOME715=.;CRETpszr=.;INCOME720=.;BUSPTAXpsz=.;INCOME725=.;nalldiv=.;CRETpsze=.;INCOME730=.;FEDpsz=.;INCOME740=.;IRENTpsz=.;INCOME750=.;NPGVpsz=.;INCOME760=.; userfee=.;OTAXpsz=.;OTAXXpsz2=.;INCOME765=.;UNDERpsz=.;INCOME770=.;SETX_HI=.;HIall=.;INCOME762=.;INCOME763=.;INCOME782=.;INCOME780=.;INCOME784=.;INCOME786=.;INCOME788=.;INCOME789=.; INCOME790=.;INCOME792=.;INCOME794=.;INCOME796=.;INCOME797=.;INCOME798=.;INCOME799=.;INCOME795=.;transfers=.;TRANpsz=.;GVCONSpsz=.;INCOME652=.; ESTXpsz=.;INCOME650=.;INCOME660=.; INCOME670=.;INCOME663=.; INCOME667=.; INCOME680=.; INCOME681=.; INCOME682=.; INCOME685=.; INCOME690=.; INCOME687=.; INCOME688=.; run; *data TOTAL&yr; *run; %IF (&yr ne 1961) and (&yr ne 1963) and (&yr ne 1965) %THEN %DO; %EST_INCOME(&yr, &filingtype, &incometype); * Set income components; %end; * for missing years just append last years results so have line of output; /* */ %IF (&filingtype=0) %THEN %DO; data TAB&yr; set TAB&yr; xwgt_PS=.; psnfinc=.; run; proc append base=TAB&yr data=NonFilers&yr force; run; data TAB&yr; set TAB&yr; if (id=.) then do; XWGT=xwgt_PS*1000; INCOME = psnfinc; X004=0; PARTSCP=0; RENTS=0; TRUST=0; X009=0; INCFRACTION=0; CRET=0; CTAX=0; TAX=0; end; run; %end; %IF (&filingtype=18) %THEN %DO; data TAB&yr; set TAB&yr; xwgt_PS=.; xwgt_20=.; xwgt_dep=.; psnfinc=.; run; proc append base=TAB&yr data=NonFilers&yr force; run; data TAB&yr; set TAB&yr; if (id=.) then do; XWGT = (xwgt_PS+xwgt_20)*1000; INCOME = psnfinc; X004=0; PARTSCP=0; RENTS=0; TRUST=0; X009=0; INCFRACTION=0; CRET=0; CTAX=0; end; run; %end; /* %IF (&filingtype=19) %THEN %DO; data TAB&yr; set TAB&yr; xwgt_PS=.; xwgt_20=.; xwgt_dep=.; psnfinc=.; xwgt_noNR=.; xwgt_mfs=.; run; proc append base=TAB&yr data=NonFilers&yr force; run; data TAB&yr; set TAB&yr; if (id=.) then do; XWGT = (xwgt_PS+xwgt_20+xwgt_noNR+xwgt_mfs)*1000; INCOME = psnfinc; WAGE = INCOME*0.60; PARTSCP=INCOME*0.20; RETINC=INCOME*0.20; X004=0; RENTS=0; TRUST=0; X009=0; INCFRACTION=0; CRET=0; CTAX=0; FTAX=0; end; run; %end; */ %IF (&filingtype=20) %THEN %DO; * 25 or older only; data TAB&yr; set TAB&yr; xwgt_PS=.; xwgt_20=.; xwgt_dep=.; psnfinc=.; xwgt_noNR=.; xwgt_mfs=.; run; proc append base=TAB&yr data=NonFilers&yr force; run; data TAB&yr; set TAB&yr; if (id=.) then do; XWGT = (xwgt_PS+xwgt_20+xwgt_noNR+xwgt_mfs)*1000*0.8; * remove 20% of non-filers to remove 20-24 year olds because about half retirees and most rest are young; INCOME = psnfinc; WAGE = INCOME*0.60; PARTSCP=INCOME*0.20; RETINC=INCOME*0.20; X004=0; RENTS=0; TRUST=0; X009=0; INCFRACTION=0; CRET=0; CTAX=0; FTAX=0; end; run; %end; %IF (&filingtype=30) %THEN %DO; * PS #non-filers; data TAB&yr; set TAB&yr; xwgt_noNR=.; xwgt_PS=.; xwgt_20=.; xwgt_dep=.; psnfinc=.; run; proc append base=TAB&yr data=NonFilers&yr force; run; data TAB&yr; set TAB&yr; if (id=.) then do; XWGT = (xwgt_PS)*1000; INCOME = psnfinc; PARTSCP=0; RENTS=0; TRUST=0; X009=0; INCFRACTION=0; CRET=0; CTAX=0; end; run; %end; %do incometype = &incometype_i %to &incometype_f; * incometype loop; %if (&incometype<233 or &incometype>320 ) and (&incometype<326 or &incometype>400) %then %do; *or &incometype=299 233 326 299; data TAB&yr; set TAB&yr; if (id ne .) then INCOME = INCOME&incometype; if (&filingtype=19)or(&filingtype=99) then INCOME = INCOME&incometype; * includes micro-based nonfiler specific income; run; * set filer incomes to incometype; %EST_RELAT(&yr, &ranktype); * Set income groups and cutoffs based on income/rank types: 1=P0-50, 2=P50-90, 3=P90-95, 4=P95-99, 5=P99-99.5, 6=P99.5-99.9, 7=P99.9-99.99, 8=Top 0.01% ; * Add results for each year to output datasets; %if (&yr ne 1961) and (&yr ne 1963) and (&yr ne 1965) %then %do; data TAB&yr; set TAB&yr; income = income/1000000; i1=.; if (Incgrp=1) then i1 = income; * Bottom 50%; i2=.; if (Incgrp=2) then i2 = income; * P50-90; %do gp = 3 %to 8; i&gp=.; if (Incgrp >=&gp) then i&gp = income; %end; * Top 10%, top 5%, etc., insert income11 for PS fiscal income with cap gains but ranked w/o cap gains; %do gp = 2 %to 8; c&gp=.; c&gp=.; if (Incgrp =&gp) then do; c&gp = cutoff; if c&gp < 500000 then c&gp = round( cutoff,100); if c&gp >= 500000 then c&gp = round( cutoff,10000); end; %end; * cutoff thresholds (none for bottom group); %do q = 1 %to 5; q&q=.; qc&q=.; if (Quintile =&q) then do; q&q = income; qc&q = qcutoff; if qc&q < 500000 then qc&q = round(qcutoff,100); if qc&q >= 500000 then qc&q = round(qcutoff,10000); end; %end; * quintiles and quintile cutoffs; if (Quintile=1) and (income>=0) then q1noneg = income; * bottom quintile with negative income removed; /*%do gp = 1 %to 8; count&gp=.; if (Incgrp=&gp) then count&gp = 1; %end;*/ year=&yr; filingtype=&filingtype; incometype=&incometype; ranktype=&ranktype; count=1; run; /* * counts by numbers of tax units; proc means data=TAB&yr; var income; weight xwgt; output out=totcounts sum(count1 count2 count3 count4 count5 count6 count7 count8)=ct1 ct2 ct3 ct4 ct5 ct6 ct7 ct8; run; */ proc means data=TAB&yr; var income; weight xwgt; output out=TEMPtots mean(year filingtype incometype ranktype)=year filingtype incometype ranktype sum(income i1 i2 i3 i4 i5 i6 i7 i8 q1noneg q2 q3 q4 q5 q1)=itot i1 i2 i3 i4 i5 i6 i7 i8 q1noneg q2 q3 q4 q5 q1wneg; run; proc means data=TAB&yr maxdec=4; var income; weight count; output out=TEMPcutoffs mean(c2 c3 c4 c5 c6 c7 c8 qc2 qc3 qc4 qc5)=ac2 ac3 ac4 ac5 ac6 ac7 ac8 aqc2 aqc3 aqc4 aqc5; run; data TEMPtots; merge TEMPtots TEMPcutoffs; run; data TEMPtots; merge TEMPtots ginidat; run; *from est_relat: gini(szad_inc, szad_wt, TAB&yr, &yr, &incometype); %if (&incometype=325)or(&incometype=232) %then %do; data TEMPtots; merge TEMPtots giniconc; run; %end; * merge concentration index for Kawkani(325) and Reynolds-Smolensky(232); proc append base=TOTAL_INC&incometype data=TEMPtots force; run; proc means data=TAB&yr; var year; weight xwgt; output out=TEMPincome mean(year filingtype incometype ranktype)=year filingtype incometype ranktype sum(i5 INCOME)=i5 itot; run; proc append base=pszTOTAL_INC data=TEMPincome force; run; %if (&incometype=232)or(&incometype=325)or(&incometype=408) %then %do; data TAB&yr; set TAB&yr; year=&yr; filingtype=&filingtype; incometype=&incometype; ranktype=&ranktype; %do gp = 1 %to 8; w&gp = 0; i&gp = 0; d&gp = 0; e&gp = 0; s&gp = 0; c&gp = 0; f&gp = 0; st&gp = 0; x&gp = 0; p&gp = 0; wt&gp = 0; o&gp = 0; r&gp = 0; es&gp = 0; wi&gp = 0; mc&gp = 0; ca&gp = 0; nc&gp = 0; ex&gp = 0; if ((&gp <= 2)and(Incgrp = &gp)) or ((&gp > 2)and(Incgrp >= &gp)) then do; w&gp = WAGE; i&gp = INTEREST + NTINT; d&gp = TOTDIV; e&gp = PARTSCP + BUSN + FARM + RENTS; s&gp = IMP_SSA2 + UNEM2; c&gp = CRET; f&gp = FTAX + FTC; * - REFC, ref credits now included in FTAX; st&gp = SITX; x&gp = CTAX; p&gp = PRPD + BUSPTAX; wt&gp = WTAX; o&gp = OTAX; r&gp = PENSTX_calc + RETINC + RETADJ; es&gp = ESTX; wi&gp = FICA + UI + ESI + FSA; mc&gp = MCR; ca&gp = CTRAN; nc&gp = NCTRAN; ex&gp = PropExpn; end; %end; %do q = 1 %to 5; wq&q = 0; iq&q = 0; dq&q = 0; eq&q = 0; sq&q = 0; cq&q = 0; fq&q = 0; stq&q = 0; xq&q = 0; pq&q = 0; wtq&q = 0; oq&q = 0; rq&q = 0; esq&q = 0; wiq&q = 0; mcq&q = 0; caq&q = 0; ncq&q = 0; if (Quintile = &q) and (income >= 0) then do; * bottom quintile excludes negative incomes; wq&q = WAGE; iq&q = INTEREST + NTINT; dq&q = TOTDIV; eq&q = PARTSCP + BUSN + FARM + RENTS; sq&q = IMP_SSA2 + UNEM2; cq&q = CRET; fq&q = FTAX + FTC; stq&q = SITX; xq&q = CTAX; pq&q = PRPD + BUSPTAX; wtq&q = WTAX; oq&q = OTAX; rq&q = PENSTX_calc + RETINC + RETADJ; esq&q = ESTX; wiq&q = FICA + UI + ESI + FSA; mcq&q = MCR; caq&q = CTRAN; ncq&q = NCTRAN; end; %end; exneg=0; if (income<0) then exneg=PropExpn; run; * TOTALS tab in spreadsheet: taxes are ranked by pre-tax/after-transfer income (325); proc means data=TAB&yr; var year; weight xwgt; output out=TEMPall mean(year)=year sum(w1 w2 w3 w4 w5 w6 w7 w8 i1 i2 i3 i4 i5 i6 i7 i8 d1 d2 d3 d4 d5 d6 d7 d8 e1 e2 e3 e4 e5 e6 e7 e8 s1 s2 s3 s4 s5 s6 s7 s8 c1 c2 c3 c4 c5 c6 c7 c8 f1 f2 f3 f4 f5 f6 f7 f8 st1 st2 st3 st4 st5 st6 st7 st8 x1 x2 x3 x4 x5 x6 x7 x8 p1 p2 p3 p4 p5 p6 p7 p8 wt1 wt2 wt3 wt4 wt5 wt6 wt7 wt8 o1 o2 o3 o4 o5 o6 o7 o8 r1 r2 r3 r4 r5 r6 r7 r8 es1 es2 es3 es4 es5 es6 es7 es8 wi1 wi2 wi3 wi4 wi5 wi6 wi7 wi8 mc1 mc2 mc3 mc4 mc5 mc6 mc7 mc8 ca1 ca2 ca3 ca4 ca5 ca6 ca7 ca8 nc1 nc2 nc3 nc4 nc5 nc6 nc7 nc8 wq1 wq2 wq3 wq4 wq5 iq1 iq2 iq3 iq4 iq5 dq1 dq2 dq3 dq4 dq5 eq1 eq2 eq3 eq4 eq5 sq1 sq2 sq3 sq4 sq5 cq1 cq2 cq3 cq4 cq5 fq1 fq2 fq3 fq4 fq5 stq1 stq2 stq3 stq4 stq5 xq1 xq2 xq3 xq4 xq5 pq1 pq2 pq3 pq4 pq5 wtq1 wtq2 wtq3 wtq4 wtq5 oq1 oq2 oq3 oq4 oq5 rq1 rq2 rq3 rq4 rq5 esq1 esq2 esq3 esq4 esq5 wiq1 wiq2 wiq3 wiq4 wiq5 mcq1 mcq2 mcq3 mcq4 mcq5 caq1 caq2 caq3 caq4 caq5 ncq1 ncq2 ncq3 ncq4 ncq5)=/autoname; run; data TEMPall; merge TEMPtots(keep=_TYPE_ _FREQ_ year filingtype incometype ranktype itot i1 i2 i3 i4 i5 i6 i7 i8 q1noneg q2 q3 q4 q5 q1wneg ac2 ac3 ac4 ac5 ac6 ac7 ac8 aqc2 aqc3 aqc4 aqc5 gini) TEMPall; run; proc append base= TOTAL_ALL&incometype data=TEMPall force; run; /* proc means data=TAB&yr; var year; weight xwgt; output out=PropExpnDist mean(year)=year sum( ex1 ex2 ex3 ex4 ex5 ex6 ex7 ex8 exneg)=/autoname; run; */ %end; *incometype=232 or incometype=325; %end; * skip 1961/63/65 due to no data those years; %if (&yr eq 1961) or (&yr eq 1963) or (&yr eq 1965) %then %do; proc append base= TOTAL_ALL&incometype data=TEMPall force; run; %end; proc append base=zTOTAL_INC data=TEMPtots force; run; /* * NEW CODE; *Set relative groups by number of number of individuals, rank by size-adjusted income: Square Root of Tax Unit Size (filers+dependents), treat non-filers as having no dependents; %if (&ranktype eq 2) %then %do; data TAB&yr; set TAB&yr; szad_wt = XWGT; szad_inc = INCOME; if (id=.) then do; szad_wt=XWGT*1.40; szad_inc = INCOME/(0.6+0.4*SQRT(2)); end; * assume non-filer marriage rate of 40% (assume no non-filer dependents); if (EXEM>1) then do; * if married filer then double weight and half incomes, so total income is the same but thresholds can change and adults can re-rank, with some married falling and single filers rising; szad_wt = XWGT*EXEM; szad_inc = INCOME/SQRT(EXEM); end; gszad_inc=szad_inc; if gszad_inc<1 then gszad_inc =1; entrep = PARTSCP + BUSN + FARM + RENTS; keep szad_inc szad_wt income xwgt gszad_inc PENSTX_calc entrep; * NEW; run; %end; *%gini(szad_inc, szad_wt, TAB&yr, &yr, var); * OLD:(INCOME, XWGT, TAB&yr, &yr, var); * needs imputations at the micro level, not income group level; %gini(gszad_inc, szad_wt, TAB&yr, &yr, var); *%gini(INCOME, XWGT, TAB&yr, &yr, var); */ %end; * limited rante of incometypes; %end; * incometype; %end; * year loop; /* %do incometype = &incometype_i %to &incometype_f; * incometype loop; proc append base= indiv.zTOTAL_INC&incometype_i data=TOTAL_INC&incometype force; run; %end; */ %mend MultiTopShares; %macro MultiTopShares2(frstyr, lastyr, filingtype, incometype_i, incometype_f, ranktype); %do yr = &frstyr %to &lastyr; * year loop; %IF (&yr ne 1961) and (&yr ne 1963) and (&yr ne 1965) %THEN %DO; %EST_INCOME(&yr, &filingtype, &incometype_f); * Set income components; %end; %IF (&filingtype=0) %THEN %DO; data TAB&yr; set TAB&yr; if (id=.) then delete; xwgt_PS=.; psnfinc=.; run; proc append base=TAB&yr data=NonFilers&yr force; run; data TAB&yr; set TAB&yr; if (id=.) then do; XWGT=xwgt_PS*1000; INCOME = psnfinc; X004=0; PARTSCP=0; RENTS=0; TRUST=0; X009=0; INCFRACTION=0; CRET=0; CTAX=0; TAX=0; end; run; %end; %do incometype = &incometype_i %to &incometype_f; * incometype loop; %if (&incometype=700 or &incometype=710 or &incometype=715 or &incometype=720 or &incometype=725 or &incometype=730 or &incometype=740 or &incometype=750 or &incometype=760 or &incometype=765 or &incometype=770 or &incometype=762 or &incometype=763 or &incometype=652 or &incometype=650 or &incometype=660 or &incometype=670 or &incometype=663 or &incometype=667 or &incometype=782 or &incometype=780 or &incometype=782 or &incometype=784 or &incometype=786 or &incometype=788 or &incometype=789 or &incometype=790 or &incometype=792 or &incometype=794 or &incometype=796 or &incometype=797 or &incometype=798 or &incometype=799 or &incometype=795 or &incometype=680 or &incometype=681 or &incometype=682 or &incometype=685 or &incometype=690 or &incometype=687 or &incometype=688 or &incometype=236 or &incometype=299 or &incometype=232 or &incometype=382 or &incometype=383 or &incometype=384 or &incometype=408 or &incometype=410 or &incometype=411 or &incometype=412 or &incometype=233 or &incometype=234 or &incometype=235 or &incometype=413 or &incometype=414) %then %do; data TAB&yr; set TAB&yr; if (&incometype=&incometype_i) then xwgt_orig =xwgt; xwgt = xwgt_orig; *ranktype=3 doubles weights so reset to original each time; if (id ne .) then INCOME = INCOME&incometype; if (&filingtype=19)or(&filingtype=99) then INCOME = INCOME&incometype; * includes micro-based nonfiler specific income; keep income700 income710 income715 income720 income725 income730 income740 income750 income760 income765 income770 income762 income763 income652 income650 income660 income670 income663 income667 income782 income780 income782 income784 income786 income788 income789 income790 income792 income794 income796 income797 income798 income799 income795 income680 income681 income682 income685 income690 income687 income688 income299 income232 income382 income383 income384 income408 income410 income411 income233 income234 income235 income236 income413 income xwgt id mars EXEM xwgt_orig; run; * set filer incomes to incometype; %EST_RELAT(&yr, &ranktype); * Set income groups and cutoffs based on incometype; data TABA&yr; set TAB&yr; income = income/1000000; i5=.; if (Incgrp >= 5) then i5 = income; * Top 1%; year=&yr; filingtype=&filingtype; incometype=&incometype; ranktype=&ranktype; keep year filingtype incometype ranktype INCOME i5 xwgt; * only keep total and top 1%; run; proc means data=TABA&yr; var year; weight xwgt; output out=TEMPincome mean(year filingtype incometype ranktype)=year filingtype incometype ranktype sum(i5 INCOME)=i5 itot; run; proc append base=pszTOTAL_INC data=TEMPincome force; run; %end; * limited range of incometypes; %end; * incometype; %end; * year loop; %mend MultiTopShares2; %macro FractionAlive; * Fraction of 1979 adults alive at end of 2014 (less than two-thirds: 126.5M adults at end of 1979, 83.1M not confirmed dead at end of 2014); data TAB; set indiv.soi1979; id = pssn; id2 = sssn; IF MARS = . THEN MARS = 0; filers = 1; if (mars=2) then filers = 2; agi = e73; keep id id2 filers xwgt agi; run; proc sort data=indiv.yoblist13 out=yoblist NODUPLICATES; by id; run; proc sort data= TAB out=TAB NODUPLICATES; by id; run; data TAB; merge TAB (in=a) yoblist (in=b); by id; if a; run; data TAB; set TAB; yob1 = yob_dm1; yod1 = yod_dm1; adult = 0; alive = 0; if (yob1 ne .) and (yob1 <= (1979-20)) then adult = 1; if (yod1 = .)or(yod1>2014) then alive=1; id = id2; run; proc sort data=indiv.yoblist13 out=yoblist NODUPLICATES; by id; run; proc sort data= TAB out=TAB NODUPLICATES; by id; run; data TAB; merge TAB (in=a) yoblist (in=b); by id; if a; run; data TAB; set TAB; if (id ne 0) and (id ne .) then do; yob2 = yob_dm1; yod2 = yod_dm1; if (yob2 ne .) and (yob2 <= (1979-20)) then adult = adult + 1; if (yod2 = .)or(yod2>2014) then alive = alive + 1; end; run; proc means data=TAB; var adult; weight xwgt; output out=alive sum(filers adult alive)=filers1979 adult1979 alive2014; run; * Fraction of 2014 AGI earned by primary filers who were younger than 20 in 1979: about 60% of AGI ($5.85T of $9.77T total); data TAB; set indiv.soi2014; id = S002; agi = E00100; keep id xwgt agi; run; proc sort data=indiv.yoblist16 out=yoblist NODUPLICATES; by id; run; proc sort data= TAB out=TAB NODUPLICATES; by id; run; data TAB; merge TAB (in=a) yoblist (in=b); by id; if a; run; data TAB; set TAB; agiyoung1979 = 0; if (yob_dm1 ne .) and (yob_dm1 > (1979-20)) then agiyoung1979 = agi; run; proc means data=TAB; var agi; weight xwgt; output out=alive2 sum(agi agiyoung1979)=agi agiyoung1979; run; %mend FractionAlive; * NonFiler data from Piketty-Saez: 20% of average income (no CGs) and number tax units not filing; * XWGT = number of nonfilers (thousands) xwgt_new = number of nonfilers after <20 and dept filer correction (thousands) xwgt_noNR = number of non-resident tax returns (thousands) xwgt_noNR = number of couples married filing separately (half the number of MFS returns, thousands); data NonFilers1960; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 7589 5285.27 0.0 0.71 1010.41 906.08 data NonFilers1962; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 8555.14 5718.69 0.0 4.45 1817.58 967.59 data NonFilers1964; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 8283.62 5984.35 0.0 4.8 1451.25 1068.8 data NonFilers1966; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 5670.67 7608.89 0.0 21.6 1470.88 1223.34 data NonFilers1967; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 5203.65 7508.99 0.0 8.65 1323.09 1293.52 data NonFilers1968; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 4081.79 7912.26 0.0 4.5 1391.18 1396.12 data NonFilers1969; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 2958.64 7996.74 0.0 0.46 1217.7 1498.28 data NonFilers1970; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 5637.01 7652.77 0.0 87.06 979.18 1582.34 data NonFilers1971; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 7272.78 7744.13 0.0 0.84 854.89 1641.23 data NonFilers1972; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 6072.55 7663.34 0.0 2 1156.4 1769.82 data NonFilers1973; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 4750.82 8958.34 0.0 0.02 1199.43 1925.41 data NonFilers1974; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 3845.35 9350.12 0.0 124.41 1020.11 2078.6 data NonFilers1975; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 6898.34 9432.2 0.0 0 848.97 2134.62 data NonFilers1976; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 6378.08 9929.3 0.0 135.83 889.85 2315.25 data NonFilers1977; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 6441.52 10124.93 0.0 105.52 600.05 2490.65 data NonFilers1978; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 5441.59 10911.82 0.0 123.78 723.98 2736.36 data NonFilers1979; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 4798.58 11684.56 0.0 424.02 821.39 3000.17 data NonFilers1980; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 5722.87 10963.28 0.0 279.46 814.38 3238.66 data NonFilers1981; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 6052.42 10263.38 0.0 598.83 719.96 3514.8 data NonFilers1982; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 7913.01 9145.12 0.0 592.2 551.47 3640.02 data NonFilers1983; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 8745.67 8863.34 0.0 643.71 457.91 3753 data NonFilers1984; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 7444.39 9087.63 0.0 702.58 427.1 4048.92 data NonFilers1985; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 7087.15 8981.77 0.0 682.23 421.1 4265.86 data NonFilers1986; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 7349.95 8891.09 0.0 683.52 518.94 4400.17 data NonFilers1987; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 5643.89 10805.76 2211.93 682.89 772.55 4691.87 data NonFilers1988; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 4950.59 11254.87 2203.03 730.31 849.59 5112.2 data NonFilers1989; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 4631.66 11530.38 2333.37 693.88 1029.81 5319.91 data NonFilers1990; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 5337.86 11164.8 2310.12 642.13 1081.88 5540.1 data NonFilers1991; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 5723.14 10034.65 2577.89 632.19 1126.97 5571.59 data NonFilers1992; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 8339.55 9658.63 2516.78 705.33 1212.9 5736.96 data NonFilers1993; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 8776.68 9468.87 2388.78 596.65 1193.9 5789.04 data NonFilers1994; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 8772.67 9663.26 2480.69 623.5 1211.49 6017.73 data NonFilers1995; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 7802.18 10123.18 2551.25 577.5 1289.05 6350.08 data NonFilers1996; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 7272.06 10578.69 2536.22 640.17 1256.93 6676.86 data NonFilers1997; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 6887.55 11206.35 2622.62 713.34 1296.76 7096.39 data NonFilers1998; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 6173.36 11092.42 2591.2 663.83 1250.99 7554.48 data NonFilers1999; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 3867.25 11522.98 2814.76 763.1 1193.17 8043.85 data NonFilers2000; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 4813.76 11701.42 2792.53 832.72 1232.94 8435.35 data NonFilers2001; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 6832.77 10733.79 2809.82 770.26 1205.77 8445.02 data NonFilers2002; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 9626.55 9627.84 2983.93 808.07 1156.44 8223.15 data NonFilers2003; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 11419.37 9142.78 2937.21 763.76 1141.59 8272.54 data NonFilers2004; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 11755.96 9065.63 3044.61 824.91 1213.5 8724.27 data NonFilers2005; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 11508.32 9148.81 3125.97 767.8 1220.58 9218.64 data NonFilers2006; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 9966.25 9357.87 3139.56 821.84 1244.02 9718.98 data NonFilers2007; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 6896.19 9619.13 3382.42 726.68 1349.22 10321.03 data NonFilers2008; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 10011.43 9059.94 3202.37 795.36 1349.39 10118.08 data NonFilers2009; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 13048.87 7081.69 3161.25 747.83 1258.71 9458.3 data NonFilers2010; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 13274.95 6874.21 3274.84 781.95 1255.01 9663.17 data NonFilers2011; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 12996.76 7265.1 3697.72 815.52 1282.71 9901.73 data NonFilers2012; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 15752.53 7205.71 3704.56 844.71 1315.75 10375.93 data NonFilers2013; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 15646.7 7405.15 3748.35 821.31 1393.16 10394.93 data NonFilers2014; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 16426.42 7400.76 3810.18 847.9 1457.54 10740.3 data NonFilers2015; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 16820.74 7609.66 3811.63 894.58 1473.94 11230.4 data NonFilers2016; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 19372.84 7428.93 3999.79 913.55 1521.6 11099.05 data NonFilers2017; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 17627.77 7275.69 4165.58 890.78 1592.46 11641.3 data NonFilers2018; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 19132.7 6900 4190.77 947.04 1645.37 12069.02 data NonFilers2019; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 17486.19 6663.52 4572.94 1013.53 1859.19 12408.08 data NonFilers2020; input xwgt_PS xwgt_20 xwgt_dep xwgt_noNR xwgt_mfs psnfinc; cards; 0 0 0 0 0 0 proc datasets library=house; delete totals TOTAL_ALL; quit; run; proc datasets library=work; delete totals pszTOTAL_INC TotalTestPSZ income_sources2 TotalTest ginidat giniconcdat giniconc age_cts TOTAL_ALL TOTAL_INC totals TAB_TOTAL TAB_ALL FRACTION_ALL Weight_temp Weight_Sum income_sources totals temp mars_shares age_gps age_gps INCType403_test ztotal_inc; quit; run; proc datasets library=indiv; delete zTOTAL_ALL zTOTAL_INC; quit; run; * Stack multiple years of EST_INCOME results; %macro EST_INCOME2(fyr, lyr, fil, inc); %do yr = &fyr %to &lyr; %EST_INCOME(&yr, &fil, &inc); %end; %mend EST_INCOME2; %macro transferfile; * save intermediate file to SAS folder and use that * if &incometype>232 then add the file; proc import datafile="/home/david.splinter/CDW/Auten-IncomeShares/CPS_IRS_inkind_merge_revised_10_19.csv" out=transfers_in dbms=csv replace; guessingrows=50000; getnames=y; delimiter=','; run; data transfers_in; set transfers_in; wc = wc_val_tu * anywc_val_tu; wc_re = wc_val_tu_rescaled * anywc_val_tu; mc = mvcaid * anymvcaid; mc_re = mvcaid_rescaled * anymvcaid; cashtranr = nontax_inc_rescaled + ssi_val_tu_rescaled + wc_val_tu_rescaled + paw_val_tu_rescaled; cashtran = nontax_inc_exclSSI + ssi_val_tu + wc_val_tu + paw_val_tu; noncashtrr = mvcaid_rescaled + fmvfs_rescaled + fmvsl_rescaled + fhoussub_rescaled; noncashtr = mvcaid + fmvfs + fmvsl + fhoussub; run; proc sort data=transfers_in; by year; run; proc means data=transfers_in; var wc_sum; by year; weight n; output out=test sum(wc_sum wc_val_tu anywc_val_tu wc_val_tu_rescaled wc wc_re mvcaid_sum mvcaid anymvcaid mvcaid_rescaled mc mc_re cashtranr cashtran noncashtrr noncashtr)= wc_sum wc_val_tu anywc_val_tu wc_val_tu_rescaled wc wc_re mvcaid_sum mvcaid anymvcaid mvcaid_rescaled mc mc_re cashtranr cashtran noncashtrr noncashtr; run; proc means data=transfers_in; var wc_sum; by year; output out=test2 sum(mvcare_sum mvcaid_sum emcont_sum fmvfs_sum fmvsl_sum fhoussub_sum nontax_cash_sum ssi_sum wc_sum ss_sum uc_sum paw_sum)= mvcare_sum mvcaid_sum emcont_sum fmvfs_sum fmvsl_sum fhoussub_sum nontax_cash_sum ssi_sum wc_sum ss_sum uc_sum paw_sum; run; data transfers; set transfers_in; *if (&yr<1989) then year=&yr; *if (&yr>2016) then year=&yr; *if (year ne &yr) then delete; *CASH TRANSFERS: ssi_val_tu_rescaled = supplemental security, wc_val_tu_rescaled = workers comp, paw_val_tu_rescaled = public assistance including AFDC/TANF, nontax_inc_rescaled = veterans inc., educational & other financial assistance; *cashtranr = nontax_inc_rescaled + ssi_val_tu_rescaled + wc_val_tu_rescaled + paw_val_tu_rescaled; cashtran = nontax_inc_exclSSI + ssi_val_tu + wc_val_tu + paw_val_tu; * NON-CASH TRANSFERS: mvcaid_rescaled = Medicaid, fmvfs_rescaled = food stamps/SNAP, fmvsl_rescaled = school lunch, fhoussub_rescaled = housing assistance; *noncashtrr = mvcaid_rescaled + fmvfs_rescaled + fmvsl_rescaled + fhoussub_rescaled; noncashtr = mvcaid + fmvfs + fmvsl + fhoussub; keep year n agegroup married dep_kids percentile cashtran noncashtr; run; * Demographic/Income groups (agegroup married dep_kids percentile): collapse by census regions (hg_reg); proc sort data=transfers; by year agegroup married dep_kids percentile; run; proc means data=transfers; var cashtran; by year agegroup married dep_kids percentile; weight n; output out=indiv.transfers2 mean(cashtran noncashtr)= cashtran noncashtr; run; /* *TEST; * Create within demographic group percentiles for TAB; %let yr = 1962; data TAB&yr; set indiv.puindiv1962; AGEX = f34; XWGT = f156; MARS = c4; IF MARS = . THEN MARS = 0; if mars=1 then mars=20; if mars=2 then mars=30; if mars=3 then mars=40; if mars=4 then mars=50; if mars=5 then mars=10; * mars=1 was married, 2 mfs, 3 hoh, 4 surv spouse, and 5 single; if mars=10 then mars=1; if mars=20 then mars=2; if mars=30 then mars=3; if mars=40 then mars=4; if mars=50 then mars=5; * adjust to 1=single, 2=married 3=mfs and 4=hoh; EXEM = f33+f36+f37; IF EXEM = . THEN EXEM = 1; if (mars=2)and(f33<2) then EXEM=2+f36+f37; if (mars=1)or(mars=5) then EXEM=1; married=0; if (mars=2) then married=1; agegroup=0; if (&yr<1979)and(AGEX ne 0)and(ranuni(8892)<0.5) then agegroup=1; * assume half of non-eldery filers are headed by 40-64 year old; if (&yr<1979)and(AGEX ne 0) then agegroup=2; if (&yr>=1979)and(age>=40) then agegroup=1; if (&yr>=1979)and(age>=65) then agegroup=2; dep_kids=0; if (agegroup ne 2)and((EXEM>1 and married=0)or(EXEM>2 and married=1)) then dep_kids=1; * elderly with dependents is an excluded group for the CPS transfers groups; year = &yr; AGIX=f16; keep mars year agegroup married dep_kids AGIX XWGT; run; %centiles(TAB&yr, AGIX, XWGT, percentile); * Merge two datasets by demographic group and percentile; proc sort data= indiv.transfers2; by year agegroup married dep_kids percentile; run; proc sort data= TAB&yr ; by year agegroup married dep_kids percentile; run; data TAB&yr; merge TAB&yr (in=a) indiv.transfers2 (in=b); by year agegroup married dep_kids percentile; if a; run; */ %mend transferfile; %macro IncomeBreakouts(yi, yf); *%MultiTopShares(&yi, &yf, 19, 222, 222, 2); * Ei0: Pre-Tax National Income: add undistributed fiduciary income; *%MultiTopShares(&yi, &yf, 19, 223, 223, 2); * Ei1: Pre-Tax National Income: add individual C corp retained earnings; *%MultiTopShares(&yi, &yf, 19, 224, 224, 2); * Ei2: Pre-Tax National Income: add C corp taxes; *%MultiTopShares(&yi, &yf, 19, 225, 225, 2); * Ei3: Pre-Tax National Income: add business property taxes; *%MultiTopShares(&yi, &yf, 19, 226, 226, 2); * Ei4: Pre-Tax National Income: inflation correction; *%MultiTopShares(&yi, &yf, 19, 227, 227, 2); * Ed1: Pre-Tax National Income: add underreported income; *%MultiTopShares(&yi, &yf, 19, 228, 228, 2); * Ed2: Pre-Tax National Income: add imputed rent; *%MultiTopShares(&yi, &yf, 19, 229, 229, 2); * Ed3: Pre-Tax National Income: add employer payroll taxes; *%MultiTopShares(&yi, &yf, 19, 230, 230, 2); * Ed4: Pre-Tax National Income: add employer sponsored insurance (output for C18); *%MultiTopShares(&yi, &yf, 19, 231, 231, 2); * Ei5: Pre-Tax National Income: add undistributed retirement income by DC retirement wealth (ret. earnings, dividends, interest) and retirement contrib./distribution adjustment; *%MultiTopShares(&yi, &yf, 19, 232, 232, 2); * Ed6: Pre-Tax National Income: add remaining indirect taxes including sales tax (by disposable income), non-profit/govt income, transfers, subsidies, etc. by current definition of income; *%MultiTopShares(&yi, &yf, 19, 321, 321, 2); * Bd1: Pre-tax After-transfer INCOME: add gross SSA (use amount on tax returns since 1985); *%MultiTopShares(&yi, &yf, 19, 322, 322, 2); * Bd2: Pre-tax After-transfer INCOME: add UI (in AGI since 1987); *%MultiTopShares(&yi, &yf, 19, 323, 323, 2); * Bd3: Pre-tax After-transfer INCOME: veterans benefits and other cash transfers, Welfare (AFDC/TANF) and refundable tax credits (EITC/ACTC): distribute 2008 stimulus to tax filers, rest to bottom 90%; *%MultiTopShares(&yi, &yf, 19, 324, 324, 2); * Bd4: Pre-tax After-transfer INCOME: add Medicare; *%MultiTopShares(&yi, &yf, 19, 325, 325, 2); * Bd5: Pre-tax After-transfer INCOME: add Medicaid and other in-kind transfers; *%MultiTopShares(&yi, &yf, 19, 401, 401, 2); * AT1: After-Tax Income: remove federal income and estate taxes (excluding SECA); *%MultiTopShares(&yi, &yf, 19, 402, 402, 2); * AT2: After-Tax Income: remove state/local indiv. income tax; *%MultiTopShares(&yi, &yf, 19, 403, 403, 2); * AT3: After-Tax Income: remove corporate income tax; *%MultiTopShares(&yi, &yf, 19, 404, 404, 2); * AT4: After-Tax Income: remove property tax; *%MultiTopShares(&yi, &yf, 19, 405, 405, 2); * AT5: After-Tax Income: remove employer and employee payroll taxes (non-filer off-model to hit NIPA totals); *%MultiTopShares(&yi, &yf, 19, 406, 406, 2); * AT6: After-Tax Income: remove sales and other (mostly excise) taxes based on disposable income; *%MultiTopShares(&yi, &yf, 19, 407, 407, 2); * NAT1: After-Tax National Income: add government surplus (deficit); *%MultiTopShares(&yi, &yf, 19, 408, 408, 2); * NAT2: After-Tax National Income: add government consumption (half lump sum, half by income); %mend IncomeBreakouts; %macro PSZdecomp(y); ***** PSZ decomposition **********; *Auten-Splinter to PSZ assumptions one by one; %MultiTopShares2(&y, &y, 99, 299, 299, 2); %MultiTopShares2(&y, &y, 19, 232, 232, 3); %MultiTopShares2(&y, &y, 19, 650, 770, 2); **%MultiTopShares2(&y, &y, 19, 700, 763, 2); **%MultiTopShares2(&y, &y, 19, 650, 670, 2); * PSZ to Auten-Splinter assumptions one by one; %MultiTopShares2(&y, &y, 19, 782, 782, 3); %MultiTopShares2(&y, &y, 99, 782, 782, 2); %MultiTopShares2(&y, &y, 99, 680, 799, 3); **%MultiTopShares2(&y, &y, 99, 780, 799, 3); **%MultiTopShares2(&y, &y, 99, 680, 690, 3); /* *Auten-Splinter to PSZ assumptions one by one *****; %MultiTopShares2(&y, &y, 19, 232, 232, 2); * A0: AS pre-tax (beginyear, endyear, filingtype, incometype_i, incometype_f, ranktype); %MultiTopShares2(&y, &y, 99, 299, 299, 2); * P0: No correction for under age, dependent, or non-resident tax filers (lower nonfilers to PS numbers); %MultiTopShares2(&y, &y, 19, 700, 700, 2); * P1: Various corrections to tax data: reverse corrections to number of non-filers, non-residents, and income definition (- STXRF - GAMBLS + NOLS + EXDIV - CGDS + combat pay FTCs); %MultiTopShares2(&y, &y, 19, 232, 232, 3); * P2: Go from groups by size-adjusted incomes and #indivs. to equal-split adults; %MultiTopShares2(&y, &y, 19, 710, 710, 2); * P3: Remove distributed private retirement income and add with PSZ non-SS retirement distribution; %MultiTopShares2(&y, &y, 19, 715, 715, 2); * P4: Retirement account income by wages/DC wealth; %MultiTopShares2(&y, &y, 19, 720, 720, 2); * P5: Retained earnings retire. by wages/DC wealth; %MultiTopShares2(&y, &y, 19, 725, 725, 2); * P5a: Business property tax retirement portion by PSZ distribution; %MultiTopShares2(&y, &y, 19, 730, 730, 2); * P6: Replace return on equity with PSZ distribution; %MultiTopShares2(&y, &y, 19, 740, 740, 2); * P7: Federal Res. payments by mortgage interest; %MultiTopShares2(&y, &y, 19, 750, 750, 2); * P8: Imputed rent by sales tax to Saez-Zucman net housing wealth distribution; %MultiTopShares2(&y, &y, 19, 760, 760, 2); * P9: Non-profits/govt. income from half by lump sump to all by income; %MultiTopShares2(&y, &y, 19, 765, 765, 2); * P10: other taxes by disposable income (use PSZ disposable income distributions in Table S.9 of PSZ online appendix: 9.0, 4.3, 2.1, 1.6); %MultiTopShares2(&y, &y, 19, 770, 770, 2); * P11: Underreported income from IRS audit data distribution to just inflating income; %MultiTopShares2(&y, &y, 19, 762, 762, 2); * P12: OASDI taxes excluded, SS benefits (and deficit) included (1979/1962); %MultiTopShares2(&y, &y, 19, 763, 763, 2); * P13: Inflation adjustment (1979/1962); %MultiTopShares2(&y, &y, 19, 408, 408, 2); * A0: AS after-tax; %MultiTopShares2(&y, &y, 19, 652, 652, 2); * A1: Govt transfer distribution; %MultiTopShares2(&y, &y, 19, 650, 650, 2); * A2: Estate tax by prior decade decedent income to only top one percent; %MultiTopShares2(&y, &y, 19, 660, 660, 2); * A3: Govt. deficits by federal income and payroll taxes to half by govt spending half by after-tax income; %MultiTopShares2(&y, &y, 19, 670, 670, 2); * A4: Govt. consumption allocated half lump sum to all by after-tax income; %MultiTopShares2(&y, &y, 19, 663, 663, 2); * A4: Corporate taxes by capital ownership; %MultiTopShares2(&y, &y, 19, 667, 667, 2); * A5: Other taxes by PSZ factor income less savings; * PSZ to Auten-Splinter assumptions one by one; %MultiTopShares2(&y, &y, 99, 782, 782, 3); * PSZ pre-tax replication: base for following changes (does not account for all differences); %MultiTopShares2(&y, &y, 19, 782, 782, 3); * P0: No correction for under age, dependent, or non-resident tax filers (lower nonfilers to PS numbers); %MultiTopShares2(&y, &y, 99, 780, 780, 3); * P1: Various corrections to tax data: reverse corrections to number of non-filers, non-residents, and income definition (- STXRF - GAMBLS + NOLS + EXDIV - CGDS + combat pay FTCs); %MultiTopShares2(&y, &y, 99, 782, 782, 2); * P2: Go from groups by equal-split adults to size-adjusted incomes and #indivs.; %MultiTopShares2(&y, &y, 99, 784, 784, 3); * P3: Remove distributed private retirement income and add with PSZ non-SS retirement distribution; %MultiTopShares2(&y, &y, 99, 786, 786, 3); * P4: Retirement account income by wages/DC wealth; %MultiTopShares2(&y, &y, 99, 788, 788, 3); * P5: Retained earnings retire. by wages/DC wealth; %MultiTopShares2(&y, &y, 99, 789, 789, 3); * PB5a: Business property tax retirement portion by PSZ distribution; %MultiTopShares2(&y, &y, 99, 790, 790, 3); * P6: Replace PSZ return on equity with tax return-based distribution; %MultiTopShares2(&y, &y, 99, 792, 792, 3); * P7: Federal Res. payments by mortgage interest; %MultiTopShares2(&y, &y, 99, 794, 794, 3); * P8: Imputed rent by sales tax to Saez-Zucman net housing wealth distribution; %MultiTopShares2(&y, &y, 99, 796, 796, 3); * P9: Non-profits/govt. income from half by lump sump to all by income; %MultiTopShares2(&y, &y, 99, 797, 797, 3); * P10: other taxes by disposable income (use PSZ disposable income distributions in Table S.9 of PSZ online appendix: 9.0, 4.3, 2.1, 1.6); %MultiTopShares2(&y, &y, 99, 798, 798, 3); * P11: Underreported income from IRS audit data distribution to just inflating income; %MultiTopShares2(&y, &y, 99, 799, 799, 3); * P12: OASDI taxes included, SS benefits (and deficit) excluded; %MultiTopShares2(&y, &y, 99, 795, 795, 3); * P13: Inflation adjustment; %MultiTopShares2(&y, &y, 99, 680, 680, 3); * AB0: PSZ after-tax income replication; %MultiTopShares2(&y, &y, 99, 681, 681, 3); * AB1: Govt transfer distribution; %MultiTopShares2(&y, &y, 99, 682, 682, 3); * AB2: Estate tax by prior decade decedent income to only top one percent; %MultiTopShares2(&y, &y, 99, 685, 685, 3); * AB3: Govt. deficits by federal income and payroll taxes to half by govt spending half by after-tax income; %MultiTopShares2(&y, &y, 99, 690, 690, 3); * AB4: Govt. consumption allocated half lump sum to all by after-tax income; %MultiTopShares2(&y, &y, 99, 687, 687, 3); * AB4: Corporate taxes by wages and corp. ownership; %MultiTopShares2(&y, &y, 99, 688, 688, 3); * AB5: Other taxes by AS after-tax disposable income; */ %mend PSZdecomp; %macro Sensitivity(y); %let lowest=0; %let highest=0; %let cg=25; %let pc=50; /* */ %MultiTopShares2(&y, &y, 19, 232, 234, 2); * 232=baseline pre-tax, ALT: 233=50% wage/50% to corp capital 234=100% to corp capital 235=100% all nonhousing capital, 236 deduct expenses; %MultiTopShares2(&y, &y, 19, 408, 408, 2); * baseline after-tax; %MultiTopShares2(&y, &y, 19, 408, 408, 7); * after-tax: alt equivalence scale: no sharing, e=1; %MultiTopShares2(&y, &y, 19, 408, 408, 5); * after-tax: alt equivalence scale: full sharing, e=0; %MultiTopShares2(&y, &y, 19, 413, 413, 2); * after-tax: missing deductions for net national income; %let cg=50; * ALT4 After-Tax: Retained earnings by 50% dividends/50% cap gains; %MultiTopShares2(&y, &y, 19, 408, 408, 2); %let cg=0; * ALT After-Tax: Retained earnings by 100% dividends/0% cap gains; %MultiTopShares2(&y, &y, 19, 408, 408, 2); %let cg=0; %let highest=1; %MultiTopShares2(&y, &y, 19, 410, 410, 2); * Highest After-Tax: Retained earnings by 0% cap gains, no govt deficit/surplus; %MultiTopShares2(&y, &y, 19, 410, 410, 7); * ALT highest: add no economies of scale; %let lowest=1; %let cg=50; %let pc=100; %let highest=0; %MultiTopShares2(&y, &y, 19, 411, 411, 2); * Lowest: ret earn 50%, Govt consumption 100% per capita, household sharing unit; %MultiTopShares2(&y, &y, 19, 411, 411, 5); * ALT: also apply full economies of scale; %let cg=25; %let pc=50; %let lowest=0; %let highest=0; * reset; %let pc=25; *%MultiTopShares2(&y, &y, 19, 411, 411, 2); * ALT5 After-Tax: Government consumption 25% per capita 75% income (uncomment pc=25); %let pc=75; *%MultiTopShares2(&y, &y, 19, 411, 411, 2); * ALT6 After-Tax: Government consumption 75% per capita 25% income (uncomment pc=75); %let pc=100; *%MultiTopShares2(&y, &y, 19, 411, 411, 2); * ALT7 After-Tax: Government consumption 75% per capita 25% income (uncomment pc=75); %MultiTopShares2(&y, &y, 19, 414, 414, 2); * ALT: no underreporting (pre-tax); %MultiTopShares2(&y, &y, 19, 412, 412, 2); * ALT: no underreporting (after-tax); %mend Sensitivity; * MAIN RUNS; * Run each macro one by one because output can be overwritten if multiple macros run at same time; * Top income shares: step-by-step adjustments for Figure 2 and Tables 1 and 2) * %MultiTopShares(beginyear, endyear, filingtype, incometype start, incometype final, rank type); *%MultiTopShares(1960, 2019, 0, 12, 12, 0); * Fiscal income excluding capital gains, Piketty and Saez (2003) replication (ZTOTAL_INC12 goes to online data tab OUTPUT); *%MultiTopShares(1960, 2019, 19, 12, 12, 0); * Cd1: correction: replace 20% assumption with micro-based non-filer incomes & correct total # nonfilers: remove <20 year old filers, dependent filers, and non-resident filers and correct for MFS (increase #non-filers by #half of tax units married filing separately) (TOTAL_INC12 goes to online data tab OUTPUT); *%MultiTopShares(1960, 1986, 19, 101, 101, 0); * 1960-1986 only, Ci1: correction: remove post-TRA non-deductible losses before TRA86 (last year 1986) (TOTAL_INC101 goes to online data tab OUTPUT); *%MultiTopShares(1960, 2019, 19, 102, 102, 0); * Ci2: correction: add tax-exempt interest (TOTAL_INC102 goes to online data tab OUTPUT); *%MultiTopShares(1960, 2019, 19, 198, 198, 0); * Cd2: correction: Corrected income: add excluded dividends and remove gambling losses, NOLS, cap gains distributions, other gains, DC contributions (IRA/KEOGH), and state tax refunds (add combat since 1995 pay off model) (TOTAL_INC198 goes to online data tab OUTPUT); *%MultiTopShares(1960, 1960, 19, 198, 198, 5); * Cd3a: correction: set groups by #Individuals (still ranked by tax-unit income); *%MultiTopShares(1960, 2019, 19, 198, 198, 2); * Cd3: Corrected fiscal income: set groups by #Individuals and for ranking only size-adjust incomes using equivalence=0.5 (divide income by square root of tax unit size, filers+dependents, where non-filers treated as having no dependents)(TOTAL_INC198 goes to online data tab OUTPUT; *%MultiTopShares(1989, 1989, 19, 222, 408, 2); * 222 408: All incomes; *%MultiTopShares(1960, 1960, 19, 232, 232, 2); * 222 408: All incomes; * Break out step-by-step; *%MultiTopShares(1960, 2019, 19, 222, 232, 2); * 222, 232: Pre-tax national income step-by-step (ZTOTAL_INC output goes to online data tab OUTPUT); *%MultiTopShares(2000, 2001, 19, 321, 325, 2); * 321, 325: Pre-tax/after-transfer income step-by-step; *%MultiTopShares(2000, 2001, 19, 401, 408, 2); * 401, 408: After-tax national income step-by-step; * Main estimates: Pre-tax income, Pre-tax/after-transfer income, After-tax income (used for Figures 1, 2, 4, and 5 and Tables 3 and 5); *%MultiTopShares(2000, 2001, 19, 232, 232, 2); * Pre-tax national income (TOTAL_ALL output goes to online data tab OUTPUT2 for main definitions); *%MultiTopShares(2001, 2001, 19, 325, 325, 2); * Pre-tax/after-transfer income; *%MultiTopShares(1990, 1990, 19, 408, 408, 2); * After-tax national income; * PSZ difference decomposition, Table 4 (online data tab C27-PSZrepl); *%PSZdecomp(1962); *%PSZdecomp(1979); *%PSZdecomp(2014); * uncomment specific lines in the macro; ***** Sensitivity Analysis (Table 5, top 1% shares) *****; *%Sensitivity(1962); *%Sensitivity(1979); *%Sensitivity(2019); ********************************** * Alternative ranking for for Table 1: set groups by #Individuals and rank by tax unit income (rather than size-adjusted income); *%MultiTopShares(1960, 1960, 19, 198, 198, 5); * Distribution of Economic Growth; *%FractionAlive; * More than 1/3 of 1979 adults filing returns died by 2014 and the new cohort of adults <20 years old in 1979 earned more than half of AGI in 2014; proc datasets library=work; delete INTdist; quit; run; * Additional data for online spreadsheet: Income totals and filer total counts using EST_INCOME2(inityear, finalyear, filingtype, incometype); *%EST_INCOME2(1962, 1962, 0, 12); * income_sources goes to TOTALS tab of online data, this includes total income amounts and number of filers by age/depen/non resid (PS sources), then paste data from tab C0 and into nonfiler datasets above; *%EST_INCOME2(1987, 1962, 19, 221); * income_sources goes to TOTALS tab of online data and mars_shares to tab C15 marriage rates & number of dependent (inc=198 or 221?); *%EST_INCOME2(2019, 2019, 0, 198); * age_gps and age_cts for online data tab C17 age fractions (aws 23), may need to remove nonfilers; *%TopShares(1996, 2015, 0, 10, 0); *(beginyear, endyear, filingtype, incometype, rank type) AGI cutoffs for estate tax groups; * OTHER; *%MultiTopShares(2001, 2001, 19, 12, 13, 2); * Tables for Misreporting, uncomment in EST_INCOME; *%MultiTopShares(2019, 2019, 0, 11, 11, 0); * Fiscal income including capital gains but ranked excluding, Piketty and Saez (2003); *%EST_INCOME2(1999, 1999, 19, 222); * SS distribution, SSRetbyAGI, Tab C17; *%EST_INCOME2(1979, 2019, 0, 198); * share of tax units with primary filers with peak earning ages; * CHECKS; *%EST_INCOME2(1989, 1989, 19, 408); * totals check; proc datasets library=work; delete taxunit_counts temp NonFilers1960 NonFilers1961 NonFilers1962 NonFilers1963 NonFilers1964 NonFilers1965 NonFilers1966 NonFilers1967 NonFilers1968 NonFilers1969 NonFilers1970 NonFilers1971 NonFilers1972 NonFilers1973 NonFilers1974 NonFilers1975 NonFilers1976 NonFilers1977 NonFilers1978 NonFilers1979 NonFilers1980 NonFilers1981 NonFilers1982 NonFilers1983 NonFilers1984 NonFilers1985 NonFilers1986 NonFilers1987 NonFilers1988 NonFilers1989 NonFilers1990 NonFilers1991 NonFilers1992 NonFilers1993 NonFilers1994 NonFilers1995 NonFilers1996 NonFilers1997 NonFilers1998 NonFilers1999 NonFilers2000 NonFilers2001 NonFilers2002 NonFilers2003 NonFilers2004 NonFilers2005 NonFilers2006 NonFilers2007 NonFilers2008 NonFilers2009 NonFilers2010 NonFilers2011 NonFilers2012 NonFilers2013 NonFilers2014 NonFilers2015 NonFilers2016 NonFilers2017 NonFilers2018 NonFilers2019 NonFilers2020 TOTAL1960 TOTAL1961 TOTAL1962 TOTAL1963 TOTAL1964 TOTAL1965 TOTAL1966 TOTAL1967 TOTAL1968 TOTAL1969 TOTAL1970 TOTAL1971 TOTAL1972 TOTAL1973 TOTAL1974 TOTAL1975 TOTAL1976 TOTAL1977 TOTAL1978 TOTAL1979 TOTAL1980 TOTAL1981 TOTAL1982 TOTAL1983 TOTAL1984 TOTAL1985 TOTAL1986 TOTAL1987 TOTAL1988 TOTAL1989 TOTAL1990 TOTAL1991 TOTAL1992 TOTAL1993 TOTAL1994 TOTAL1995 TOTAL1996 TOTAL1997 TOTAL1998 TOTAL1999 TOTAL2000 TOTAL2001 TOTAL2002 TOTAL2003 TOTAL2004 TOTAL2005 TOTAL2006 TOTAL2007 TOTAL2008 TOTAL2009 TOTAL2010 TOTAL2011 TOTAL2012 TOTAL2013 TOTAL2014 TOTAL2015 TOTAL2016 TOTAL2017 TOTAL2018 TOTAL2019 TAB1960 TAB1961 TAB1962 TAB1963 TAB1964 TAB1965 TAB1966 TAB1967 TAB1968 TAB1969 TAB1970 TAB1971 TAB1972 TAB1973 TAB1974 TAB1975 TAB1976 TAB1977 TAB1978 TAB1979 TAB1980 TAB1981 TAB1982 TAB1983 TAB1984 TAB1985 TAB1986 TAB1987 TAB1988 TAB1989 dups yoblist dep87 TAB1990 TAB1991 TAB1992 TAB1993 TAB1994 TAB1995 TAB1996 TAB1997 TAB1998 TAB1999 TAB2000 TAB2001 TAB2002 TAB2003 TAB2004 TAB2005 TAB2006 TAB2007 TAB2008 TAB2009 TAB2010 TAB2011 TAB2012 TAB2013 TAB2014 TAB2015 TAB2016 TAB2017 TAB2018 TAB2019 dcdist tempb decile totals2 tabb tempinc tempincome tempall totals giniconc giniconcdatreynsmol giniconcdatreynsmolbef DC DCRECID SS SSRECID; quit; run;