# -----------------------------------------------------------------------------             
# R programming statements for h233 data                                              
#                                                                                           
# This file contains programming statements needed to import the ASCII data                 
# file (.dat) into R. The R programming language has the capability to produce              
# appropriate standard errors for estimates from a survey with a complex sample             
# design such as the Medical Expenditure Panel Survey (MEPS).                               
#                                                       
# The input file is the ASCII data file (h233.dat) supplied in this PUF                
# release, which can be extracted from the .zip file supplied at the MEPS                   
# website: https://meps.ahrq.gov/mepsweb/data_stats/download_data_files.jsp                 
#                                                       
# This code imports the MEPS data into R as a data frame called 'h233'.            
#                                                       
# Note that additional packages are needed to successfully run this code. To                
# install these packages, run the 'install.packages' function (shown below).                
# Once installed, the packages can be called using the 'library' function.                  
# Packages only need to be installed once, but they must be called using the                
# 'library' function every time a new R session is started.                                 
#                                                       
# Two options are available to run this code:                                               
#                                                       
#  1. Copy and paste the code into an interactive R session.                                
#                                                       
#     The user must first download the ASCII (.dat) file from the MEPS website              
#     and save it to a local directory, which must be defined in the                        
#     'meps_path' variable below. In this example, the local directory is                   
#     called 'C:/MEPS'. Note that the path structure will differ on Mac and PC.             
#                                                       
#                                                       
#  2. Call this code directly from an interactive R session.                                
#                                                       
#  (a) If the ASCII (.dat) file has already been downloaded from the MEPS                   
#         website and saved to a local directory, the following code can be run             
#         (after re-defining the 'meps_path' variable to point to the location              
#         of the h233.dat file.)                                   
#                                                       
#     meps_path <- "C:/MEPS/h233.dat"                             
#     source("https://meps.ahrq.gov/mepsweb/data_stats/download_data/pufs/h233/h233ru.txt")
#     head(h233) # view data                                       
#                                                       
#  (b) Alternatively, the ASCII (.dat) file can be downloaded directly from                 
#         the MEPS website. The following code can be used to download and                  
#         import the h233 data into R without having to manually download,             
#         unzip, and store the file on your local computer.                         
#                                                       
#           url <- "https://meps.ahrq.gov/mepsweb/data_files/pufs/h233dat.zip" 
#           download.file(url, temp <- tempfile())                              
#                                                       
#     meps_path <- unzip(temp, exdir = tempdir())                               
#     source("https://meps.ahrq.gov/mepsweb/data_stats/download_data/pufs/h233/h233ru.txt")
#                                                       
#           unlink(temp)  # Unlink to delete temporary file                         
#                                                       
#           head(h233) # view data                                 
#                                                       
# -----------------------------------------------------------------------------             
                                                        
# DEFINE 'meps_path' -----------------------------------------------------------            
# 'meps_path' should point to the file path of the ASCII file (h233.dat)               
# Here, the 'exists' function checks whether meps_path is already defined. This             
# feature is useful if calling this file from an external source.                           
if(!exists("meps_path"))  meps_path = "C:/MEPS/h233.dat"      

# INSTALL PACKAGES ------------------------------------------------------------
# Uncomment and run this portion if packages are not yet installed         
#                                          
# install.packages("readr")                            
                                           
# **************************************
# LOAD PACKAGES ---------------------------------------------------------------

# Run this for every new R session      

library(readr)                          

# DATA FILE INFO ------------------------------------------

# Define start and end positions to read fixed-width file  


