# -----------------------------------------------------------------------------             
# R programming statements for h209 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 (h209.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 'h209'.            
#                                                       
# 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 h209.dat file.)                                   
#                                                       
#     meps_path <- "C:/MEPS/h209.dat"                             
#     source("https://meps.ahrq.gov/mepsweb/data_stats/download_data/pufs/h209/h209ru.txt")
#     head(h209) # 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 h209 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/h209dat.zip" 
#           download.file(url, temp <- tempfile())                              
#                                                       
#     meps_path <- unzip(temp, exdir = tempdir())                               
#     source("https://meps.ahrq.gov/mepsweb/data_stats/download_data/pufs/h209/h209ru.txt")
#                                                       
#           unlink(temp)  # Unlink to delete temporary file                         
#                                                       
#           head(h209) # view data                                 
#                                                       
# -----------------------------------------------------------------------------             
                                                        
# DEFINE 'meps_path' -----------------------------------------------------------            
# 'meps_path' should point to the file path of the ASCII file (h209.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/h209.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, 257, 260, 
262, 264, 266, 268, 271, 273, 276, 279, 281, 283, 
286, 288, 291, 294, 297, 300, 303, 306, 308, 310, 
312, 314, 316, 318, 321, 323, 325, 328, 330, 333, 
335, 338, 340, 343, 345, 347, 350, 352, 355, 357, 
359, 362, 364, 367, 369, 371, 373, 375, 377, 379, 
381, 383, 385, 387, 389, 391, 394, 396, 398, 401, 
403, 406, 408, 410, 413, 416, 418, 421, 423, 426, 
428, 431, 433, 435, 438, 440, 442, 444, 446, 448, 
450, 452, 454, 456, 458, 460, 462, 464, 466, 468, 
470, 472, 474, 476, 478, 480, 482, 484, 486, 488, 
490, 493, 496, 498, 500, 503, 505, 507, 510, 512, 
514, 517, 519, 521, 524, 526, 528, 531, 533, 536, 
538, 543, 546, 549, 551, 554, 556, 558, 560, 563, 
565, 568, 570, 573, 575, 578, 580, 583, 585, 587, 
589, 590, 593, 596, 599, 602, 605, 608, 611, 614, 
617, 620, 623, 626, 629, 632, 635, 641, 647, 649, 
652, 655, 658, 661, 664, 667, 670, 673, 676, 679, 
682, 685, 688, 691, 696, 699, 702, 705, 708, 711, 
714, 717, 720, 723, 726, 729, 732, 735, 738, 741, 
744, 747, 750, 753, 756, 759, 762, 765, 768, 771, 
774, 777, 780, 783, 786, 789, 793, 795, 796, 798, 
801, 804, 807, 810, 813, 816, 819, 822, 825, 828, 
831, 834, 837, 840, 843, 846, 849, 852, 855, 858, 
861, 864, 867, 870, 873, 876, 879, 882, 885, 888, 
891, 894, 897, 900, 903, 906, 909, 912, 915, 918, 
921, 924, 927, 930, 932, 935, 938, 941, 943, 946, 
949, 952, 955, 958, 962, 965, 966, 968, 971, 974, 
977, 980, 983, 986, 989, 992, 995, 998, 1001, 1004, 
1007, 1010, 1013, 1016, 1019, 1022, 1025, 1028, 1031, 1034, 
1037, 1040, 1043, 1046, 1048, 1050, 1052, 1054, 1056, 1059, 
1062, 1065, 1068, 1071, 1073, 1075, 1077, 1079, 1081, 1083, 
1085, 1087, 1089, 1091, 1093, 1095, 1097, 1099, 1101, 1103, 
1105, 1107, 1109, 1111, 1113, 1115, 1117, 1119, 1121, 1123, 
1125, 1127, 1129, 1131, 1134, 1137, 1140, 1142, 1145, 1148, 
1151, 1154, 1160, 1166, 1172, 1173, 1174, 1175, 1178, 1181, 
1184, 1187, 1190, 1193, 1199, 1205, 1211, 1214, 1217, 1220, 
1223, 1226, 1229, 1232, 1235, 1238, 1241, 1244, 1247, 1250, 
1253, 1256, 1259, 1262, 1265, 1268, 1271, 1274, 1277, 1280, 
1283, 1286, 1289, 1292, 1295, 1298, 1301, 1304, 1306, 1308, 
1311, 1314, 1317, 1320, 1323, 1327, 1330, 1334, 1337, 1341, 
1344, 1347, 1350, 1353, 1356, 1359, 1362, 1365, 1368, 1371, 
1374, 1377, 1380, 1383, 1386, 1389, 1392, 1395, 1398, 1401, 
1404, 1407, 1410, 1413, 1416, 1419, 1422, 1425, 1428, 1431, 
1434, 1436, 1438, 1440, 1442, 1444, 1446, 1449, 1452, 1455, 
1457, 1459, 1461, 1463, 1465, 1467, 1469, 1471, 1473, 1476, 
1479, 1482, 1484, 1486, 1488, 1490, 1492, 1494, 1496, 1498, 
1500, 1506, 1512, 1518, 1520, 1522, 1524, 1526, 1528, 1530, 
1532, 1534, 1536, 1538, 1540, 1542, 1544, 1546, 1548, 1550, 
1552, 1554, 1556, 1558, 1560, 1562, 1564, 1566, 1568, 1570, 
1573, 1575, 1577, 1579, 1583, 1590, 1597, 1598, 1610, 1616, 
1617, 1623, 1624, 1629, 1630, 1635, 1636, 1641, 1642, 1647, 
1648, 1655, 1656, 1661, 1662, 1667, 1668, 1675, 1676, 1681, 
1682, 1687, 1688, 1693, 1694, 1699, 1700, 1705, 1706, 1711, 
1712, 1717, 1718, 1724, 1725, 1734, 1736, 1738, 1740, 1742, 
1744, 1746, 1748, 1750, 1752, 1754, 1756, 1758, 1760, 1762, 
1764, 1766, 1768, 1770, 1772, 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, 2359, 2360, 
2361, 2362, 2363, 2364, 2365, 2366, 2367, 2368, 2369, 2371, 
2373, 2375, 2377, 2379, 2381, 2383, 2385, 2387, 2389, 2391, 
2393, 2395, 2397, 2399, 2402, 2405, 2408, 2411, 2414, 2417, 
2420, 2423, 2426, 2429, 2432, 2435, 2438, 2441, 2444, 2447, 
2450, 2453, 2456, 2459, 2462, 2464, 2467, 2471, 2473, 2475, 
2477, 2479, 2481, 2483, 2485, 2487, 2489, 2491, 2493, 2495, 
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, 2756, 
2759, 2762, 2769, 2775, 2781, 2787, 2793, 2799, 2805, 2811, 
2816, 2821, 2826, 2832, 2837, 2843, 2849, 2855, 2858, 2865, 
2871, 2877, 2883, 2888, 2894, 2899, 2904, 2909, 2913, 2918, 
2923, 2927, 2932, 2938, 2943, 2946, 2953, 2959, 2965, 2971, 
2976, 2982, 2987, 2992, 2997, 3001, 3006, 3011, 3015, 3020, 
3026, 3031, 3034, 3041, 3047, 3052, 3057, 3063, 3069, 3074, 
3079, 3083, 3088, 3093, 3097, 3101, 3106, 3112, 3117, 3124, 
3130, 3135, 3140, 3146, 3152, 3157, 3162, 3166, 3171, 3176, 
3180, 3184, 3189, 3195, 3200, 3205, 3210, 3214, 3219, 3224, 
3229, 3234, 3238, 3239, 3242, 3246, 3250, 3254, 3259, 3264, 
3269, 3271, 3278, 3284, 3289, 3294, 3300, 3305, 3310, 3314, 
3318, 3322, 3327, 3331, 3335, 3340, 3345, 3350, 3355, 3360, 
3364, 3369, 3373, 3378, 3382, 3386, 3387, 3390, 3394, 3398, 
3402, 3407, 3412, 3417, 3419, 3425, 3430, 3434, 3439, 3444, 
3449, 3453, 3457, 3461, 3466, 3471, 3475, 3479, 3483, 3488, 
3493, 3499, 3504, 3508, 3513, 3518, 3523, 3527, 3531, 3535, 
3540, 3545, 3549, 3553, 3557, 3562, 3567, 3572, 3577, 3581, 
3585, 3589, 3593, 3597, 3601, 3602, 3605, 3609, 3613, 3616, 
3620, 3624, 3628, 3630, 3636, 3643, 3648, 3654, 3660, 3666, 
3672, 3677, 3682, 3687, 3692, 3697, 3702, 3708, 3714, 3720, 
3726, 3733, 3738, 3744, 3750, 3756, 3762, 3767, 3772, 3777, 
3782, 3787, 3792, 3798, 3804, 3810, 3815, 3821, 3825, 3830, 
3835, 3840, 3845, 3849, 3850, 3854, 3858, 3862, 3866, 3871, 
3876, 3881, 3884, 3886, 3891, 3896, 3901, 3905, 3910, 3915, 
3919, 3923, 3927, 3931, 3934, 3938, 3942, 3946, 3951, 3955, 
3958, 3961, 3967, 3973, 3978, 3984, 3990, 3995, 4000, 4001, 
4005, 4010, 4011, 4015, 4019, 4023, 4028, 4033, 4036, 4042, 
4048, 4054, 4059, 4063, 4067, 4072, 4074, 4075, 4078, 4079, 
4082, 4083, 4088, 4092, 4097, 4100, 4105, 4110, 4114, 4118, 
4123, 4127, 4130, 4133, 4136, 4139, 4142, 4146, 4149, 4153, 
4157, 4161, 4166, 4171, 4176, 4181, 4186, 4191, 4195, 4200, 
4205, 4209, 4214, 4218, 4222, 4226, 4231, 4236, 4239, 4245, 
4250, 4256, 4262, 4268, 4273, 4278, 4283, 4288, 4292, 4298, 
4303, 4309, 4315, 4321, 4333, 4345, 4357, 4370, 4382, 4394, 
4398)


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, 256, 259, 261, 
263, 265, 267, 270, 272, 275, 278, 280, 282, 285, 
287, 290, 293, 296, 299, 302, 305, 307, 309, 311, 
313, 315, 317, 320, 322, 324, 327, 329, 332, 334, 
337, 339, 342, 344, 346, 349, 351, 354, 356, 358, 
361, 363, 366, 368, 370, 372, 374, 376, 378, 380, 
382, 384, 386, 388, 390, 393, 395, 397, 400, 402, 
405, 407, 409, 412, 415, 417, 420, 422, 425, 427, 
430, 432, 434, 437, 439, 441, 443, 445, 447, 449, 
451, 453, 455, 457, 459, 461, 463, 465, 467, 469, 
471, 473, 475, 477, 479, 481, 483, 485, 487, 489, 
492, 495, 497, 499, 502, 504, 506, 509, 511, 513, 
516, 518, 520, 523, 525, 527, 530, 532, 535, 537, 
542, 545, 548, 550, 553, 555, 557, 559, 562, 564, 
567, 569, 572, 574, 577, 579, 582, 584, 586, 588, 
589, 592, 595, 598, 601, 604, 607, 610, 613, 616, 
619, 622, 625, 628, 631, 634, 640, 646, 648, 651, 
654, 657, 660, 663, 666, 669, 672, 675, 678, 681, 
684, 687, 690, 695, 698, 701, 704, 707, 710, 713, 
716, 719, 722, 725, 728, 731, 734, 737, 740, 743, 
746, 749, 752, 755, 758, 761, 764, 767, 770, 773, 
776, 779, 782, 785, 788, 792, 794, 795, 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, 875, 878, 881, 884, 887, 890, 
893, 896, 899, 902, 905, 908, 911, 914, 917, 920, 
923, 926, 929, 931, 934, 937, 940, 942, 945, 948, 
951, 954, 957, 961, 964, 965, 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, 1047, 1049, 1051, 1053, 1055, 1058, 1061, 
1064, 1067, 1070, 1072, 1074, 1076, 1078, 1080, 1082, 1084, 
1086, 1088, 1090, 1092, 1094, 1096, 1098, 1100, 1102, 1104, 
1106, 1108, 1110, 1112, 1114, 1116, 1118, 1120, 1122, 1124, 
1126, 1128, 1130, 1133, 1136, 1139, 1141, 1144, 1147, 1150, 
1153, 1159, 1165, 1171, 1172, 1173, 1174, 1177, 1180, 1183, 
1186, 1189, 1192, 1198, 1204, 1210, 1213, 1216, 1219, 1222, 
1225, 1228, 1231, 1234, 1237, 1240, 1243, 1246, 1249, 1252, 
1255, 1258, 1261, 1264, 1267, 1270, 1273, 1276, 1279, 1282, 
1285, 1288, 1291, 1294, 1297, 1300, 1303, 1305, 1307, 1310, 
1313, 1316, 1319, 1322, 1326, 1329, 1333, 1336, 1340, 1343, 
1346, 1349, 1352, 1355, 1358, 1361, 1364, 1367, 1370, 1373, 
1376, 1379, 1382, 1385, 1388, 1391, 1394, 1397, 1400, 1403, 
1406, 1409, 1412, 1415, 1418, 1421, 1424, 1427, 1430, 1433, 
1435, 1437, 1439, 1441, 1443, 1445, 1448, 1451, 1454, 1456, 
1458, 1460, 1462, 1464, 1466, 1468, 1470, 1472, 1475, 1478, 
1481, 1483, 1485, 1487, 1489, 1491, 1493, 1495, 1497, 1499, 
1505, 1511, 1517, 1519, 1521, 1523, 1525, 1527, 1529, 1531, 
1533, 1535, 1537, 1539, 1541, 1543, 1545, 1547, 1549, 1551, 
1553, 1555, 1557, 1559, 1561, 1563, 1565, 1567, 1569, 1572, 
1574, 1576, 1578, 1582, 1589, 1596, 1597, 1609, 1615, 1616, 
1622, 1623, 1628, 1629, 1634, 1635, 1640, 1641, 1646, 1647, 
1654, 1655, 1660, 1661, 1666, 1667, 1674, 1675, 1680, 1681, 
1686, 1687, 1692, 1693, 1698, 1699, 1704, 1705, 1710, 1711, 
1716, 1717, 1723, 1724, 1733, 1735, 1737, 1739, 1741, 1743, 
1745, 1747, 1749, 1751, 1753, 1755, 1757, 1759, 1761, 1763, 
1765, 1767, 1769, 1771, 1773, 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, 2358, 2359, 2360, 
2361, 2362, 2363, 2364, 2365, 2366, 2367, 2368, 2370, 2372, 
2374, 2376, 2378, 2380, 2382, 2384, 2386, 2388, 2390, 2392, 
2394, 2396, 2398, 2401, 2404, 2407, 2410, 2413, 2416, 2419, 
2422, 2425, 2428, 2431, 2434, 2437, 2440, 2443, 2446, 2449, 
2452, 2455, 2458, 2461, 2463, 2466, 2470, 2472, 2474, 2476, 
2478, 2480, 2482, 2484, 2486, 2488, 2490, 2492, 2494, 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, 2755, 2758, 
2761, 2768, 2774, 2780, 2786, 2792, 2798, 2804, 2810, 2815, 
2820, 2825, 2831, 2836, 2842, 2848, 2854, 2857, 2864, 2870, 
2876, 2882, 2887, 2893, 2898, 2903, 2908, 2912, 2917, 2922, 
2926, 2931, 2937, 2942, 2945, 2952, 2958, 2964, 2970, 2975, 
2981, 2986, 2991, 2996, 3000, 3005, 3010, 3014, 3019, 3025, 
3030, 3033, 3040, 3046, 3051, 3056, 3062, 3068, 3073, 3078, 
3082, 3087, 3092, 3096, 3100, 3105, 3111, 3116, 3123, 3129, 
3134, 3139, 3145, 3151, 3156, 3161, 3165, 3170, 3175, 3179, 
3183, 3188, 3194, 3199, 3204, 3209, 3213, 3218, 3223, 3228, 
3233, 3237, 3238, 3241, 3245, 3249, 3253, 3258, 3263, 3268, 
3270, 3277, 3283, 3288, 3293, 3299, 3304, 3309, 3313, 3317, 
3321, 3326, 3330, 3334, 3339, 3344, 3349, 3354, 3359, 3363, 
3368, 3372, 3377, 3381, 3385, 3386, 3389, 3393, 3397, 3401, 
3406, 3411, 3416, 3418, 3424, 3429, 3433, 3438, 3443, 3448, 
3452, 3456, 3460, 3465, 3470, 3474, 3478, 3482, 3487, 3492, 
3498, 3503, 3507, 3512, 3517, 3522, 3526, 3530, 3534, 3539, 
3544, 3548, 3552, 3556, 3561, 3566, 3571, 3576, 3580, 3584, 
3588, 3592, 3596, 3600, 3601, 3604, 3608, 3612, 3615, 3619, 
3623, 3627, 3629, 3635, 3642, 3647, 3653, 3659, 3665, 3671, 
3676, 3681, 3686, 3691, 3696, 3701, 3707, 3713, 3719, 3725, 
3732, 3737, 3743, 3749, 3755, 3761, 3766, 3771, 3776, 3781, 
3786, 3791, 3797, 3803, 3809, 3814, 3820, 3824, 3829, 3834, 
3839, 3844, 3848, 3849, 3853, 3857, 3861, 3865, 3870, 3875, 
3880, 3883, 3885, 3890, 3895, 3900, 3904, 3909, 3914, 3918, 
3922, 3926, 3930, 3933, 3937, 3941, 3945, 3950, 3954, 3957, 
3960, 3966, 3972, 3977, 3983, 3989, 3994, 3999, 4000, 4004, 
4009, 4010, 4014, 4018, 4022, 4027, 4032, 4035, 4041, 4047, 
4053, 4058, 4062, 4066, 4071, 4073, 4074, 4077, 4078, 4081, 
4082, 4087, 4091, 4096, 4099, 4104, 4109, 4113, 4117, 4122, 
4126, 4129, 4132, 4135, 4138, 4141, 4145, 4148, 4152, 4156, 
4160, 4165, 4170, 4175, 4180, 4185, 4190, 4194, 4199, 4204, 
4208, 4213, 4217, 4221, 4225, 4230, 4235, 4238, 4244, 4249, 
4255, 4261, 4267, 4272, 4277, 4282, 4287, 4291, 4297, 4302, 
4308, 4314, 4320, 4332, 4344, 4356, 4369, 4381, 4393, 4397, 
4398)


var_names <- c(
"DUID", "PID", "DUPERSID", "PANEL", "FAMID31", "FAMID42", "FAMID53", "FAMID18", "FAMIDYR", "CPSFAMID", 
"FCSZ1231", "FCRP1231", "RULETR31", "RULETR42", "RULETR53", "RULETR18", "RUSIZE31", "RUSIZE42", "RUSIZE53", "RUSIZE18", 
"RUCLAS31", "RUCLAS42", "RUCLAS53", "RUCLAS18", "FAMSZE31", "FAMSZE42", "FAMSZE53", "FAMSZE18", "FMRS1231", "FAMS1231", 
"FAMSZEYR", "FAMRFPYR", "REGION31", "REGION42", "REGION53", "REGION18", "REFPRS31", "REFPRS42", "REFPRS53", "REFPRS18", 
"RESP31", "RESP42", "RESP53", "RESP18", "PROXY31", "PROXY42", "PROXY53", "PROXY18", "INTVLANG", "BEGRFM31", 
"BEGRFY31", "ENDRFM31", "ENDRFY31", "BEGRFM42", "BEGRFY42", "ENDRFM42", "ENDRFY42", "BEGRFM53", "BEGRFY53", "ENDRFM53", 
"ENDRFY53", "ENDRFM18", "ENDRFY18", "KEYNESS", "INSCOP31", "INSCOP42", "INSCOP53", "INSCOP18", "INSC1231", "INSCOPE", 
"ELGRND31", "ELGRND42", "ELGRND53", "ELGRND18", "PSTATS31", "PSTATS42", "PSTATS53", "RURSLT31", "RURSLT42", "RURSLT53", 
"AGE31X", "AGE42X", "AGE53X", "AGE18X", "AGELAST", "DOBMM", "DOBYY", "SEX", "RACEV1X", "RACEV2X", 
"RACEAX", "RACEBX", "RACEWX", "RACETHX", "HISPANX", "HISPNCAT", "MARRY31X", "MARRY42X", "MARRY53X", "MARRY18X", 
"SPOUID31", "SPOUID42", "SPOUID53", "SPOUID18", "SPOUIN31", "SPOUIN42", "SPOUIN53", "SPOUIN18", "EDUCYR", "HIDEG", 
"FTSTU31X", "FTSTU42X", "FTSTU53X", "FTSTU18X", "ACTDTY31", "ACTDTY42", "ACTDTY53", "HONRDC31", "HONRDC42", "REFRL31X", 
"REFRL42X", "REFRL53X", "REFRL18X", "OTHLANG", "LANGSPK", "HWELLSPE", "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", 
"CHOLDX", "CHOLAGED", "CANCERDX", "CABLADDR", "CABREAST", "CACERVIX", "CACOLON", "CALUNG", "CALYMPH", "CAMELANO", 
"CAOTHER", "CAPROSTA", "CASKINNM", "CASKINDK", "CAUTERUS", "DIABDX_M18", "DIABAGED", "JTPAIN31_M18", "ARTHDX", "ARTHTYPE", 
"ARTHAGED", "ASTHDX", "ASTHAGED", "ASSTIL31", "ASATAK31", "ASTHEP31", "ASACUT31", "ASMRCN31", "ASPREV31", "ASDALY31", 
"ASPKFL31", "ASEVFL31", "ASWNFL31", "ADHDADDX", "ADHDAGED", "IADLHP31", "ADLHLP31", "AIDHLP31", "WLKLIM31", "LFTDIF31", 
"STPDIF31", "WLKDIF31", "MILDIF31", "STNDIF31", "BENDIF31", "RCHDIF31", "FNGRDF31", "ACTLIM31", "WRKLIM31", "HSELIM31", 
"SCHLIM31", "UNABLE31", "SOCLIM31", "COGLIM31", "DFHEAR42", "DFSEE42", "DFCOG42", "DFWLKC42", "DFDRSB42", "DFERND42", 
"ANYLMI18", "CHPMED42", "CHPMHB42", "CHPMCN42", "CHSERV42", "CHSRHB42", "CHSRCN42", "CHLIMI42", "CHLIHB42", "CHLICO42", 
"CHTHER42", "CHTHHB42", "CHTHCO42", "CHCOUN42", "CHEMPB42", "CSHCN42", "MESHGT42", "WHNHGT42", "MESWGT42", "WHNWGT42", 
"CHBMIX42", "MESVIS42", "EATHLT42", "WHNEAT42", "PHYSCL42", "WHNPHY42", "SAFEST42", "WHNSAF42", "BOOST42", "WHNBST42", 
"LAPBLT42", "WHNLAP42", "HELMET42", "WHNHEL42", "NOSMOK42", "WHNSMK42", "TIMALN42", "LSTETH53", "PHYEXE53", "OFTSMK53", 
"SAQELIG", "ADSEX42", "ADAGE42", "ADPROX42", "ADGENH42", "ADDAYA42", "ADCLIM42", "ADACLS42", "ADWKLM42", "ADEMLS42", 
"ADMWCF42", "ADPAIN42", "ADPCFL42", "ADENGY42", "ADPRST42", "ADSOCA42", "VPCS42", "VMCS42", "VRFLAG42", "ADNERV42", 
"ADHOPE42", "ADREST42", "ADSAD42", "ADEFRT42", "ADWRTH42", "K6SUM42", "ADINTR42", "ADDPRS42", "PHQ242", "ADBRTC42", 
"ADMDVT42", "ADFLST42", "ADWGHD42", "ADBMI42", "ADWTAD42", "ADKALC42", "ADRNK542", "ADRNK442", "ADSTAL42", "ADTBAC42", 
"ADOFTB42", "ADQTTB42", "ADQTMD42", "ADQTHP42", "ADMOOD42", "ADBPCK42", "ADCHLC42", "ADPNEU42", "ADSHNG42", "ADNOAP42", 
"ADDSCU42", "ADCOLN42", "ADCLNS42", "ADSGMD42", "ADBLDS42", "ADPROS42", "ADPSAG42", "ADUTRM42", "ADPAP42", "ADPAPG42", 
"ADOSTP42", "ADBNDN42", "ADBRST42", "ADMMGR42", "ADCMPM42", "ADCMPY42", "ADLANG42", "VSAQELIG", "VACTDY53", "VAPRHT53", 
"VACOPD53", "VADERM53", "VAGERD53", "VAHRLS53", "VABACK53", "VAJTPN53", "VARTHR53", "VAGOUT53", "VANECK53", "VATMD53", 
"VAPTSD53", "VALCOH53", "VABIPL53", "VADEPR53", "VAMOOD53", "VAPROS53", "VARHAB53", "VAMNHC53", "VAGCNS53", "VARXMD53", 
"VACRGV53", "VAMOBL53", "VACOST53", "VARECM53", "VAREP53", "VAWAIT53", "VALOCT53", "VANTWK53", "VANEED53", "VAOUT53", 
"VAPAST53", "VACOMP53", "VAMREC53", "VAGTRC53", "VACARC53", "VAPROB53", "VACARE53", "VAPACT53", "VAPCPR53", "VAPROV53", 
"VAPCOT53", "VAPCCO53", "VAPCRC53", "VAPCSN53", "VAPCRF53", "VAPCSO53", "VAPCOU53", "VAPCUN53", "VASPCL53", "VASPMH53", 
"VASPOU53", "VASPUN53", "VACMPM53", "VACMPY53", "VAPROX53", "DCSELIG", "DSDIA53", "DSA1C53", "DSFT1953", "DSFT1853", 
"DSFT1753", "DSFB1753", "DSFTNV53", "DSEY1953", "DSEY1853", "DSEY1753", "DSEB1753", "DSEYNV53", "DSCH1953", "DSCH1853", 
"DSCH1753", "DSCB1753", "DSCHNV53", "DSFL1953", "DSFL1853", "DSFL1753", "DSVB1753", "DSFLNV53", "DSKIDN53", "DSEYPR53", 
"DSDIET53", "DSMED53", "DSINSU53", "DSCPCP53", "DSCNPC53", "DSCPHN53", "DSCINT53", "DSCGRP53", "DSCONF53", "DSPRX53", 
"DDNWRK18", "OTHDYS18", "OTHNDD18", "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", "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", "FILEDR18", "WILFIL18", "FLSTAT18", "FILER18", "JTINRU18", "JNTPID18", 
"TAXFRM18", "FOODST18", "FOODMN18", "FOODVL18", "TTLP18X", "FAMINC18", "POVCAT18", "POVLEV18", "WAGEP18X", "WAGIMP18", 
"BUSNP18X", "BUSIMP18", "UNEMP18X", "UNEIMP18", "WCMPP18X", "WCPIMP18", "INTRP18X", "INTIMP18", "DIVDP18X", "DIVIMP18", 
"SALEP18X", "SALIMP18", "PENSP18X", "PENIMP18", "SSECP18X", "SSCIMP18", "TRSTP18X", "TRTIMP18", "VETSP18X", "VETIMP18", 
"IRASP18X", "IRAIMP18", "ALIMP18X", "ALIIMP18", "CHLDP18X", "CHLIMP18", "CASHP18X", "CSHIMP18", "SSIP18X", "SSIIMP18", 
"PUBP18X", "PUBIMP18", "OTHRP18X", "OTHIMP18", "HIEUIDX", "TRIJA18X", "TRIFE18X", "TRIMA18X", "TRIAP18X", "TRIMY18X", 
"TRIJU18X", "TRIJL18X", "TRIAU18X", "TRISE18X", "TRIOC18X", "TRINO18X", "TRIDE18X", "MCRJA18", "MCRFE18", "MCRMA18", 
"MCRAP18", "MCRMY18", "MCRJU18", "MCRJL18", "MCRAU18", "MCRSE18", "MCROC18", "MCRNO18", "MCRDE18", "MCRJA18X", 
"MCRFE18X", "MCRMA18X", "MCRAP18X", "MCRMY18X", "MCRJU18X", "MCRJL18X", "MCRAU18X", "MCRSE18X", "MCROC18X", "MCRNO18X", 
"MCRDE18X", "MCDJA18", "MCDFE18", "MCDMA18", "MCDAP18", "MCDMY18", "MCDJU18", "MCDJL18", "MCDAU18", "MCDSE18", 
"MCDOC18", "MCDNO18", "MCDDE18", "MCDJA18X", "MCDFE18X", "MCDMA18X", "MCDAP18X", "MCDMY18X", "MCDJU18X", "MCDJL18X", 
"MCDAU18X", "MCDSE18X", "MCDOC18X", "MCDNO18X", "MCDDE18X", "GVAJA18", "GVAFE18", "GVAMA18", "GVAAP18", "GVAMY18", 
"GVAJU18", "GVAJL18", "GVAAU18", "GVASE18", "GVAOC18", "GVANO18", "GVADE18", "GVBJA18", "GVBFE18", "GVBMA18", 
"GVBAP18", "GVBMY18", "GVBJU18", "GVBJL18", "GVBAU18", "GVBSE18", "GVBOC18", "GVBNO18", "GVBDE18", "GVCJA18", 
"GVCFE18", "GVCMA18", "GVCAP18", "GVCMY18", "GVCJU18", "GVCJL18", "GVCAU18", "GVCSE18", "GVCOC18", "GVCNO18", 
"GVCDE18", "VAPJA18", "VAPFE18", "VAPMA18", "VAPAP18", "VAPMY18", "VAPJU18", "VAPJL18", "VAPAU18", "VAPSE18", 
"VAPOC18", "VAPNO18", "VAPDE18", "IHSJA18", "IHSFE18", "IHSMA18", "IHSAP18", "IHSMY18", "IHSJU18", "IHSJL18", 
"IHSAU18", "IHSSE18", "IHSOC18", "IHSNO18", "IHSDE18", "PUBJA18X", "PUBFE18X", "PUBMA18X", "PUBAP18X", "PUBMY18X", 
"PUBJU18X", "PUBJL18X", "PUBAU18X", "PUBSE18X", "PUBOC18X", "PUBNO18X", "PUBDE18X", "PEGJA18", "PEGFE18", "PEGMA18", 
"PEGAP18", "PEGMY18", "PEGJU18", "PEGJL18", "PEGAU18", "PEGSE18", "PEGOC18", "PEGNO18", "PEGDE18", "PDKJA18", 
"PDKFE18", "PDKMA18", "PDKAP18", "PDKMY18", "PDKJU18", "PDKJL18", "PDKAU18", "PDKSE18", "PDKOC18", "PDKNO18", 
"PDKDE18", "PNGJA18", "PNGFE18", "PNGMA18", "PNGAP18", "PNGMY18", "PNGJU18", "PNGJL18", "PNGAU18", "PNGSE18", 
"PNGOC18", "PNGNO18", "PNGDE18", "POGJA18", "POGFE18", "POGMA18", "POGAP18", "POGMY18", "POGJU18", "POGJL18", 
"POGAU18", "POGSE18", "POGOC18", "POGNO18", "POGDE18", "POEJA18", "POEFE18", "POEMA18", "POEAP18", "POEMY18", 
"POEJU18", "POEJL18", "POEAU18", "POESE18", "POEOC18", "POENO18", "POEDE18", "PNEJA18", "PNEFE18", "PNEMA18", 
"PNEAP18", "PNEMY18", "PNEJU18", "PNEJL18", "PNEAU18", "PNESE18", "PNEOC18", "PNENO18", "PNEDE18", "PRXJA18", 
"PRXFE18", "PRXMA18", "PRXAP18", "PRXMY18", "PRXJU18", "PRXJL18", "PRXAU18", "PRXSE18", "PRXOC18", "PRXNO18", 
"PRXDE18", "PRIJA18", "PRIFE18", "PRIMA18", "PRIAP18", "PRIMY18", "PRIJU18", "PRIJL18", "PRIAU18", "PRISE18", 
"PRIOC18", "PRINO18", "PRIDE18", "HPEJA18", "HPEFE18", "HPEMA18", "HPEAP18", "HPEMY18", "HPEJU18", "HPEJL18", 
"HPEAU18", "HPESE18", "HPEOC18", "HPENO18", "HPEDE18", "HPDJA18", "HPDFE18", "HPDMA18", "HPDAP18", "HPDMY18", 
"HPDJU18", "HPDJL18", "HPDAU18", "HPDSE18", "HPDOC18", "HPDNO18", "HPDDE18", "HPNJA18", "HPNFE18", "HPNMA18", 
"HPNAP18", "HPNMY18", "HPNJU18", "HPNJL18", "HPNAU18", "HPNSE18", "HPNOC18", "HPNNO18", "HPNDE18", "HPOJA18", 
"HPOFE18", "HPOMA18", "HPOAP18", "HPOMY18", "HPOJU18", "HPOJL18", "HPOAU18", "HPOSE18", "HPOOC18", "HPONO18", 
"HPODE18", "HPXJA18", "HPXFE18", "HPXMA18", "HPXAP18", "HPXMY18", "HPXJU18", "HPXJL18", "HPXAU18", "HPXSE18", 
"HPXOC18", "HPXNO18", "HPXDE18", "HPRJA18", "HPRFE18", "HPRMA18", "HPRAP18", "HPRMY18", "HPRJU18", "HPRJL18", 
"HPRAU18", "HPRSE18", "HPROC18", "HPRNO18", "HPRDE18", "INSJA18X", "INSFE18X", "INSMA18X", "INSAP18X", "INSMY18X", 
"INSJU18X", "INSJL18X", "INSAU18X", "INSSE18X", "INSOC18X", "INSNO18X", "INSDE18X", "PRVEV18", "TRIEV18", "MCREV18", 
"MCDEV18", "VAEV18", "GVAEV18", "GVBEV18", "GVCEV18", "UNINS18", "INSCOV18", "INSURC18", "TRIST31X", "TRIST42X", 
"TRIST18X", "TRIPR31X", "TRIPR42X", "TRIPR18X", "TRIEX31X", "TRIEX42X", "TRIEX18X", "TRILI31X", "TRILI42X", "TRILI18X", 
"TRICH31X", "TRICH42X", "TRICH18X", "MCRPD31", "MCRPD42", "MCRPD18", "MCRPD31X", "MCRPD42X", "MCRPD18X", "MCRPB31", 
"MCRPB42", "MCRPB18", "MCRPHO31", "MCRPHO42", "MCRPHO18", "MCDHMO31", "MCDHMO42", "MCDHMO18", "MCDMC31", "MCDMC42", 
"MCDMC18", "PRVHMO31", "PRVHMO42", "PRVHMO18", "FSAGT31", "HASFSA31", "PFSAMT31", "PREVCOVR", "MORECOVR", "TRICR31X", 
"TRICR42X", "TRICR53X", "TRICR18X", "TRIAT31X", "TRIAT42X", "TRIAT53X", "TRIAT18X", "MCAID31", "MCAID42", "MCAID53", 
"MCAID18", "MCAID31X", "MCAID42X", "MCAID53X", "MCAID18X", "MCARE31", "MCARE42", "MCARE53", "MCARE18", "MCARE31X", 
"MCARE42X", "MCARE53X", "MCARE18X", "MCDAT31X", "MCDAT42X", "MCDAT53X", "MCDAT18X", "GOVTA31", "GOVTA42", "GOVTA53", 
"GOVTA18", "GOVAAT31", "GOVAAT42", "GOVAAT53", "GOVAAT18", "GOVTB31", "GOVTB42", "GOVTB53", "GOVTB18", "GOVBAT31", 
"GOVBAT42", "GOVBAT53", "GOVBAT18", "GOVTC31", "GOVTC42", "GOVTC53", "GOVTC18", "GOVCAT31", "GOVCAT42", "GOVCAT53", 
"GOVCAT18", "VAPROG31", "VAPROG42", "VAPROG53", "VAPROG18", "VAPRAT31", "VAPRAT42", "VAPRAT53", "VAPRAT18", "IHS31", 
"IHS42", "IHS53", "IHS18", "IHSAT31", "IHSAT42", "IHSAT53", "IHSAT18", "PRIDK31", "PRIDK42", "PRIDK53", 
"PRIDK18", "PRIEU31", "PRIEU42", "PRIEU53", "PRIEU18", "PRING31", "PRING42", "PRING53", "PRING18", "PRIOG31", 
"PRIOG42", "PRIOG53", "PRIOG18", "PRINEO31", "PRINEO42", "PRINEO53", "PRINEO18", "PRIEUO31", "PRIEUO42", "PRIEUO53", 
"PRIEUO18", "PRSTX31", "PRSTX42", "PRSTX53", "PRSTX18", "PRIV31", "PRIV42", "PRIV53", "PRIV18", "PRIVAT31", 
"PRIVAT42", "PRIVAT53", "PRIVAT18", "PUB31X", "PUB42X", "PUB53X", "PUB18X", "PUBAT31X", "PUBAT42X", "PUBAT53X", 
"PUBAT18X", "VERFLG31", "VERFLG42", "VERFLG18", "INS31X", "INS42X", "INS53X", "INS18X", "INSAT31X", "INSAT42X", 
"INSAT53X", "INSAT18X", "DENTIN31", "DENTIN42", "DENTIN53", "DNTINS31", "DNTINS18", "PMEDIN31", "PMEDIN42", "PMEDIN53", 
"PMDINS31", "PMDINS18", "PROBPY42", "CRFMPY42", "PYUNBL42", "PMEDUP31", "PMEDUP42", "PMEDUP53", "PMEDPY31", "PMEDPY42", 
"PMEDPY53", "TOTTCH18", "TOTEXP18", "TOTSLF18", "TOTMCR18", "TOTMCD18", "TOTPRV18", "TOTVA18", "TOTTRI18", "TOTOFD18", 
"TOTSTL18", "TOTWCP18", "TOTOPR18", "TOTOPU18", "TOTOSR18", "TOTPTR18", "TOTOTH18", "OBTOTV18", "OBVTCH18", "OBVEXP18", 
"OBVSLF18", "OBVMCR18", "OBVMCD18", "OBVPRV18", "OBVVA18", "OBVTRI18", "OBVOFD18", "OBVSTL18", "OBVWCP18", "OBVOPR18", 
"OBVOPU18", "OBVOSR18", "OBVPTR18", "OBVOTH18", "OBDRV18", "OBDTCH18", "OBDEXP18", "OBDSLF18", "OBDMCR18", "OBDMCD18", 
"OBDPRV18", "OBDVA18", "OBDTRI18", "OBDOFD18", "OBDSTL18", "OBDWCP18", "OBDOPR18", "OBDOPU18", "OBDOSR18", "OBDPTR18", 
"OBDOTH18", "OPTOTV18", "OPTTCH18", "OPTEXP18", "OPTSLF18", "OPTMCR18", "OPTMCD18", "OPTPRV18", "OPTVA18", "OPTTRI18", 
"OPTOFD18", "OPTSTL18", "OPTWCP18", "OPTOPR18", "OPTOPU18", "OPTOSR18", "OPTPTR18", "OPTOTH18", "OPFTCH18", "OPFEXP18", 
"OPFSLF18", "OPFMCR18", "OPFMCD18", "OPFPRV18", "OPFVA18", "OPFTRI18", "OPFOFD18", "OPFSTL18", "OPFWCP18", "OPFOPR18", 
"OPFOPU18", "OPFOSR18", "OPFPTR18", "OPFOTH18", "OPDEXP18", "OPDTCH18", "OPDSLF18", "OPDMCR18", "OPDMCD18", "OPDPRV18", 
"OPDVA18", "OPDTRI18", "OPDOFD18", "OPDSTL18", "OPDWCP18", "OPDOPR18", "OPDOPU18", "OPDOSR18", "OPDPTR18", "OPDOTH18", 
"OPDRV18", "OPVTCH18", "OPVEXP18", "OPVSLF18", "OPVMCR18", "OPVMCD18", "OPVPRV18", "OPVVA18", "OPVTRI18", "OPVOFD18", 
"OPVSTL18", "OPVWCP18", "OPVOPR18", "OPVOPU18", "OPVOSR18", "OPVPTR18", "OPVOTH18", "OPSEXP18", "OPSTCH18", "OPSSLF18", 
"OPSMCR18", "OPSMCD18", "OPSPRV18", "OPSVA18", "OPSTRI18", "OPSOFD18", "OPSSTL18", "OPSWCP18", "OPSOPR18", "OPSOPU18", 
"OPSOSR18", "OPSPTR18", "OPSOTH18", "ERTOT18", "ERTTCH18", "ERTEXP18", "ERTSLF18", "ERTMCR18", "ERTMCD18", "ERTPRV18", 
"ERTVA18", "ERTTRI18", "ERTOFD18", "ERTSTL18", "ERTWCP18", "ERTOPR18", "ERTOPU18", "ERTOSR18", "ERTPTR18", "ERTOTH18", 
"ERFTCH18", "ERFEXP18", "ERFSLF18", "ERFMCR18", "ERFMCD18", "ERFPRV18", "ERFVA18", "ERFTRI18", "ERFOFD18", "ERFSTL18", 
"ERFWCP18", "ERFOPR18", "ERFOPU18", "ERFOSR18", "ERFPTR18", "ERFOTH18", "ERDEXP18", "ERDTCH18", "ERDSLF18", "ERDMCR18", 
"ERDMCD18", "ERDPRV18", "ERDVA18", "ERDTRI18", "ERDOFD18", "ERDSTL18", "ERDWCP18", "ERDOPR18", "ERDOPU18", "ERDOSR18", 
"ERDPTR18", "ERDOTH18", "IPDIS18", "IPTEXP18", "IPTTCH18", "IPTSLF18", "IPTMCR18", "IPTMCD18", "IPTPRV18", "IPTVA18", 
"IPTTRI18", "IPTOFD18", "IPTSTL18", "IPTWCP18", "IPTOPR18", "IPTOPU18", "IPTOSR18", "IPTPTR18", "IPTOTH18", "IPFEXP18", 
"IPFTCH18", "IPFSLF18", "IPFMCR18", "IPFMCD18", "IPFPRV18", "IPFVA18", "IPFTRI18", "IPFOFD18", "IPFSTL18", "IPFWCP18", 
"IPFOPR18", "IPFOPU18", "IPFOSR18", "IPFPTR18", "IPFOTH18", "IPDEXP18", "IPDTCH18", "IPDSLF18", "IPDMCR18", "IPDMCD18", 
"IPDPRV18", "IPDVA18", "IPDTRI18", "IPDOFD18", "IPDSTL18", "IPDWCP18", "IPDOPR18", "IPDOPU18", "IPDOSR18", "IPDPTR18", 
"IPDOTH18", "IPNGTD18", "DVTOT18", "DVTTCH18", "DVTEXP18", "DVTSLF18", "DVTMCR18", "DVTMCD18", "DVTPRV18", "DVTVA18", 
"DVTTRI18", "DVTOFD18", "DVTSTL18", "DVTWCP18", "DVTOPR18", "DVTOPU18", "DVTOSR18", "DVTPTR18", "DVTOTH18", "HHTOTD18", 
"HHAGD18", "HHATCH18", "HHAEXP18", "HHASLF18", "HHAMCR18", "HHAMCD18", "HHAPRV18", "HHAVA18", "HHATRI18", "HHAOFD18", 
"HHASTL18", "HHAWCP18", "HHAOPR18", "HHAOPU18", "HHAOSR18", "HHAPTR18", "HHAOTH18", "HHINDD18", "HHNTCH18", "HHNEXP18", 
"HHNSLF18", "HHNMCD18", "HHNMCR18", "HHNPRV18", "HHNVA18", "HHNTRI18", "HHNOFD18", "HHNSTL18", "HHNWCP18", "HHNOPR18", 
"HHNOPU18", "HHNOSR18", "HHNPTR18", "HHNOTH18", "HHINFD18", "VISEXP18", "VISTCH18", "VISSLF18", "VISMCR18", "VISMCD18", 
"VISPRV18", "VISVA18", "VISTRI18", "VISOFD18", "VISSTL18", "VISWCP18", "VISOPR18", "VISOPU18", "VISOSR18", "VISPTR18", 
"VISOTH18", "OTHTCH18", "OTHEXP18", "OTHSLF18", "OTHMCR18", "OTHMCD18", "OTHPRV18", "OTHVA18", "OTHTRI18", "OTHOFD18", 
"OTHSTL18", "OTHWCP18", "OTHOPR18", "OTHOPU18", "OTHOSR18", "OTHPTR18", "OTHOTH18", "RXTOT18", "RXEXP18", "RXSLF18", 
"RXMCR18", "RXMCD18", "RXPRV18", "RXVA18", "RXTRI18", "RXOFD18", "RXSTL18", "RXWCP18", "RXOPR18", "RXOPU18", 
"RXOSR18", "RXPTR18", "RXOTH18", "PERWT18F", "FAMWT18F", "FAMWT18C", "SAQWT18F", "DIABW18F", "VSAQW18F", "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", "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", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "n", "n", "n", 
"n", "n", "n", "n", "n", "n", "n", "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 -----------------------

h209 <- 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(h209, file ="h209.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 'h209'.      
#     You must run the 'save' command to permanently save the data to a local  
#     folder                                   
# -----------------------------------------------------------------------------