pos_start <- c(
1, 8, 11, 21, 23, 25, 27, 29, 31, 33, 
35, 37, 39, 41, 43, 45, 48, 50, 52, 54, 
56, 58, 60, 62, 63, 65, 67, 69, 71, 73, 
75, 77, 78, 80, 82, 84, 86, 89, 92, 95, 
98, 99, 100, 101, 102, 104, 106, 108, 109, 111, 
113, 117, 119, 123, 125, 129, 131, 135, 137, 141, 
143, 147, 149, 153, 154, 155, 156, 157, 158, 159, 
160, 161, 162, 163, 164, 166, 168, 170, 172, 174, 
176, 178, 180, 182, 184, 186, 188, 192, 193, 194, 
196, 197, 198, 199, 200, 201, 202, 204, 206, 208, 
210, 213, 216, 219, 222, 225, 228, 231, 234, 237, 
240, 242, 244, 246, 248, 250, 252, 254, 256, 258, 
260, 262, 265, 267, 269, 272, 274, 277, 280, 283, 
286, 289, 292, 294, 296, 298, 300, 302, 304, 307, 
309, 311, 314, 316, 319, 321, 324, 326, 329, 331, 
334, 337, 339, 342, 344, 347, 349, 352, 354, 357, 
359, 361, 363, 365, 367, 369, 371, 373, 375, 377, 
379, 381, 383, 385, 388, 391, 394, 397, 400, 403, 
405, 407, 409, 411, 413, 415, 417, 419, 421, 423, 
425, 427, 429, 431, 433, 435, 437, 439, 441, 443, 
445, 448, 450, 452, 454, 456, 458, 460, 462, 464, 
466, 469, 471, 474, 476, 479, 481, 484, 486, 489, 
491, 494, 496, 499, 501, 504, 506, 508, 510, 512, 
514, 516, 518, 520, 522, 524, 526, 528, 530, 532, 
534, 536, 538, 540, 542, 544, 546, 549, 551, 553, 
555, 557, 559, 561, 563, 565, 567, 569, 571, 573, 
575, 577, 579, 581, 583, 585, 587, 589, 591, 593, 
595, 597, 599, 601, 603, 605, 607, 609, 611, 613, 
615, 617, 619, 621, 623, 625, 627, 629, 631, 633, 
635, 636, 639, 642, 645, 648, 651, 654, 657, 660, 
663, 666, 669, 672, 675, 678, 681, 684, 687, 690, 
693, 696, 699, 702, 705, 708, 711, 714, 717, 719, 
722, 724, 727, 730, 733, 735, 738, 741, 743, 746, 
749, 752, 755, 758, 760, 763, 765, 768, 774, 780, 
782, 785, 789, 791, 792, 794, 797, 800, 803, 806, 
809, 812, 815, 818, 821, 824, 827, 830, 833, 836, 
839, 842, 845, 848, 851, 854, 857, 860, 863, 866, 
869, 872, 874, 876, 878, 880, 882, 885, 888, 889, 
892, 895, 898, 901, 904, 907, 910, 913, 916, 919, 
922, 925, 928, 931, 934, 937, 940, 943, 946, 949, 
952, 955, 958, 961, 964, 967, 970, 973, 976, 979, 
982, 985, 988, 991, 994, 997, 1000, 1003, 1006, 1009, 
1012, 1015, 1018, 1021, 1024, 1027, 1030, 1033, 1036, 1039, 
1042, 1045, 1048, 1051, 1054, 1057, 1060, 1063, 1066, 1069, 
1072, 1075, 1078, 1082, 1085, 1088, 1091, 1094, 1096, 1098, 
1100, 1102, 1104, 1106, 1108, 1110, 1112, 1114, 1116, 1118, 
1120, 1122, 1124, 1126, 1128, 1130, 1132, 1134, 1136, 1138, 
1140, 1142, 1144, 1146, 1148, 1150, 1152, 1154, 1156, 1158, 
1160, 1162, 1164, 1166, 1168, 1170, 1172, 1174, 1176, 1178, 
1181, 1184, 1187, 1189, 1192, 1195, 1198, 1201, 1207, 1213, 
1219, 1220, 1221, 1222, 1225, 1228, 1231, 1234, 1237, 1240, 
1246, 1252, 1258, 1261, 1264, 1267, 1270, 1273, 1276, 1279, 
1282, 1285, 1288, 1291, 1294, 1297, 1300, 1303, 1306, 1309, 
1312, 1315, 1318, 1321, 1324, 1327, 1330, 1333, 1336, 1339, 
1342, 1345, 1348, 1351, 1353, 1355, 1358, 1361, 1363, 1365, 
1368, 1372, 1375, 1379, 1382, 1386, 1389, 1392, 1395, 1398, 
1401, 1404, 1407, 1410, 1413, 1416, 1419, 1422, 1425, 1428, 
1431, 1434, 1437, 1440, 1443, 1446, 1449, 1452, 1455, 1458, 
1461, 1464, 1467, 1470, 1473, 1476, 1479, 1481, 1483, 1485, 
1487, 1489, 1491, 1494, 1497, 1500, 1502, 1504, 1506, 1508, 
1510, 1512, 1514, 1516, 1518, 1521, 1524, 1527, 1529, 1531, 
1533, 1535, 1537, 1539, 1541, 1543, 1545, 1551, 1557, 1563, 
1565, 1567, 1569, 1571, 1573, 1575, 1577, 1579, 1581, 1583, 
1585, 1587, 1589, 1591, 1593, 1595, 1597, 1599, 1601, 1603, 
1605, 1607, 1609, 1611, 1613, 1615, 1618, 1620, 1622, 1624, 
1629, 1635, 1641, 1642, 1649, 1655, 1656, 1663, 1664, 1669, 
1670, 1675, 1676, 1682, 1683, 1688, 1689, 1695, 1696, 1702, 
1703, 1708, 1709, 1715, 1716, 1721, 1722, 1727, 1728, 1733, 
1734, 1739, 1740, 1746, 1747, 1752, 1753, 1758, 1759, 1765, 
1766, 1775, 1777, 1779, 1781, 1783, 1785, 1787, 1789, 1791, 
1793, 1795, 1797, 1799, 1801, 1803, 1805, 1807, 1809, 1811, 
1813, 1815, 1817, 1819, 1821, 1823, 1825, 1827, 1829, 1831, 
1833, 1835, 1837, 1839, 1841, 1843, 1845, 1847, 1849, 1851, 
1853, 1855, 1857, 1859, 1861, 1863, 1865, 1867, 1869, 1871, 
1873, 1875, 1877, 1879, 1881, 1883, 1885, 1887, 1889, 1891, 
1893, 1895, 1897, 1899, 1901, 1903, 1905, 1907, 1909, 1911, 
1913, 1915, 1917, 1919, 1921, 1923, 1925, 1927, 1929, 1931, 
1933, 1935, 1937, 1939, 1941, 1943, 1945, 1947, 1949, 1951, 
1953, 1955, 1957, 1959, 1961, 1963, 1965, 1967, 1969, 1971, 
1973, 1975, 1977, 1979, 1981, 1983, 1985, 1987, 1989, 1991, 
1993, 1995, 1997, 1999, 2001, 2003, 2005, 2007, 2009, 2011, 
2013, 2015, 2017, 2019, 2021, 2023, 2025, 2027, 2029, 2031, 
2033, 2035, 2037, 2039, 2041, 2043, 2045, 2047, 2049, 2051, 
2053, 2055, 2057, 2059, 2061, 2063, 2065, 2067, 2069, 2071, 
2073, 2075, 2077, 2079, 2081, 2083, 2085, 2087, 2089, 2091, 
2093, 2095, 2097, 2099, 2101, 2103, 2105, 2107, 2109, 2111, 
2113, 2115, 2117, 2119, 2121, 2123, 2125, 2127, 2129, 2131, 
2133, 2135, 2137, 2139, 2141, 2143, 2145, 2147, 2149, 2151, 
2153, 2155, 2157, 2159, 2161, 2163, 2165, 2167, 2169, 2171, 
2173, 2175, 2177, 2179, 2181, 2183, 2185, 2187, 2189, 2191, 
2193, 2195, 2197, 2199, 2201, 2203, 2205, 2207, 2209, 2211, 
2213, 2215, 2217, 2219, 2221, 2223, 2225, 2227, 2229, 2231, 
2233, 2235, 2237, 2239, 2241, 2243, 2245, 2247, 2249, 2251, 
2253, 2255, 2257, 2259, 2261, 2263, 2265, 2267, 2269, 2271, 
2273, 2275, 2277, 2279, 2281, 2283, 2285, 2287, 2289, 2291, 
2293, 2295, 2297, 2299, 2301, 2303, 2305, 2307, 2309, 2311, 
2313, 2315, 2317, 2319, 2321, 2323, 2325, 2327, 2329, 2331, 
2333, 2335, 2337, 2339, 2341, 2343, 2345, 2347, 2349, 2351, 
2353, 2355, 2357, 2359, 2361, 2363, 2365, 2367, 2369, 2371, 
2373, 2375, 2377, 2379, 2381, 2383, 2385, 2387, 2389, 2391, 
2393, 2395, 2397, 2399, 2400, 2401, 2402, 2403, 2404, 2405, 
2406, 2407, 2408, 2409, 2410, 2412, 2414, 2416, 2418, 2420, 
2422, 2425, 2428, 2431, 2434, 2437, 2440, 2443, 2446, 2449, 
2452, 2455, 2458, 2461, 2464, 2467, 2470, 2473, 2476, 2479, 
2482, 2485, 2487, 2490, 2497, 2499, 2501, 2503, 2505, 2507, 
2509, 2511, 2513, 2515, 2517, 2519, 2521, 2523, 2525, 2527, 
2529, 2531, 2533, 2535, 2537, 2539, 2541, 2543, 2545, 2547, 
2549, 2551, 2553, 2555, 2557, 2559, 2561, 2563, 2565, 2567, 
2569, 2571, 2573, 2575, 2577, 2579, 2581, 2583, 2585, 2587, 
2589, 2591, 2593, 2595, 2597, 2599, 2601, 2603, 2605, 2607, 
2609, 2611, 2613, 2615, 2617, 2619, 2621, 2623, 2625, 2627, 
2629, 2631, 2633, 2635, 2637, 2639, 2641, 2643, 2645, 2647, 
2649, 2651, 2653, 2655, 2657, 2659, 2661, 2663, 2665, 2667, 
2669, 2671, 2673, 2675, 2677, 2679, 2681, 2683, 2685, 2687, 
2689, 2691, 2693, 2695, 2697, 2699, 2701, 2703, 2705, 2707, 
2709, 2711, 2713, 2715, 2717, 2719, 2721, 2723, 2725, 2727, 
2729, 2731, 2733, 2735, 2737, 2739, 2741, 2743, 2745, 2747, 
2749, 2751, 2753, 2755, 2757, 2759, 2761, 2763, 2765, 2767, 
2769, 2771, 2773, 2775, 2777, 2779, 2782, 2785, 2788, 2795, 
2802, 2808, 2815, 2822, 2828, 2834, 2839, 2844, 2850, 2855, 
2861, 2867, 2873, 2876, 2883, 2889, 2895, 2901, 2907, 2913, 
2919, 2924, 2929, 2935, 2940, 2946, 2952, 2958, 2961, 2968, 
2974, 2980, 2986, 2992, 2998, 3004, 3009, 3014, 3019, 3024, 
3029, 3035, 3040, 3043, 3050, 3056, 3062, 3068, 3073, 3079, 
3085, 3090, 3095, 3099, 3104, 3109, 3115, 3120, 3127, 3133, 
3139, 3145, 3150, 3156, 3162, 3167, 3172, 3176, 3181, 3186, 
3192, 3197, 3202, 3208, 3213, 3218, 3223, 3228, 3233, 3237, 
3240, 3242, 3247, 3252, 3257, 3262, 3264, 3270, 3276, 3281, 
3287, 3292, 3298, 3303, 3308, 3312, 3316, 3321, 3326, 3332, 
3337, 3342, 3348, 3353, 3358, 3363, 3368, 3373, 3377, 3380, 
3382, 3387, 3391, 3396, 3400, 3402, 3408, 3413, 3417, 3422, 
3427, 3432, 3436, 3440, 3444, 3449, 3454, 3459, 3464, 3469, 
3475, 3480, 3484, 3489, 3494, 3499, 3503, 3507, 3511, 3516, 
3521, 3526, 3531, 3536, 3541, 3546, 3550, 3554, 3559, 3563, 
3567, 3570, 3573, 3576, 3580, 3584, 3588, 3592, 3594, 3600, 
3607, 3612, 3618, 3623, 3629, 3635, 3640, 3644, 3649, 3654, 
3659, 3665, 3670, 3676, 3683, 3688, 3694, 3699, 3705, 3711, 
3716, 3720, 3725, 3730, 3735, 3741, 3746, 3752, 3758, 3762, 
3768, 3773, 3778, 3782, 3786, 3787, 3791, 3795, 3799, 3804, 
3808, 3811, 3813, 3818, 3823, 3828, 3832, 3837, 3842, 3846, 
3850, 3854, 3858, 3859, 3863, 3868, 3872, 3875, 3878, 3885, 
3891, 3896, 3902, 3908, 3914, 3919, 3923, 3924, 3930, 3934, 
3938, 3944, 3950, 3953, 3958, 3963, 3968, 3973, 3977, 3982, 
3985, 3990, 3991, 3992, 3993, 3997, 4002, 4006, 4009, 4014, 
4019, 4023, 4027, 4032, 4036, 4040, 4043, 4046, 4049, 4050, 
4054, 4058, 4062, 4068, 4074, 4079, 4084, 4090, 4095, 4099, 
4103, 4108, 4112, 4117, 4122, 4127, 4132, 4135, 4142, 4147, 
4154, 4161, 4167, 4173, 4178, 4183, 4188, 4191, 4195, 4201, 
4206, 4219, 4232, 4245, 4258, 4270, 4283, 4287)


pos_end <- c(
7, 10, 20, 22, 24, 26, 28, 30, 32, 34, 
36, 38, 40, 42, 44, 47, 49, 51, 53, 55, 
57, 59, 61, 62, 64, 66, 68, 70, 72, 74, 
76, 77, 79, 81, 83, 85, 88, 91, 94, 97, 
98, 99, 100, 101, 103, 105, 107, 108, 110, 112, 
116, 118, 122, 124, 128, 130, 134, 136, 140, 142, 
146, 148, 152, 153, 154, 155, 156, 157, 158, 159, 
160, 161, 162, 163, 165, 167, 169, 171, 173, 175, 
177, 179, 181, 183, 185, 187, 191, 192, 193, 195, 
196, 197, 198, 199, 200, 201, 203, 205, 207, 209, 
212, 215, 218, 221, 224, 227, 230, 233, 236, 239, 
241, 243, 245, 247, 249, 251, 253, 255, 257, 259, 
261, 264, 266, 268, 271, 273, 276, 279, 282, 285, 
288, 291, 293, 295, 297, 299, 301, 303, 306, 308, 
310, 313, 315, 318, 320, 323, 325, 328, 330, 333, 
336, 338, 341, 343, 346, 348, 351, 353, 356, 358, 
360, 362, 364, 366, 368, 370, 372, 374, 376, 378, 
380, 382, 384, 387, 390, 393, 396, 399, 402, 404, 
406, 408, 410, 412, 414, 416, 418, 420, 422, 424, 
426, 428, 430, 432, 434, 436, 438, 440, 442, 444, 
447, 449, 451, 453, 455, 457, 459, 461, 463, 465, 
468, 470, 473, 475, 478, 480, 483, 485, 488, 490, 
493, 495, 498, 500, 503, 505, 507, 509, 511, 513, 
515, 517, 519, 521, 523, 525, 527, 529, 531, 533, 
535, 537, 539, 541, 543, 545, 548, 550, 552, 554, 
556, 558, 560, 562, 564, 566, 568, 570, 572, 574, 
576, 578, 580, 582, 584, 586, 588, 590, 592, 594, 
596, 598, 600, 602, 604, 606, 608, 610, 612, 614, 
616, 618, 620, 622, 624, 626, 628, 630, 632, 634, 
635, 638, 641, 644, 647, 650, 653, 656, 659, 662, 
665, 668, 671, 674, 677, 680, 683, 686, 689, 692, 
695, 698, 701, 704, 707, 710, 713, 716, 718, 721, 
723, 726, 729, 732, 734, 737, 740, 742, 745, 748, 
751, 754, 757, 759, 762, 764, 767, 773, 779, 781, 
784, 788, 790, 791, 793, 796, 799, 802, 805, 808, 
811, 814, 817, 820, 823, 826, 829, 832, 835, 838, 
841, 844, 847, 850, 853, 856, 859, 862, 865, 868, 
871, 873, 875, 877, 879, 881, 884, 887, 888, 891, 
894, 897, 900, 903, 906, 909, 912, 915, 918, 921, 
924, 927, 930, 933, 936, 939, 942, 945, 948, 951, 
954, 957, 960, 963, 966, 969, 972, 975, 978, 981, 
984, 987, 990, 993, 996, 999, 1002, 1005, 1008, 1011, 
1014, 1017, 1020, 1023, 1026, 1029, 1032, 1035, 1038, 1041, 
1044, 1047, 1050, 1053, 1056, 1059, 1062, 1065, 1068, 1071, 
1074, 1077, 1081, 1084, 1087, 1090, 1093, 1095, 1097, 1099, 
1101, 1103, 1105, 1107, 1109, 1111, 1113, 1115, 1117, 1119, 
1121, 1123, 1125, 1127, 1129, 1131, 1133, 1135, 1137, 1139, 
1141, 1143, 1145, 1147, 1149, 1151, 1153, 1155, 1157, 1159, 
1161, 1163, 1165, 1167, 1169, 1171, 1173, 1175, 1177, 1180, 
1183, 1186, 1188, 1191, 1194, 1197, 1200, 1206, 1212, 1218, 
1219, 1220, 1221, 1224, 1227, 1230, 1233, 1236, 1239, 1245, 
1251, 1257, 1260, 1263, 1266, 1269, 1272, 1275, 1278, 1281, 
1284, 1287, 1290, 1293, 1296, 1299, 1302, 1305, 1308, 1311, 
1314, 1317, 1320, 1323, 1326, 1329, 1332, 1335, 1338, 1341, 
1344, 1347, 1350, 1352, 1354, 1357, 1360, 1362, 1364, 1367, 
1371, 1374, 1378, 1381, 1385, 1388, 1391, 1394, 1397, 1400, 
1403, 1406, 1409, 1412, 1415, 1418, 1421, 1424, 1427, 1430, 
1433, 1436, 1439, 1442, 1445, 1448, 1451, 1454, 1457, 1460, 
1463, 1466, 1469, 1472, 1475, 1478, 1480, 1482, 1484, 1486, 
1488, 1490, 1493, 1496, 1499, 1501, 1503, 1505, 1507, 1509, 
1511, 1513, 1515, 1517, 1520, 1523, 1526, 1528, 1530, 1532, 
1534, 1536, 1538, 1540, 1542, 1544, 1550, 1556, 1562, 1564, 
1566, 1568, 1570, 1572, 1574, 1576, 1578, 1580, 1582, 1584, 
1586, 1588, 1590, 1592, 1594, 1596, 1598, 1600, 1602, 1604, 
1606, 1608, 1610, 1612, 1614, 1617, 1619, 1621, 1623, 1628, 
1634, 1640, 1641, 1648, 1654, 1655, 1662, 1663, 1668, 1669, 
1674, 1675, 1681, 1682, 1687, 1688, 1694, 1695, 1701, 1702, 
1707, 1708, 1714, 1715, 1720, 1721, 1726, 1727, 1732, 1733, 
1738, 1739, 1745, 1746, 1751, 1752, 1757, 1758, 1764, 1765, 
1774, 1776, 1778, 1780, 1782, 1784, 1786, 1788, 1790, 1792, 
1794, 1796, 1798, 1800, 1802, 1804, 1806, 1808, 1810, 1812, 
1814, 1816, 1818, 1820, 1822, 1824, 1826, 1828, 1830, 1832, 
1834, 1836, 1838, 1840, 1842, 1844, 1846, 1848, 1850, 1852, 
1854, 1856, 1858, 1860, 1862, 1864, 1866, 1868, 1870, 1872, 
1874, 1876, 1878, 1880, 1882, 1884, 1886, 1888, 1890, 1892, 
1894, 1896, 1898, 1900, 1902, 1904, 1906, 1908, 1910, 1912, 
1914, 1916, 1918, 1920, 1922, 1924, 1926, 1928, 1930, 1932, 
1934, 1936, 1938, 1940, 1942, 1944, 1946, 1948, 1950, 1952, 
1954, 1956, 1958, 1960, 1962, 1964, 1966, 1968, 1970, 1972, 
1974, 1976, 1978, 1980, 1982, 1984, 1986, 1988, 1990, 1992, 
1994, 1996, 1998, 2000, 2002, 2004, 2006, 2008, 2010, 2012, 
2014, 2016, 2018, 2020, 2022, 2024, 2026, 2028, 2030, 2032, 
2034, 2036, 2038, 2040, 2042, 2044, 2046, 2048, 2050, 2052, 
2054, 2056, 2058, 2060, 2062, 2064, 2066, 2068, 2070, 2072, 
2074, 2076, 2078, 2080, 2082, 2084, 2086, 2088, 2090, 2092, 
2094, 2096, 2098, 2100, 2102, 2104, 2106, 2108, 2110, 2112, 
2114, 2116, 2118, 2120, 2122, 2124, 2126, 2128, 2130, 2132, 
2134, 2136, 2138, 2140, 2142, 2144, 2146, 2148, 2150, 2152, 
2154, 2156, 2158, 2160, 2162, 2164, 2166, 2168, 2170, 2172, 
2174, 2176, 2178, 2180, 2182, 2184, 2186, 2188, 2190, 2192, 
2194, 2196, 2198, 2200, 2202, 2204, 2206, 2208, 2210, 2212, 
2214, 2216, 2218, 2220, 2222, 2224, 2226, 2228, 2230, 2232, 
2234, 2236, 2238, 2240, 2242, 2244, 2246, 2248, 2250, 2252, 
2254, 2256, 2258, 2260, 2262, 2264, 2266, 2268, 2270, 2272, 
2274, 2276, 2278, 2280, 2282, 2284, 2286, 2288, 2290, 2292, 
2294, 2296, 2298, 2300, 2302, 2304, 2306, 2308, 2310, 2312, 
2314, 2316, 2318, 2320, 2322, 2324, 2326, 2328, 2330, 2332, 
2334, 2336, 2338, 2340, 2342, 2344, 2346, 2348, 2350, 2352, 
2354, 2356, 2358, 2360, 2362, 2364, 2366, 2368, 2370, 2372, 
2374, 2376, 2378, 2380, 2382, 2384, 2386, 2388, 2390, 2392, 
2394, 2396, 2398, 2399, 2400, 2401, 2402, 2403, 2404, 2405, 
2406, 2407, 2408, 2409, 2411, 2413, 2415, 2417, 2419, 2421, 
2424, 2427, 2430, 2433, 2436, 2439, 2442, 2445, 2448, 2451, 
2454, 2457, 2460, 2463, 2466, 2469, 2472, 2475, 2478, 2481, 
2484, 2486, 2489, 2496, 2498, 2500, 2502, 2504, 2506, 2508, 
2510, 2512, 2514, 2516, 2518, 2520, 2522, 2524, 2526, 2528, 
2530, 2532, 2534, 2536, 2538, 2540, 2542, 2544, 2546, 2548, 
2550, 2552, 2554, 2556, 2558, 2560, 2562, 2564, 2566, 2568, 
2570, 2572, 2574, 2576, 2578, 2580, 2582, 2584, 2586, 2588, 
2590, 2592, 2594, 2596, 2598, 2600, 2602, 2604, 2606, 2608, 
2610, 2612, 2614, 2616, 2618, 2620, 2622, 2624, 2626, 2628, 
2630, 2632, 2634, 2636, 2638, 2640, 2642, 2644, 2646, 2648, 
2650, 2652, 2654, 2656, 2658, 2660, 2662, 2664, 2666, 2668, 
2670, 2672, 2674, 2676, 2678, 2680, 2682, 2684, 2686, 2688, 
2690, 2692, 2694, 2696, 2698, 2700, 2702, 2704, 2706, 2708, 
2710, 2712, 2714, 2716, 2718, 2720, 2722, 2724, 2726, 2728, 
2730, 2732, 2734, 2736, 2738, 2740, 2742, 2744, 2746, 2748, 
2750, 2752, 2754, 2756, 2758, 2760, 2762, 2764, 2766, 2768, 
2770, 2772, 2774, 2776, 2778, 2781, 2784, 2787, 2794, 2801, 
2807, 2814, 2821, 2827, 2833, 2838, 2843, 2849, 2854, 2860, 
2866, 2872, 2875, 2882, 2888, 2894, 2900, 2906, 2912, 2918, 
2923, 2928, 2934, 2939, 2945, 2951, 2957, 2960, 2967, 2973, 
2979, 2985, 2991, 2997, 3003, 3008, 3013, 3018, 3023, 3028, 
3034, 3039, 3042, 3049, 3055, 3061, 3067, 3072, 3078, 3084, 
3089, 3094, 3098, 3103, 3108, 3114, 3119, 3126, 3132, 3138, 
3144, 3149, 3155, 3161, 3166, 3171, 3175, 3180, 3185, 3191, 
3196, 3201, 3207, 3212, 3217, 3222, 3227, 3232, 3236, 3239, 
3241, 3246, 3251, 3256, 3261, 3263, 3269, 3275, 3280, 3286, 
3291, 3297, 3302, 3307, 3311, 3315, 3320, 3325, 3331, 3336, 
3341, 3347, 3352, 3357, 3362, 3367, 3372, 3376, 3379, 3381, 
3386, 3390, 3395, 3399, 3401, 3407, 3412, 3416, 3421, 3426, 
3431, 3435, 3439, 3443, 3448, 3453, 3458, 3463, 3468, 3474, 
3479, 3483, 3488, 3493, 3498, 3502, 3506, 3510, 3515, 3520, 
3525, 3530, 3535, 3540, 3545, 3549, 3553, 3558, 3562, 3566, 
3569, 3572, 3575, 3579, 3583, 3587, 3591, 3593, 3599, 3606, 
3611, 3617, 3622, 3628, 3634, 3639, 3643, 3648, 3653, 3658, 
3664, 3669, 3675, 3682, 3687, 3693, 3698, 3704, 3710, 3715, 
3719, 3724, 3729, 3734, 3740, 3745, 3751, 3757, 3761, 3767, 
3772, 3777, 3781, 3785, 3786, 3790, 3794, 3798, 3803, 3807, 
3810, 3812, 3817, 3822, 3827, 3831, 3836, 3841, 3845, 3849, 
3853, 3857, 3858, 3862, 3867, 3871, 3874, 3877, 3884, 3890, 
3895, 3901, 3907, 3913, 3918, 3922, 3923, 3929, 3933, 3937, 
3943, 3949, 3952, 3957, 3962, 3967, 3972, 3976, 3981, 3984, 
3989, 3990, 3991, 3992, 3996, 4001, 4005, 4008, 4013, 4018, 
4022, 4026, 4031, 4035, 4039, 4042, 4045, 4048, 4049, 4053, 
4057, 4061, 4067, 4073, 4078, 4083, 4089, 4094, 4098, 4102, 
4107, 4111, 4116, 4121, 4126, 4131, 4134, 4141, 4146, 4153, 
4160, 4166, 4172, 4177, 4182, 4187, 4190, 4194, 4200, 4205, 
4218, 4231, 4244, 4257, 4269, 4282, 4286, 4287)


var_names <- c(
"DUID", "PID", "DUPERSID", "PANEL", "FAMID31", "FAMID42", "FAMID53", "FAMID21", "FAMIDYR", "CPSFAMID", 
"FCSZ1231", "FCRP1231", "RULETR31", "RULETR42", "RULETR53", "RULETR21", "RUSIZE31", "RUSIZE42", "RUSIZE53", "RUSIZE21", 
"RUCLAS31", "RUCLAS42", "RUCLAS53", "RUCLAS21", "FAMSZE31", "FAMSZE42", "FAMSZE53", "FAMSZE21", "FMRS1231", "FAMS1231", 
"FAMSZEYR", "FAMRFPYR", "REGION31", "REGION42", "REGION53", "REGION21", "REFPRS31", "REFPRS42", "REFPRS53", "REFPRS21", 
"RESP31", "RESP42", "RESP53", "RESP21", "PROXY31", "PROXY42", "PROXY53", "PROXY21", "INTVLANG", "BEGRFM31", 
"BEGRFY31", "ENDRFM31", "ENDRFY31", "BEGRFM42", "BEGRFY42", "ENDRFM42", "ENDRFY42", "BEGRFM53", "BEGRFY53", "ENDRFM53", 
"ENDRFY53", "ENDRFM21", "ENDRFY21", "KEYNESS", "INSCOP31", "INSCOP42", "INSCOP53", "INSCOP21", "INSC1231", "INSCOPE", 
"ELGRND31", "ELGRND42", "ELGRND53", "ELGRND21", "PSTATS31", "PSTATS42", "PSTATS53", "RURSLT31", "RURSLT42", "RURSLT53", 
"AGE31X", "AGE42X", "AGE53X", "AGE21X", "AGELAST", "DOBMM", "DOBYY", "SEX", "RACEV1X", "RACEV2X", 
"RACEAX", "RACEBX", "RACEWX", "RACETHX", "HISPANX", "HISPNCAT", "MARRY31X", "MARRY42X", "MARRY53X", "MARRY21X", 
"SPOUID31", "SPOUID42", "SPOUID53", "SPOUID21", "SPOUIN31", "SPOUIN42", "SPOUIN53", "SPOUIN21", "EDUCYR", "HIDEG", 
"FTSTU31X", "FTSTU42X", "FTSTU53X", "FTSTU21X", "ACTDTY31", "ACTDTY42", "ACTDTY53", "REFRL31X", "REFRL42X", "REFRL53X", 
"REFRL21X", "OTHLGSPK", "WHTLGSPK", "HWELLSPK", "BORNUSA", "YRSINUS", "MOPID31X", "MOPID42X", "MOPID53X", "DAPID31X", 
"DAPID42X", "DAPID53X", "RTHLTH31", "RTHLTH42", "RTHLTH53", "MNHLTH31", "MNHLTH42", "MNHLTH53", "HIBPDX", "HIBPAGED", 
"BPMLDX", "CHDDX", "CHDAGED", "ANGIDX", "ANGIAGED", "MIDX", "MIAGED", "OHRTDX", "OHRTAGED", "OHRTTYPE", 
"STRKDX", "STRKAGED", "EMPHDX", "EMPHAGED", "CHBRON31", "CHBRON53", "CHOLDX", "CHOLAGED", "CANCERDX", "CABLADDR", 
"CABREAST", "CACERVIX", "CACOLON", "CALUNG", "CALYMPH", "CAMELANO", "CAOTHER", "CAPROSTA", "CASKINNM", "CASKINDK", 
"CAUTERUS", "DIABDX_M18", "DIABAGED", "JTPAIN31_M18", "JTPAIN53_M18", "ARTHDX", "ARTHTYPE", "ARTHAGED", "ASTHDX", "ASTHAGED", 
"ASSTIL31", "ASSTIL53", "ASATAK31", "ASATAK53", "ASTHEP31", "ASTHEP53", "ASACUT31", "ASACUT53", "ASMRCN31", "ASMRCN53", 
"ASPREV31", "ASPREV53", "ASDALY31", "ASDALY53", "ASPKFL31", "ASPKFL53", "ASEVFL31", "ASEVFL53", "ASWNFL31", "ASWNFL53", 
"ADHDADDX", "ADHDAGED", "IADLHP31", "IADLHP53", "ADLHLP31", "ADLHLP53", "AIDHLP31", "AIDHLP53", "WLKLIM31", "WLKLIM53", 
"LFTDIF31", "LFTDIF53", "STPDIF31", "STPDIF53", "WLKDIF31", "WLKDIF53", "MILDIF31", "MILDIF53", "STNDIF31", "STNDIF53", 
"BENDIF31", "BENDIF53", "RCHDIF31", "RCHDIF53", "FNGRDF31", "FNGRDF53", "ACTLIM31", "ACTLIM53", "WRKLIM31", "WRKLIM53", 
"HSELIM31", "HSELIM53", "SCHLIM31", "SCHLIM53", "UNABLE31", "UNABLE53", "SOCLIM31", "SOCLIM53", "COGLIM31", "COGLIM53", 
"DFHEAR42", "DFSEE42", "DFCOG42", "DFWLKC42", "DFDRSB42", "DFERND42", "ANYLMI21", "CHPMED42", "CHPMHB42", "CHPMCN42", 
"CHSERV42", "CHSRHB42", "CHSRCN42", "CHLIMI42", "CHLIHB42", "CHLICO42", "CHTHER42", "CHTHHB42", "CHTHCO42", "CHCOUN42", 
"CHEMPB42", "CSHCN42", "GETTRB42", "MOMPRO42", "DADPRO42", "UNHAP42", "SCHLBH42", "HAVFUN42", "ADUPRO42", "NERVAF42", 
"SIBPRO42", "KIDPRO42", "SPRPRO42", "SCHPRO42", "HOMEBH42", "CHILCR42", "CHILWW42", "CHRTCR42", "CHRTWW42", "CHAPPT42", 
"CHLIST42", "CHEXPL42", "CHRESP42", "CHPRTM42", "CHHECR42", "CHSPEC42_M18", "CHEYRE42_M18", "LSTETH53", "PHYEXE53", "OFTSMK53", 
"SAQELIG", "ADPROX42", "ADGENH42", "ADDAYA42", "ADCLIM42", "ADACLS42", "ADWKLM42", "ADEMLS42", "ADMWCF42", "ADPAIN42", 
"ADPCFL42", "ADENGY42", "ADPRST42", "ADSOCA42", "ADNERV42", "ADHOPE42", "ADREST42", "ADSAD42", "ADEFRT42", "ADWRTH42", 
"K6SUM42", "ADINTR42", "ADDPRS42", "PHQ242", "ADINSA42", "ADINSB42", "ADRISK42", "ADOVER42", "ADILCR42", "ADILWW42", 
"ADRTCR42", "ADRTWW42", "ADAPPT42", "ADHECR42", "ADINST42", "ADEZUN42", "ADTLHW42", "ADFFRM42", "ADFHLP42", "ADEXPL42", 
"ADLIST42", "ADRESP42", "ADPRTM42", "ADSMOK42", "ADNSMK42", "ADSPCL42", "ADSNSP42", "VPCS42", "VMCS42", "VRFLAG42", 
"ADCMPM42", "ADCMPY42", "ADLANG42", "DCSELIG", "DSDIA53", "DSA1C53", "DSFT2253", "DSFT2153", "DSFT2053", "DSFB2053", 
"DSFTNV53", "DSEY2253", "DSEY2153", "DSEY2053", "DSEB2053", "DSEYNV53", "DSCH2253", "DSCH2153", "DSCH2053", "DSCB2053", 
"DSCHNV53", "DSFL2253", "DSFL2153", "DSFL2053", "DSVB2053", "DSFLNV53", "DSKIDN53", "DSEYPR53", "DSDIET53", "DSMED53", 
"DSINSU53", "DSCPCP53", "DSCNPC53", "DSCPHN53", "DSCINT53", "DSCGRP53", "DSCONF53", "DSPRX53", "SDOHELIG", "SDLIFE", 
"SDHOME", "SDMEDCARE", "SDPARKS", "SDHLTHFOOD", "SDSFCRIME", "SDPUBTRANS", "SDAFRDHOME", "SDNOTRANS", "SDLATERENT", "SDLATEUTIL", 
"SDSHUTUTIL", "SDPROBPEST", "SDPROBMOLD", "SDPROBLEAD", "SDPROBHEAT", "SDPROBCOOK", "SDPROBSMKDET", "SDPROBLEAKS", "SDPROBNONE", "SDWRRYFD", 
"SDNOFOOD", "SDPAYBASICS", "SDUNEXPEXP", "SDMISSCCLN", "SDDEBT", "SDDAYEXER", "SDMINSEXER", "SDSTRESS", "SDFAMILY", "SDFRIENDS", 
"SDCOMM", "SDTLKPHN", "SDGETTGT", "SDCHURCH", "SDCLUBORG", "SDCOMPAN", "SDLEFTOUT", "SDISOL", "SDENICPROD", "SDDSCRMDR", 
"SDDSCRMWRK", "SDDSCRMJOB", "SDDSCRMHS", "SDDSCRMPOL", "SDDSCRMPUB", "SDDSCRMSTR", "SDPHYSHURT", "SDINSULT", "SDTHRHARM", "SDSCREAM", 
"SDHMDEPR", "SDHMALC", "SDHMDRG", "SDHMJAIL", "SDHMDIV", "SDHMBEAT", "SDHURTCHLD", "SDINSCHLD", "SDTCHCHLD", "SDTCHADLT", 
"SDFRCSXCH", "SDCMPM", "SDCMPY", "SDPROX", "DDNWRK21", "OTHDYS21", "OTHNDD21", "ACCELI42", "HAVEUS42", "PRACTP42", 
"YNOUSC42_M18", "PROVTY42_M18", "PLCTYP42", "TMTKUS42", "TYPEPE42", "LOCATN42", "HSPLAP42", "WHITPR42", "BLCKPR42", "ASIANP42", 
"NATAMP42", "PACISP42", "OTHRCP42", "GENDRP42", "PHNREG42", "OFFHOU42", "AFTHOU42", "TREATM42", "DECIDE42", "EXPLOP42", 
"PRVSPK42", "DLAYCA42", "AFRDCA42", "DLAYDN42", "AFRDDN42", "DLAYPM42", "AFRDPM42", "CVDLAYCA31", "CVDLAYCA42", "CVDLAYCA53", 
"CVDLAYDN31", "CVDLAYDN42", "CVDLAYDN53", "CVDLAYPM31", "CVDLAYPM42", "CVDLAYPM53", "CVVACCINE42", "CVVACCINE53", "BOOSTERSHOT53", "EMPST31", 
"EMPST42", "EMPST53", "RNDFLG31", "MORJOB31", "MORJOB42", "MORJOB53", "EVRWRK", "HRWG31X", "HRWG42X", "HRWG53X", 
"HRWGIM31", "HRWGIM42", "HRWGIM53", "HRHOW31", "HRHOW42", "HRHOW53", "DIFFWG31", "DIFFWG42", "DIFFWG53", "NHRWG31", 
"NHRWG42", "NHRWG53", "HOUR31", "HOUR42", "HOUR53", "TEMPJB31", "TEMPJB42", "TEMPJB53", "SSNLJB31", "SSNLJB42", 
"SSNLJB53", "SELFCM31", "SELFCM42", "SELFCM53", "DISVW31X", "DISVW42X", "DISVW53X", "CHOIC31", "CHOIC42", "CHOIC53", 
"INDCAT31", "INDCAT42", "INDCAT53", "NUMEMP31", "NUMEMP42", "NUMEMP53", "MORE31", "MORE42", "MORE53", "UNION31", 
"UNION42", "UNION53", "NWK31", "NWK42", "NWK53", "CHGJ3142", "CHGJ4253", "YCHJ3142", "YCHJ4253", "STJBMM31", 
"STJBYY31", "STJBMM42", "STJBYY42", "STJBMM53", "STJBYY53", "EVRETIRE", "OCCCAT31", "OCCCAT42", "OCCCAT53", "PAYVAC31", 
"PAYVAC42", "PAYVAC53", "SICPAY31", "SICPAY42", "SICPAY53", "PAYDR31", "PAYDR42", "PAYDR53", "RETPLN31", "RETPLN42", 
"RETPLN53", "BSNTY31", "BSNTY42", "BSNTY53", "JOBORG31", "JOBORG42", "JOBORG53", "HELD31X", "HELD42X", "HELD53X", 
"OFFER31X", "OFFER42X", "OFFER53X", "OFREMP31", "OFREMP42", "OFREMP53", "EMPST31H", "EMPST42H", "EMPST53H", "SLFCM31H", 
"SLFCM42H", "SLFCM53H", "NMEMP31H", "NMEMP42H", "NMEMP53H", "MORE31H", "MORE42H", "MORE53H", "INDCT31H", "INDCT42H", 
"INDCT53H", "OCCCT31H", "OCCCT42H", "OCCCT53H", "HOUR31H", "HOUR42H", "HOUR53H", "JBORG31H", "JBORG42H", "JBORG53H", 
"UNION31H", "UNION42H", "UNION53H", "BSNTY31H", "BSNTY42H", "BSNTY53H", "HRWG31H", "HRWG42H", "HRWG53H", "CMJHLD31", 
"CMJHLD42", "CMJHLD53", "OFFER31H", "OFFER42H", "OFFER53H", "OFEMP31H", "OFEMP42H", "OFEMP53H", "PYVAC31H", "PYVAC42H", 
"PYVAC53H", "SCPAY31H", "SCPAY42H", "SCPAY53H", "PAYDR31H", "PAYDR42H", "PAYDR53H", "RTPLN31H", "RTPLN42H", "RTPLN53H", 
"FILEDR21", "WILFIL21", "FLSTAT21", "FILER21", "JTINRU21", "JNTPID21", "TAXFRM21", "FOODST21", "FOODMN21", "FOODVL21", 
"TTLP21X", "FAMINC21", "POVCAT21", "POVLEV21", "WAGEP21X", "WAGIMP21", "BUSNP21X", "BUSIMP21", "UNEMP21X", "UNEIMP21", 
"WCMPP21X", "WCPIMP21", "INTRP21X", "INTIMP21", "DIVDP21X", "DIVIMP21", "SALEP21X", "SALIMP21", "PENSP21X", "PENIMP21", 
"SSECP21X", "SSCIMP21", "TRSTP21X", "TRTIMP21", "VETSP21X", "VETIMP21", "IRASP21X", "IRAIMP21", "ALIMP21X", "ALIIMP21", 
"CHLDP21X", "CHLIMP21", "CASHP21X", "CSHIMP21", "SSIP21X", "SSIIMP21", "PUBP21X", "PUBIMP21", "OTHRP21X", "OTHIMP21", 
"HIEUIDX", "TRIJA21X", "TRIFE21X", "TRIMA21X", "TRIAP21X", "TRIMY21X", "TRIJU21X", "TRIJL21X", "TRIAU21X", "TRISE21X", 
"TRIOC21X", "TRINO21X", "TRIDE21X", "MCRJA21", "MCRFE21", "MCRMA21", "MCRAP21", "MCRMY21", "MCRJU21", "MCRJL21", 
"MCRAU21", "MCRSE21", "MCROC21", "MCRNO21", "MCRDE21", "MCRJA21X", "MCRFE21X", "MCRMA21X", "MCRAP21X", "MCRMY21X", 
"MCRJU21X", "MCRJL21X", "MCRAU21X", "MCRSE21X", "MCROC21X", "MCRNO21X", "MCRDE21X", "MCDJA21", "MCDFE21", "MCDMA21", 
"MCDAP21", "MCDMY21", "MCDJU21", "MCDJL21", "MCDAU21", "MCDSE21", "MCDOC21", "MCDNO21", "MCDDE21", "MCDJA21X", 
"MCDFE21X", "MCDMA21X", "MCDAP21X", "MCDMY21X", "MCDJU21X", "MCDJL21X", "MCDAU21X", "MCDSE21X", "MCDOC21X", "MCDNO21X", 
"MCDDE21X", "GVAJA21", "GVAFE21", "GVAMA21", "GVAAP21", "GVAMY21", "GVAJU21", "GVAJL21", "GVAAU21", "GVASE21", 
"GVAOC21", "GVANO21", "GVADE21", "GVBJA21", "GVBFE21", "GVBMA21", "GVBAP21", "GVBMY21", "GVBJU21", "GVBJL21", 
"GVBAU21", "GVBSE21", "GVBOC21", "GVBNO21", "GVBDE21", "GVCJA21", "GVCFE21", "GVCMA21", "GVCAP21", "GVCMY21", 
"GVCJU21", "GVCJL21", "GVCAU21", "GVCSE21", "GVCOC21", "GVCNO21", "GVCDE21", "VAPJA21", "VAPFE21", "VAPMA21", 
"VAPAP21", "VAPMY21", "VAPJU21", "VAPJL21", "VAPAU21", "VAPSE21", "VAPOC21", "VAPNO21", "VAPDE21", "IHSJA21", 
"IHSFE21", "IHSMA21", "IHSAP21", "IHSMY21", "IHSJU21", "IHSJL21", "IHSAU21", "IHSSE21", "IHSOC21", "IHSNO21", 
"IHSDE21", "PUBJA21X", "PUBFE21X", "PUBMA21X", "PUBAP21X", "PUBMY21X", "PUBJU21X", "PUBJL21X", "PUBAU21X", "PUBSE21X", 
"PUBOC21X", "PUBNO21X", "PUBDE21X", "PEGJA21", "PEGFE21", "PEGMA21", "PEGAP21", "PEGMY21", "PEGJU21", "PEGJL21", 
"PEGAU21", "PEGSE21", "PEGOC21", "PEGNO21", "PEGDE21", "PDKJA21", "PDKFE21", "PDKMA21", "PDKAP21", "PDKMY21", 
"PDKJU21", "PDKJL21", "PDKAU21", "PDKSE21", "PDKOC21", "PDKNO21", "PDKDE21", "PNGJA21", "PNGFE21", "PNGMA21", 
"PNGAP21", "PNGMY21", "PNGJU21", "PNGJL21", "PNGAU21", "PNGSE21", "PNGOC21", "PNGNO21", "PNGDE21", "POGJA21", 
"POGFE21", "POGMA21", "POGAP21", "POGMY21", "POGJU21", "POGJL21", "POGAU21", "POGSE21", "POGOC21", "POGNO21", 
"POGDE21", "POEJA21", "POEFE21", "POEMA21", "POEAP21", "POEMY21", "POEJU21", "POEJL21", "POEAU21", "POESE21", 
"POEOC21", "POENO21", "POEDE21", "PNEJA21", "PNEFE21", "PNEMA21", "PNEAP21", "PNEMY21", "PNEJU21", "PNEJL21", 
"PNEAU21", "PNESE21", "PNEOC21", "PNENO21", "PNEDE21", "PRXJA21", "PRXFE21", "PRXMA21", "PRXAP21", "PRXMY21", 
"PRXJU21", "PRXJL21", "PRXAU21", "PRXSE21", "PRXOC21", "PRXNO21", "PRXDE21", "PRIJA21", "PRIFE21", "PRIMA21", 
"PRIAP21", "PRIMY21", "PRIJU21", "PRIJL21", "PRIAU21", "PRISE21", "PRIOC21", "PRINO21", "PRIDE21", "HPEJA21", 
"HPEFE21", "HPEMA21", "HPEAP21", "HPEMY21", "HPEJU21", "HPEJL21", "HPEAU21", "HPESE21", "HPEOC21", "HPENO21", 
"HPEDE21", "HPDJA21", "HPDFE21", "HPDMA21", "HPDAP21", "HPDMY21", "HPDJU21", "HPDJL21", "HPDAU21", "HPDSE21", 
"HPDOC21", "HPDNO21", "HPDDE21", "HPNJA21", "HPNFE21", "HPNMA21", "HPNAP21", "HPNMY21", "HPNJU21", "HPNJL21", 
"HPNAU21", "HPNSE21", "HPNOC21", "HPNNO21", "HPNDE21", "HPOJA21", "HPOFE21", "HPOMA21", "HPOAP21", "HPOMY21", 
"HPOJU21", "HPOJL21", "HPOAU21", "HPOSE21", "HPOOC21", "HPONO21", "HPODE21", "HPXJA21", "HPXFE21", "HPXMA21", 
"HPXAP21", "HPXMY21", "HPXJU21", "HPXJL21", "HPXAU21", "HPXSE21", "HPXOC21", "HPXNO21", "HPXDE21", "HPRJA21", 
"HPRFE21", "HPRMA21", "HPRAP21", "HPRMY21", "HPRJU21", "HPRJL21", "HPRAU21", "HPRSE21", "HPROC21", "HPRNO21", 
"HPRDE21", "INSJA21X", "INSFE21X", "INSMA21X", "INSAP21X", "INSMY21X", "INSJU21X", "INSJL21X", "INSAU21X", "INSSE21X", 
"INSOC21X", "INSNO21X", "INSDE21X", "PRVEV21", "TRIEV21", "MCREV21", "MCDEV21", "VAEV21", "GVAEV21", "GVBEV21", 
"GVCEV21", "UNINS21", "INSCOV21", "INSURC21", "TRICH31X", "TRICH42X", "TRICH21X", "TRI31X", "TRI42X", "TRI21X", 
"MCRPD31", "MCRPD42", "MCRPD21", "MCRPD31X", "MCRPD42X", "MCRPD21X", "MCRPB31", "MCRPB42", "MCRPB21", "MCRPHO31", 
"MCRPHO42", "MCRPHO21", "MCDHMO31", "MCDHMO42", "MCDHMO21", "MCDMC31", "MCDMC42", "MCDMC21", "PRVHMO31", "PRVHMO42", 
"PRVHMO21", "FSAGT31", "HASFSA31", "PFSAMT31", "PREVCOVR", "MORECOVR", "TRICR31X", "TRICR42X", "TRICR53X", "TRICR21X", 
"TRIAT31X", "TRIAT42X", "TRIAT53X", "TRIAT21X", "MCAID31", "MCAID42", "MCAID53", "MCAID21", "MCAID31X", "MCAID42X", 
"MCAID53X", "MCAID21X", "MCARE31", "MCARE42", "MCARE53", "MCARE21", "MCARE31X", "MCARE42X", "MCARE53X", "MCARE21X", 
"MCDAT31X", "MCDAT42X", "MCDAT53X", "MCDAT21X", "GOVTA31", "GOVTA42", "GOVTA53", "GOVTA21", "GOVAAT31", "GOVAAT42", 
"GOVAAT53", "GOVAAT21", "GOVTB31", "GOVTB42", "GOVTB53", "GOVTB21", "GOVBAT31", "GOVBAT42", "GOVBAT53", "GOVBAT21", 
"GOVTC31", "GOVTC42", "GOVTC53", "GOVTC21", "GOVCAT31", "GOVCAT42", "GOVCAT53", "GOVCAT21", "VAPROG31", "VAPROG42", 
"VAPROG53", "VAPROG21", "VAPRAT31", "VAPRAT42", "VAPRAT53", "VAPRAT21", "IHS31", "IHS42", "IHS53", "IHS21", 
"IHSAT31", "IHSAT42", "IHSAT53", "IHSAT21", "PRIDK31", "PRIDK42", "PRIDK53", "PRIDK21", "PRIEU31", "PRIEU42", 
"PRIEU53", "PRIEU21", "PRING31", "PRING42", "PRING53", "PRING21", "PRIOG31", "PRIOG42", "PRIOG53", "PRIOG21", 
"PRINEO31", "PRINEO42", "PRINEO53", "PRINEO21", "PRIEUO31", "PRIEUO42", "PRIEUO53", "PRIEUO21", "PRSTX31", "PRSTX42", 
"PRSTX53", "PRSTX21", "PRIV31", "PRIV42", "PRIV53", "PRIV21", "PRIVAT31", "PRIVAT42", "PRIVAT53", "PRIVAT21", 
"PUB31X", "PUB42X", "PUB53X", "PUB21X", "PUBAT31X", "PUBAT42X", "PUBAT53X", "PUBAT21X", "VERFLG31", "VERFLG42", 
"VERFLG21", "INS31X", "INS42X", "INS53X", "INS21X", "INSAT31X", "INSAT42X", "INSAT53X", "INSAT21X", "DENTIN31", 
"DENTIN42", "DENTIN53", "DNTINS31", "DNTINS21", "PMEDIN31", "PMEDIN42", "PMEDIN53", "PMDINS31", "PMDINS21", "PROBPY42", 
"CRFMPY42", "PYUNBL42", "PMEDUP31", "PMEDUP42", "PMEDUP53", "PMEDPY31", "PMEDPY42", "PMEDPY53", "TOTTCH21", "TOTEXP21", 
"TOTSLF21", "TOTMCR21", "TOTMCD21", "TOTPRV21", "TOTVA21", "TOTTRI21", "TOTOFD21", "TOTSTL21", "TOTWCP21", "TOTOSR21", 
"TOTPTR21", "TOTOTH21", "OBTOTV21", "OBVTCH21", "OBVEXP21", "OBVSLF21", "OBVMCR21", "OBVMCD21", "OBVPRV21", "OBVVA21", 
"OBVTRI21", "OBVOFD21", "OBVSTL21", "OBVWCP21", "OBVOSR21", "OBVPTR21", "OBVOTH21", "OBDRV21", "OBDTCH21", "OBDEXP21", 
"OBDSLF21", "OBDMCR21", "OBDMCD21", "OBDPRV21", "OBDVA21", "OBDTRI21", "OBDOFD21", "OBDSTL21", "OBDWCP21", "OBDOSR21", 
"OBDPTR21", "OBDOTH21", "OPTOTV21", "OPTTCH21", "OPTEXP21", "OPTSLF21", "OPTMCR21", "OPTMCD21", "OPTPRV21", "OPTVA21", 
"OPTTRI21", "OPTOFD21", "OPTSTL21", "OPTWCP21", "OPTOSR21", "OPTPTR21", "OPTOTH21", "OPFTCH21", "OPFEXP21", "OPFSLF21", 
"OPFMCR21", "OPFMCD21", "OPFPRV21", "OPFVA21", "OPFTRI21", "OPFOFD21", "OPFSTL21", "OPFWCP21", "OPFOSR21", "OPFPTR21", 
"OPFOTH21", "OPDEXP21", "OPDTCH21", "OPDSLF21", "OPDMCR21", "OPDMCD21", "OPDPRV21", "OPDVA21", "OPDTRI21", "OPDOFD21", 
"OPDSTL21", "OPDWCP21", "OPDOSR21", "OPDPTR21", "OPDOTH21", "OPDRV21", "OPVTCH21", "OPVEXP21", "OPVSLF21", "OPVMCR21", 
"OPVMCD21", "OPVPRV21", "OPVVA21", "OPVTRI21", "OPVOFD21", "OPVSTL21", "OPVWCP21", "OPVOSR21", "OPVPTR21", "OPVOTH21", 
"OPSEXP21", "OPSTCH21", "OPSSLF21", "OPSMCR21", "OPSMCD21", "OPSPRV21", "OPSVA21", "OPSTRI21", "OPSOFD21", "OPSSTL21", 
"OPSWCP21", "OPSOSR21", "OPSPTR21", "OPSOTH21", "ERTOT21", "ERTTCH21", "ERTEXP21", "ERTSLF21", "ERTMCR21", "ERTMCD21", 
"ERTPRV21", "ERTVA21", "ERTTRI21", "ERTOFD21", "ERTSTL21", "ERTWCP21", "ERTOSR21", "ERTPTR21", "ERTOTH21", "ERFTCH21", 
"ERFEXP21", "ERFSLF21", "ERFMCR21", "ERFMCD21", "ERFPRV21", "ERFVA21", "ERFTRI21", "ERFOFD21", "ERFSTL21", "ERFWCP21", 
"ERFOSR21", "ERFPTR21", "ERFOTH21", "ERDEXP21", "ERDTCH21", "ERDSLF21", "ERDMCR21", "ERDMCD21", "ERDPRV21", "ERDVA21", 
"ERDTRI21", "ERDOFD21", "ERDSTL21", "ERDWCP21", "ERDOSR21", "ERDPTR21", "ERDOTH21", "IPDIS21", "IPTEXP21", "IPTTCH21", 
"IPTSLF21", "IPTMCR21", "IPTMCD21", "IPTPRV21", "IPTVA21", "IPTTRI21", "IPTOFD21", "IPTSTL21", "IPTWCP21", "IPTOSR21", 
"IPTPTR21", "IPTOTH21", "IPFEXP21", "IPFTCH21", "IPFSLF21", "IPFMCR21", "IPFMCD21", "IPFPRV21", "IPFVA21", "IPFTRI21", 
"IPFOFD21", "IPFSTL21", "IPFWCP21", "IPFOSR21", "IPFPTR21", "IPFOTH21", "IPDEXP21", "IPDTCH21", "IPDSLF21", "IPDMCR21", 
"IPDMCD21", "IPDPRV21", "IPDVA21", "IPDTRI21", "IPDOFD21", "IPDSTL21", "IPDWCP21", "IPDOSR21", "IPDPTR21", "IPDOTH21", 
"IPNGTD21", "DVTOT21", "DVTTCH21", "DVTEXP21", "DVTSLF21", "DVTMCR21", "DVTMCD21", "DVTPRV21", "DVTVA21", "DVTTRI21", 
"DVTOFD21", "DVTSTL21", "DVTWCP21", "DVTOSR21", "DVTPTR21", "DVTOTH21", "HHTOTD21", "HHAGD21", "HHATCH21", "HHAEXP21", 
"HHASLF21", "HHAMCR21", "HHAMCD21", "HHAPRV21", "HHAVA21", "HHATRI21", "HHAOFD21", "HHASTL21", "HHAWCP21", "HHAOSR21", 
"HHAPTR21", "HHAOTH21", "HHINDD21", "HHNTCH21", "HHNEXP21", "HHNSLF21", "HHNMCD21", "HHNMCR21", "HHNPRV21", "HHNVA21", 
"HHNTRI21", "HHNOFD21", "HHNSTL21", "HHNWCP21", "HHNOSR21", "HHNPTR21", "HHNOTH21", "HHINFD21", "VISEXP21", "VISTCH21", 
"VISSLF21", "VISMCR21", "VISMCD21", "VISPRV21", "VISVA21", "VISTRI21", "VISOFD21", "VISSTL21", "VISWCP21", "VISOSR21", 
"VISPTR21", "VISOTH21", "OTHTCH21", "OTHEXP21", "OTHSLF21", "OTHMCR21", "OTHMCD21", "OTHPRV21", "OTHVA21", "OTHTRI21", 
"OTHOFD21", "OTHSTL21", "OTHWCP21", "OTHOSR21", "OTHPTR21", "OTHOTH21", "RXTOT21", "RXEXP21", "RXSLF21", "RXMCR21", 
"RXMCD21", "RXPRV21", "RXVA21", "RXTRI21", "RXOFD21", "RXSTL21", "RXWCP21", "RXOSR21", "RXPTR21", "RXOTH21", 
"PERWT21F", "FAMWT21F", "FAMWT21C", "SAQWT21F", "DIABW21F", "SDOHWT21F", "VARSTR", "VARPSU")


var_types <- c(
"n", "n", "c", "n", "c", "c", "c", "c", "c", "c", 
"n", "n", "c", "c", "c", "c", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "c", "c", "c", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"c", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n")


var_types <- setNames(var_types, var_names)

# IMPORT ASCII file -----------------------

h233 <- read_fwf(                      
meps_path,                                 
     col_positions =                       
         fwf_positions(                    
             start = pos_start,            
                 end   = pos_end,          
                 col_names = var_names),   
         col_types = var_types)            

                                           
# OPTIONAL: save as .Rdata file for easier loading ----------------------------
# Run this to save a permanent .Rdata file in the local working directory      
#                                          
# save(h233, file ="h233.Rdata")  
                                           
# -----------------------------------------------------------------------------
# NOTES:                                       
#                                          
#  1. This program has been tested on R version 3.6.0              
#                                          
#  2. This program will create a temporary data frame in R called 'h233'.      
#     You must run the 'save' command to permanently save the data to a local  
#     folder                                   
# -----------------------------------------------------------------------------