# -----------------------------------------------------------------------------             
# R programming statements for h243 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 (h243.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 'h243'.            
#                                                       
# 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 h243.dat file.)                                   
#                                                       
#     meps_path <- "C:/MEPS/h243.dat"                             
#     source("https://meps.ahrq.gov/mepsweb/data_stats/download_data/pufs/h243/h243ru.txt")
#     head(h243) # 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 h243 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/h243dat.zip" 
#           download.file(url, temp <- tempfile())                              
#                                                       
#     meps_path <- unzip(temp, exdir = tempdir())                               
#     source("https://meps.ahrq.gov/mepsweb/data_stats/download_data/pufs/h243/h243ru.txt")
#                                                       
#           unlink(temp)  # Unlink to delete temporary file                         
#                                                       
#           head(h243) # view data                                 
#                                                       
# -----------------------------------------------------------------------------             
                                                        
# DEFINE 'meps_path' -----------------------------------------------------------            
# 'meps_path' should point to the file path of the ASCII file (h243.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/h243.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, 27, 29, 31, 33, 35, 
37, 39, 41, 43, 45, 47, 49, 52, 54, 56, 
58, 60, 62, 64, 66, 67, 69, 71, 73, 75, 
77, 79, 81, 82, 84, 86, 88, 90, 93, 96, 
99, 102, 103, 104, 105, 106, 108, 110, 112, 113, 
115, 117, 119, 121, 123, 127, 129, 133, 135, 139, 
141, 145, 147, 151, 153, 157, 159, 163, 164, 165, 
166, 167, 168, 169, 170, 171, 172, 173, 174, 176, 
178, 180, 182, 184, 186, 188, 190, 192, 194, 196, 
198, 202, 203, 204, 206, 207, 208, 209, 210, 211, 
212, 214, 216, 218, 220, 223, 226, 229, 232, 235, 
238, 241, 244, 246, 248, 250, 252, 254, 256, 258, 
260, 262, 264, 266, 268, 270, 272, 274, 276, 278, 
280, 283, 286, 289, 292, 295, 298, 300, 302, 304, 
306, 308, 310, 312, 314, 316, 318, 320, 322, 324, 
326, 328, 330, 332, 334, 336, 339, 341, 343, 345, 
347, 349, 351, 353, 355, 357, 359, 361, 363, 365, 
367, 369, 371, 373, 376, 378, 380, 382, 384, 386, 
388, 390, 392, 394, 396, 398, 400, 402, 404, 406, 
408, 410, 412, 414, 417, 421, 423, 425, 427, 429, 
431, 433, 435, 437, 439, 441, 443, 445, 447, 449, 
451, 453, 455, 457, 459, 461, 463, 465, 467, 469, 
471, 473, 475, 477, 479, 481, 483, 486, 488, 490, 
492, 494, 496, 498, 500, 502, 504, 506, 508, 510, 
512, 514, 516, 518, 520, 522, 524, 529, 531, 533, 
535, 537, 539, 541, 543, 545, 547, 549, 551, 553, 
555, 557, 559, 561, 563, 565, 567, 569, 571, 573, 
575, 577, 579, 580, 583, 586, 589, 592, 595, 598, 
601, 604, 607, 610, 613, 616, 619, 622, 625, 628, 
631, 634, 637, 640, 643, 646, 649, 652, 655, 658, 
661, 664, 667, 670, 673, 676, 679, 682, 685, 688, 
691, 694, 697, 700, 703, 706, 709, 712, 715, 718, 
721, 724, 727, 730, 733, 736, 739, 742, 745, 748, 
751, 754, 757, 760, 763, 766, 769, 772, 775, 778, 
781, 784, 787, 790, 793, 796, 799, 802, 805, 808, 
814, 820, 822, 825, 829, 831, 836, 837, 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, 919, 921, 923, 925, 927, 
930, 933, 936, 939, 942, 944, 946, 948, 950, 952, 
954, 956, 958, 960, 962, 964, 966, 968, 970, 972, 
974, 976, 978, 980, 982, 984, 986, 988, 990, 992, 
994, 996, 998, 1000, 1002, 1005, 1008, 1011, 1013, 1016, 
1019, 1022, 1024, 1030, 1036, 1042, 1043, 1044, 1045, 1048, 
1051, 1054, 1057, 1060, 1063, 1069, 1075, 1081, 1084, 1087, 
1090, 1093, 1096, 1099, 1102, 1105, 1108, 1111, 1114, 1117, 
1120, 1123, 1126, 1129, 1132, 1135, 1138, 1141, 1144, 1147, 
1150, 1153, 1156, 1159, 1162, 1165, 1168, 1171, 1174, 1176, 
1178, 1181, 1184, 1186, 1188, 1191, 1195, 1198, 1202, 1205, 
1209, 1212, 1215, 1218, 1221, 1224, 1227, 1230, 1233, 1236, 
1239, 1242, 1245, 1248, 1251, 1254, 1257, 1260, 1263, 1266, 
1269, 1272, 1275, 1278, 1281, 1284, 1287, 1290, 1293, 1296, 
1299, 1302, 1304, 1306, 1308, 1310, 1312, 1314, 1317, 1320, 
1323, 1325, 1327, 1329, 1331, 1333, 1335, 1337, 1339, 1341, 
1344, 1347, 1350, 1352, 1354, 1356, 1358, 1360, 1362, 1364, 
1366, 1368, 1374, 1380, 1386, 1388, 1390, 1392, 1394, 1396, 
1398, 1400, 1402, 1404, 1406, 1408, 1410, 1412, 1414, 1416, 
1418, 1420, 1422, 1424, 1426, 1428, 1430, 1432, 1434, 1436, 
1438, 1441, 1443, 1445, 1447, 1452, 1459, 1466, 1467, 1475, 
1481, 1482, 1489, 1490, 1495, 1496, 1501, 1502, 1508, 1509, 
1514, 1515, 1522, 1523, 1529, 1530, 1535, 1536, 1543, 1544, 
1549, 1550, 1556, 1557, 1562, 1563, 1568, 1569, 1574, 1575, 
1580, 1581, 1585, 1586, 1592, 1593, 1602, 1604, 1606, 1608, 
1610, 1612, 1614, 1616, 1618, 1620, 1622, 1624, 1626, 1628, 
1630, 1632, 1634, 1636, 1638, 1640, 1642, 1644, 1646, 1648, 
1650, 1652, 1654, 1656, 1658, 1660, 1662, 1664, 1666, 1668, 
1670, 1672, 1674, 1676, 1678, 1680, 1682, 1684, 1686, 1688, 
1690, 1692, 1694, 1696, 1698, 1700, 1702, 1704, 1706, 1708, 
1710, 1712, 1714, 1716, 1718, 1720, 1722, 1724, 1726, 1728, 
1730, 1732, 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, 2227, 
2228, 2229, 2230, 2231, 2232, 2233, 2234, 2235, 2236, 2237, 
2239, 2241, 2243, 2245, 2247, 2249, 2252, 2255, 2258, 2261, 
2264, 2267, 2270, 2273, 2276, 2279, 2282, 2285, 2288, 2291, 
2294, 2297, 2300, 2303, 2306, 2308, 2311, 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, 2400, 2402, 
2404, 2406, 2408, 2410, 2412, 2414, 2416, 2418, 2420, 2422, 
2424, 2426, 2428, 2430, 2432, 2434, 2436, 2438, 2440, 2442, 
2444, 2446, 2448, 2450, 2452, 2454, 2456, 2458, 2460, 2462, 
2464, 2466, 2468, 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, 2603, 
2606, 2609, 2616, 2623, 2629, 2635, 2642, 2648, 2654, 2660, 
2665, 2670, 2675, 2680, 2686, 2691, 2694, 2701, 2707, 2713, 
2719, 2725, 2731, 2736, 2742, 2747, 2752, 2757, 2762, 2768, 
2773, 2776, 2782, 2788, 2794, 2800, 2805, 2811, 2816, 2822, 
2826, 2831, 2836, 2841, 2847, 2852, 2855, 2861, 2867, 2872, 
2878, 2883, 2889, 2895, 2900, 2904, 2908, 2913, 2917, 2923, 
2927, 2933, 2939, 2944, 2950, 2955, 2961, 2967, 2972, 2976, 
2980, 2985, 2989, 2995, 2999, 3004, 3010, 3015, 3020, 3024, 
3029, 3033, 3037, 3038, 3041, 3045, 3049, 3054, 3058, 3060, 
3066, 3072, 3077, 3083, 3088, 3094, 3099, 3104, 3108, 3112, 
3117, 3121, 3127, 3131, 3136, 3142, 3147, 3152, 3156, 3161, 
3165, 3169, 3170, 3171, 3175, 3179, 3184, 3188, 3190, 3196, 
3202, 3206, 3211, 3216, 3222, 3226, 3230, 3235, 3239, 3244, 
3249, 3255, 3260, 3266, 3272, 3276, 3281, 3286, 3292, 3296, 
3300, 3305, 3309, 3314, 3319, 3325, 3330, 3335, 3340, 3344, 
3348, 3352, 3357, 3361, 3365, 3368, 3370, 3374, 3377, 3382, 
3385, 3386, 3392, 3399, 3405, 3411, 3416, 3422, 3428, 3434, 
3439, 3444, 3449, 3454, 3460, 3465, 3471, 3478, 3484, 3490, 
3495, 3501, 3507, 3513, 3518, 3523, 3528, 3533, 3539, 3544, 
3549, 3555, 3559, 3564, 3569, 3574, 3578, 3582, 3583, 3584, 
3588, 3593, 3598, 3603, 3606, 3608, 3613, 3618, 3623, 3628, 
3633, 3638, 3642, 3646, 3650, 3654, 3657, 3662, 3667, 3672, 
3675, 3678, 3685, 3691, 3696, 3701, 3707, 3713, 3718, 3721, 
3722, 3727, 3728, 3733, 3739, 3744, 3747, 3753, 3759, 3764, 
3770, 3775, 3780, 3784, 3788, 3789, 3790, 3791, 3796, 3801, 
3806, 3809, 3813, 3817, 3821, 3825, 3829, 3833, 3837, 3840, 
3843, 3846, 3847, 3850, 3854, 3857, 3863, 3868, 3873, 3878, 
3883, 3888, 3892, 3897, 3901, 3905, 3910, 3915, 3920, 3925, 
3928, 3935, 3940, 3946, 3953, 3959, 3964, 3970, 3975, 3980, 
3985, 3990, 3996, 4001, 4014, 4027, 4040, 4053, 4066, 4070)


pos_end <- c(
7, 10, 20, 22, 26, 28, 30, 32, 34, 36, 
38, 40, 42, 44, 46, 48, 51, 53, 55, 57, 
59, 61, 63, 65, 66, 68, 70, 72, 74, 76, 
78, 80, 81, 83, 85, 87, 89, 92, 95, 98, 
101, 102, 103, 104, 105, 107, 109, 111, 112, 114, 
116, 118, 120, 122, 126, 128, 132, 134, 138, 140, 
144, 146, 150, 152, 156, 158, 162, 163, 164, 165, 
166, 167, 168, 169, 170, 171, 172, 173, 175, 177, 
179, 181, 183, 185, 187, 189, 191, 193, 195, 197, 
201, 202, 203, 205, 206, 207, 208, 209, 210, 211, 
213, 215, 217, 219, 222, 225, 228, 231, 234, 237, 
240, 243, 245, 247, 249, 251, 253, 255, 257, 259, 
261, 263, 265, 267, 269, 271, 273, 275, 277, 279, 
282, 285, 288, 291, 294, 297, 299, 301, 303, 305, 
307, 309, 311, 313, 315, 317, 319, 321, 323, 325, 
327, 329, 331, 333, 335, 338, 340, 342, 344, 346, 
348, 350, 352, 354, 356, 358, 360, 362, 364, 366, 
368, 370, 372, 375, 377, 379, 381, 383, 385, 387, 
389, 391, 393, 395, 397, 399, 401, 403, 405, 407, 
409, 411, 413, 416, 420, 422, 424, 426, 428, 430, 
432, 434, 436, 438, 440, 442, 444, 446, 448, 450, 
452, 454, 456, 458, 460, 462, 464, 466, 468, 470, 
472, 474, 476, 478, 480, 482, 485, 487, 489, 491, 
493, 495, 497, 499, 501, 503, 505, 507, 509, 511, 
513, 515, 517, 519, 521, 523, 528, 530, 532, 534, 
536, 538, 540, 542, 544, 546, 548, 550, 552, 554, 
556, 558, 560, 562, 564, 566, 568, 570, 572, 574, 
576, 578, 579, 582, 585, 588, 591, 594, 597, 600, 
603, 606, 609, 612, 615, 618, 621, 624, 627, 630, 
633, 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, 720, 
723, 726, 729, 732, 735, 738, 741, 744, 747, 750, 
753, 756, 759, 762, 765, 768, 771, 774, 777, 780, 
783, 786, 789, 792, 795, 798, 801, 804, 807, 813, 
819, 821, 824, 828, 830, 835, 836, 838, 841, 844, 
847, 850, 853, 856, 859, 862, 865, 868, 871, 874, 
877, 880, 883, 886, 889, 892, 895, 898, 901, 904, 
907, 910, 913, 916, 918, 920, 922, 924, 926, 929, 
932, 935, 938, 941, 943, 945, 947, 949, 951, 953, 
955, 957, 959, 961, 963, 965, 967, 969, 971, 973, 
975, 977, 979, 981, 983, 985, 987, 989, 991, 993, 
995, 997, 999, 1001, 1004, 1007, 1010, 1012, 1015, 1018, 
1021, 1023, 1029, 1035, 1041, 1042, 1043, 1044, 1047, 1050, 
1053, 1056, 1059, 1062, 1068, 1074, 1080, 1083, 1086, 1089, 
1092, 1095, 1098, 1101, 1104, 1107, 1110, 1113, 1116, 1119, 
1122, 1125, 1128, 1131, 1134, 1137, 1140, 1143, 1146, 1149, 
1152, 1155, 1158, 1161, 1164, 1167, 1170, 1173, 1175, 1177, 
1180, 1183, 1185, 1187, 1190, 1194, 1197, 1201, 1204, 1208, 
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, 1303, 1305, 1307, 1309, 1311, 1313, 1316, 1319, 1322, 
1324, 1326, 1328, 1330, 1332, 1334, 1336, 1338, 1340, 1343, 
1346, 1349, 1351, 1353, 1355, 1357, 1359, 1361, 1363, 1365, 
1367, 1373, 1379, 1385, 1387, 1389, 1391, 1393, 1395, 1397, 
1399, 1401, 1403, 1405, 1407, 1409, 1411, 1413, 1415, 1417, 
1419, 1421, 1423, 1425, 1427, 1429, 1431, 1433, 1435, 1437, 
1440, 1442, 1444, 1446, 1451, 1458, 1465, 1466, 1474, 1480, 
1481, 1488, 1489, 1494, 1495, 1500, 1501, 1507, 1508, 1513, 
1514, 1521, 1522, 1528, 1529, 1534, 1535, 1542, 1543, 1548, 
1549, 1555, 1556, 1561, 1562, 1567, 1568, 1573, 1574, 1579, 
1580, 1584, 1585, 1591, 1592, 1601, 1603, 1605, 1607, 1609, 
1611, 1613, 1615, 1617, 1619, 1621, 1623, 1625, 1627, 1629, 
1631, 1633, 1635, 1637, 1639, 1641, 1643, 1645, 1647, 1649, 
1651, 1653, 1655, 1657, 1659, 1661, 1663, 1665, 1667, 1669, 
1671, 1673, 1675, 1677, 1679, 1681, 1683, 1685, 1687, 1689, 
1691, 1693, 1695, 1697, 1699, 1701, 1703, 1705, 1707, 1709, 
1711, 1713, 1715, 1717, 1719, 1721, 1723, 1725, 1727, 1729, 
1731, 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, 2226, 2227, 
2228, 2229, 2230, 2231, 2232, 2233, 2234, 2235, 2236, 2238, 
2240, 2242, 2244, 2246, 2248, 2251, 2254, 2257, 2260, 2263, 
2266, 2269, 2272, 2275, 2278, 2281, 2284, 2287, 2290, 2293, 
2296, 2299, 2302, 2305, 2307, 2310, 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, 2401, 2403, 
2405, 2407, 2409, 2411, 2413, 2415, 2417, 2419, 2421, 2423, 
2425, 2427, 2429, 2431, 2433, 2435, 2437, 2439, 2441, 2443, 
2445, 2447, 2449, 2451, 2453, 2455, 2457, 2459, 2461, 2463, 
2465, 2467, 2469, 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, 2602, 2605, 
2608, 2615, 2622, 2628, 2634, 2641, 2647, 2653, 2659, 2664, 
2669, 2674, 2679, 2685, 2690, 2693, 2700, 2706, 2712, 2718, 
2724, 2730, 2735, 2741, 2746, 2751, 2756, 2761, 2767, 2772, 
2775, 2781, 2787, 2793, 2799, 2804, 2810, 2815, 2821, 2825, 
2830, 2835, 2840, 2846, 2851, 2854, 2860, 2866, 2871, 2877, 
2882, 2888, 2894, 2899, 2903, 2907, 2912, 2916, 2922, 2926, 
2932, 2938, 2943, 2949, 2954, 2960, 2966, 2971, 2975, 2979, 
2984, 2988, 2994, 2998, 3003, 3009, 3014, 3019, 3023, 3028, 
3032, 3036, 3037, 3040, 3044, 3048, 3053, 3057, 3059, 3065, 
3071, 3076, 3082, 3087, 3093, 3098, 3103, 3107, 3111, 3116, 
3120, 3126, 3130, 3135, 3141, 3146, 3151, 3155, 3160, 3164, 
3168, 3169, 3170, 3174, 3178, 3183, 3187, 3189, 3195, 3201, 
3205, 3210, 3215, 3221, 3225, 3229, 3234, 3238, 3243, 3248, 
3254, 3259, 3265, 3271, 3275, 3280, 3285, 3291, 3295, 3299, 
3304, 3308, 3313, 3318, 3324, 3329, 3334, 3339, 3343, 3347, 
3351, 3356, 3360, 3364, 3367, 3369, 3373, 3376, 3381, 3384, 
3385, 3391, 3398, 3404, 3410, 3415, 3421, 3427, 3433, 3438, 
3443, 3448, 3453, 3459, 3464, 3470, 3477, 3483, 3489, 3494, 
3500, 3506, 3512, 3517, 3522, 3527, 3532, 3538, 3543, 3548, 
3554, 3558, 3563, 3568, 3573, 3577, 3581, 3582, 3583, 3587, 
3592, 3597, 3602, 3605, 3607, 3612, 3617, 3622, 3627, 3632, 
3637, 3641, 3645, 3649, 3653, 3656, 3661, 3666, 3671, 3674, 
3677, 3684, 3690, 3695, 3700, 3706, 3712, 3717, 3720, 3721, 
3726, 3727, 3732, 3738, 3743, 3746, 3752, 3758, 3763, 3769, 
3774, 3779, 3783, 3787, 3788, 3789, 3790, 3795, 3800, 3805, 
3808, 3812, 3816, 3820, 3824, 3828, 3832, 3836, 3839, 3842, 
3845, 3846, 3849, 3853, 3856, 3862, 3867, 3872, 3877, 3882, 
3887, 3891, 3896, 3900, 3904, 3909, 3914, 3919, 3924, 3927, 
3934, 3939, 3945, 3952, 3958, 3963, 3969, 3974, 3979, 3984, 
3989, 3995, 4000, 4013, 4026, 4039, 4052, 4065, 4069, 4070)


var_names <- c(
"DUID", "PID", "DUPERSID", "PANEL", "DATAYEAR", "FAMID31", "FAMID42", "FAMID53", "FAMID22", "FAMIDYR", 
"CPSFAMID", "FCSZ1231", "FCRP1231", "RULETR31", "RULETR42", "RULETR53", "RULETR22", "RUSIZE31", "RUSIZE42", "RUSIZE53", 
"RUSIZE22", "RUCLAS31", "RUCLAS42", "RUCLAS53", "RUCLAS22", "FAMSZE31", "FAMSZE42", "FAMSZE53", "FAMSZE22", "FMRS1231", 
"FAMS1231", "FAMSZEYR", "FAMRFPYR", "REGION31", "REGION42", "REGION53", "REGION22", "REFPRS31", "REFPRS42", "REFPRS53", 
"REFPRS22", "RESP31", "RESP42", "RESP53", "RESP22", "PROXY31", "PROXY42", "PROXY53", "PROXY22", "INTVLANG", 
"INTVTYPE31", "INTVTYPE42", "INTVTYPE53", "BEGRFM31", "BEGRFY31", "ENDRFM31", "ENDRFY31", "BEGRFM42", "BEGRFY42", "ENDRFM42", 
"ENDRFY42", "BEGRFM53", "BEGRFY53", "ENDRFM53", "ENDRFY53", "ENDRFM22", "ENDRFY22", "KEYNESS", "INSCOP31", "INSCOP42", 
"INSCOP53", "INSCOP22", "INSC1231", "INSCOPE", "ELGRND31", "ELGRND42", "ELGRND53", "ELGRND22", "PSTATS31", "PSTATS42", 
"PSTATS53", "RURSLT31", "RURSLT42", "RURSLT53", "AGE31X", "AGE42X", "AGE53X", "AGE22X", "AGELAST", "DOBMM", 
"DOBYY", "SEX", "RACEV1X", "RACEV2X", "RACEAX", "RACEBX", "RACEWX", "RACETHX", "HISPANX", "HISPNCAT", 
"MARRY31X", "MARRY42X", "MARRY53X", "MARRY22X", "SPOUID31", "SPOUID42", "SPOUID53", "SPOUID22", "SPOUIN31", "SPOUIN42", 
"SPOUIN53", "SPOUIN22", "EDUCYR", "HIDEG", "FTSTU31X", "FTSTU42X", "FTSTU53X", "FTSTU22X", "ACTDTY31", "ACTDTY42", 
"ACTDTY53", "REFRL31X", "REFRL42X", "REFRL53X", "REFRL22X", "OTHLGSPK", "WHTLGSPK", "HWELLSPK", "BORNUSA", "YRSINUS", 
"MOPID31X", "MOPID42X", "MOPID53X", "DAPID31X", "DAPID42X", "DAPID53X", "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", "COVIDEVER53", "LCEVER53", 
"COVSYMNOW53", "COVREDABIL53", "COVID12MO53", "COVMNTHX53", "COVYRDX53", "RTHLTH31", "RTHLTH42", "RTHLTH53", "MNHLTH31", "MNHLTH42", 
"MNHLTH53", "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", "ANYLMI22", "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", "COVAXEVR31", "COVAXEVR42", "COVAXEVR53", "BOOSTERSHOT31", 
"BOOSTERSHOT42", "COVAXNEW53", "SAQELIG", "ADPROX42", "ADSEX42", "ADAGE42", "ADGENH42", "ADDAYA42", "ADCLIM42", "ADACLS42", 
"ADWKLM42", "ADEMLS42", "ADMWCF42", "ADPAIN42", "ADPCFL42", "ADENGY42", "ADPRST42", "ADSOCA42", "ADCOMPAN42", "ADLEFTOUT42", 
"ADISOL42", "ADNERV42", "ADHOPE42", "ADREST42", "ADSAD42", "ADEFRT42", "ADWRTH42", "K6SUM42", "ADINTR42", "ADDPRS42", 
"PHQ242", "ADSLEEP42", "ADDAYEXER42", "ADMINSEXER42", "ADASKALC42", "ADNUMDRK42", "ADRNK542_M20", "ADRNK442_M20", "ADOFTALC42", "ADSTAL42", 
"ADMNTRT42", "ADUNABTRT42", "ADPROBTRT42", "ADTRTEXP42", "ADLATERENT42", "ADLATEUTIL42", "ADMISSCCLN42", "ADDEBT42", "ADUNEXPEXP42", "ADBRTC42", 
"ADMDVT42", "ADFLST42", "ADWGHD42", "ADWTAD42", "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", "VPCS42", 
"VMCS42", "VRFLAG42", "ADCMPM42", "ADCMPY42", "ADLANG42", "ADBMI42", "DCSELIG", "DSDIA53", "DSA1C53", "DSFT2353", 
"DSFT2253", "DSFT2153", "DSFB2153", "DSFTNV53", "DSEY2353", "DSEY2253", "DSEY2153", "DSEB2153", "DSEYNV53", "DSCH2353", 
"DSCH2253", "DSCH2153", "DSCB2153", "DSCHNV53", "DSFL2353", "DSFL2253", "DSFL2153", "DSVB2153", "DSFLNV53", "DSKIDN53", 
"DSEYPR53", "DSDIET53", "DSMED53", "DSINSU53", "DSCPCP53", "DSCNPC53", "DSCPHN53", "DSCINT53", "DSCGRP53", "DSCONF53", 
"DSPRX53", "DDNWRK22", "OTHDYS22", "OTHNDD22", "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", "FILEDR22", "WILFIL22", "FLSTAT22", "FILER22", "JTINRU22", 
"JNTPID22", "TAXFRM22", "FOODST22", "FOODMN22", "FOODVL22", "TTLP22X", "FAMINC22", "POVCAT22", "POVLEV22", "WAGEP22X", 
"WAGIMP22", "BUSNP22X", "BUSIMP22", "UNEMP22X", "UNEIMP22", "WCMPP22X", "WCPIMP22", "INTRP22X", "INTIMP22", "DIVDP22X", 
"DIVIMP22", "SALEP22X", "SALIMP22", "PENSP22X", "PENIMP22", "SSECP22X", "SSCIMP22", "TRSTP22X", "TRTIMP22", "VETSP22X", 
"VETIMP22", "IRASP22X", "IRAIMP22", "ALIMP22X", "ALIIMP22", "CHLDP22X", "CHLIMP22", "CASHP22X", "CSHIMP22", "SSIP22X", 
"SSIIMP22", "PUBP22X", "PUBIMP22", "OTHRP22X", "OTHIMP22", "HIEUIDX", "TRIJA22X", "TRIFE22X", "TRIMA22X", "TRIAP22X", 
"TRIMY22X", "TRIJU22X", "TRIJL22X", "TRIAU22X", "TRISE22X", "TRIOC22X", "TRINO22X", "TRIDE22X", "MCRJA22", "MCRFE22", 
"MCRMA22", "MCRAP22", "MCRMY22", "MCRJU22", "MCRJL22", "MCRAU22", "MCRSE22", "MCROC22", "MCRNO22", "MCRDE22", 
"MCRJA22X", "MCRFE22X", "MCRMA22X", "MCRAP22X", "MCRMY22X", "MCRJU22X", "MCRJL22X", "MCRAU22X", "MCRSE22X", "MCROC22X", 
"MCRNO22X", "MCRDE22X", "MCDJA22", "MCDFE22", "MCDMA22", "MCDAP22", "MCDMY22", "MCDJU22", "MCDJL22", "MCDAU22", 
"MCDSE22", "MCDOC22", "MCDNO22", "MCDDE22", "MCDJA22X", "MCDFE22X", "MCDMA22X", "MCDAP22X", "MCDMY22X", "MCDJU22X", 
"MCDJL22X", "MCDAU22X", "MCDSE22X", "MCDOC22X", "MCDNO22X", "MCDDE22X", "GVAJA22", "GVAFE22", "GVAMA22", "GVAAP22", 
"GVAMY22", "GVAJU22", "GVAJL22", "GVAAU22", "GVASE22", "GVAOC22", "GVANO22", "GVADE22", "GVBJA22", "GVBFE22", 
"GVBMA22", "GVBAP22", "GVBMY22", "GVBJU22", "GVBJL22", "GVBAU22", "GVBSE22", "GVBOC22", "GVBNO22", "GVBDE22", 
"GVCJA22", "GVCFE22", "GVCMA22", "GVCAP22", "GVCMY22", "GVCJU22", "GVCJL22", "GVCAU22", "GVCSE22", "GVCOC22", 
"GVCNO22", "GVCDE22", "VAPJA22", "VAPFE22", "VAPMA22", "VAPAP22", "VAPMY22", "VAPJU22", "VAPJL22", "VAPAU22", 
"VAPSE22", "VAPOC22", "VAPNO22", "VAPDE22", "IHSJA22", "IHSFE22", "IHSMA22", "IHSAP22", "IHSMY22", "IHSJU22", 
"IHSJL22", "IHSAU22", "IHSSE22", "IHSOC22", "IHSNO22", "IHSDE22", "PUBJA22X", "PUBFE22X", "PUBMA22X", "PUBAP22X", 
"PUBMY22X", "PUBJU22X", "PUBJL22X", "PUBAU22X", "PUBSE22X", "PUBOC22X", "PUBNO22X", "PUBDE22X", "PEGJA22", "PEGFE22", 
"PEGMA22", "PEGAP22", "PEGMY22", "PEGJU22", "PEGJL22", "PEGAU22", "PEGSE22", "PEGOC22", "PEGNO22", "PEGDE22", 
"PDKJA22", "PDKFE22", "PDKMA22", "PDKAP22", "PDKMY22", "PDKJU22", "PDKJL22", "PDKAU22", "PDKSE22", "PDKOC22", 
"PDKNO22", "PDKDE22", "PNGJA22", "PNGFE22", "PNGMA22", "PNGAP22", "PNGMY22", "PNGJU22", "PNGJL22", "PNGAU22", 
"PNGSE22", "PNGOC22", "PNGNO22", "PNGDE22", "POGJA22", "POGFE22", "POGMA22", "POGAP22", "POGMY22", "POGJU22", 
"POGJL22", "POGAU22", "POGSE22", "POGOC22", "POGNO22", "POGDE22", "POEJA22", "POEFE22", "POEMA22", "POEAP22", 
"POEMY22", "POEJU22", "POEJL22", "POEAU22", "POESE22", "POEOC22", "POENO22", "POEDE22", "PNEJA22", "PNEFE22", 
"PNEMA22", "PNEAP22", "PNEMY22", "PNEJU22", "PNEJL22", "PNEAU22", "PNESE22", "PNEOC22", "PNENO22", "PNEDE22", 
"PRXJA22", "PRXFE22", "PRXMA22", "PRXAP22", "PRXMY22", "PRXJU22", "PRXJL22", "PRXAU22", "PRXSE22", "PRXOC22", 
"PRXNO22", "PRXDE22", "PRIJA22", "PRIFE22", "PRIMA22", "PRIAP22", "PRIMY22", "PRIJU22", "PRIJL22", "PRIAU22", 
"PRISE22", "PRIOC22", "PRINO22", "PRIDE22", "HPEJA22", "HPEFE22", "HPEMA22", "HPEAP22", "HPEMY22", "HPEJU22", 
"HPEJL22", "HPEAU22", "HPESE22", "HPEOC22", "HPENO22", "HPEDE22", "HPDJA22", "HPDFE22", "HPDMA22", "HPDAP22", 
"HPDMY22", "HPDJU22", "HPDJL22", "HPDAU22", "HPDSE22", "HPDOC22", "HPDNO22", "HPDDE22", "HPNJA22", "HPNFE22", 
"HPNMA22", "HPNAP22", "HPNMY22", "HPNJU22", "HPNJL22", "HPNAU22", "HPNSE22", "HPNOC22", "HPNNO22", "HPNDE22", 
"HPOJA22", "HPOFE22", "HPOMA22", "HPOAP22", "HPOMY22", "HPOJU22", "HPOJL22", "HPOAU22", "HPOSE22", "HPOOC22", 
"HPONO22", "HPODE22", "HPXJA22", "HPXFE22", "HPXMA22", "HPXAP22", "HPXMY22", "HPXJU22", "HPXJL22", "HPXAU22", 
"HPXSE22", "HPXOC22", "HPXNO22", "HPXDE22", "HPRJA22", "HPRFE22", "HPRMA22", "HPRAP22", "HPRMY22", "HPRJU22", 
"HPRJL22", "HPRAU22", "HPRSE22", "HPROC22", "HPRNO22", "HPRDE22", "INSJA22X", "INSFE22X", "INSMA22X", "INSAP22X", 
"INSMY22X", "INSJU22X", "INSJL22X", "INSAU22X", "INSSE22X", "INSOC22X", "INSNO22X", "INSDE22X", "PRVEV22", "TRIEV22", 
"MCREV22", "MCDEV22", "VAEV22", "GVAEV22", "GVBEV22", "GVCEV22", "UNINS22", "INSCOV22", "INSURC22", "TRICH31X", 
"TRICH42X", "TRICH22X", "TRI31X", "TRI42X", "TRI22X", "MCRPHD22", "MCRPD31", "MCRPD42", "MCRPD22", "MCRPD31X", 
"MCRPD42X", "MCRPD22X", "MCRPHO31", "MCRPHO42", "MCRPHO22", "MCDHMO31", "MCDHMO42", "MCDHMO22", "MCDMC31", "MCDMC42", 
"MCDMC22", "PRVHMO31", "PRVHMO42", "PRVHMO22", "FSAGT31", "HASFSA31", "PFSAMT31", "PREVCOVR", "MORECOVR", "TRICR31X", 
"TRICR42X", "TRICR53X", "TRICR22X", "TRIAT31X", "TRIAT42X", "TRIAT53X", "TRIAT22X", "MCAID31", "MCAID42", "MCAID53", 
"MCAID22", "MCAID31X", "MCAID42X", "MCAID53X", "MCAID22X", "MCARE31", "MCARE42", "MCARE53", "MCARE22", "MCARE31X", 
"MCARE42X", "MCARE53X", "MCARE22X", "MCDAT31X", "MCDAT42X", "MCDAT53X", "MCDAT22X", "GOVTA31", "GOVTA42", "GOVTA53", 
"GOVTA22", "GOVAAT31", "GOVAAT42", "GOVAAT53", "GOVAAT22", "GOVTB31", "GOVTB42", "GOVTB53", "GOVTB22", "GOVBAT31", 
"GOVBAT42", "GOVBAT53", "GOVBAT22", "GOVTC31", "GOVTC42", "GOVTC53", "GOVTC22", "GOVCAT31", "GOVCAT42", "GOVCAT53", 
"GOVCAT22", "VAPROG31", "VAPROG42", "VAPROG53", "VAPROG22", "VAPRAT31", "VAPRAT42", "VAPRAT53", "VAPRAT22", "IHS31", 
"IHS42", "IHS53", "IHS22", "IHSAT31", "IHSAT42", "IHSAT53", "IHSAT22", "PRIDK31", "PRIDK42", "PRIDK53", 
"PRIDK22", "PRIEU31", "PRIEU42", "PRIEU53", "PRIEU22", "PRING31", "PRING42", "PRING53", "PRING22", "PRIOG31", 
"PRIOG42", "PRIOG53", "PRIOG22", "PRINEO31", "PRINEO42", "PRINEO53", "PRINEO22", "PRIEUO31", "PRIEUO42", "PRIEUO53", 
"PRIEUO22", "PRSTX31", "PRSTX42", "PRSTX53", "PRSTX22", "PRIV31", "PRIV42", "PRIV53", "PRIV22", "PRIVAT31", 
"PRIVAT42", "PRIVAT53", "PRIVAT22", "PUB31X", "PUB42X", "PUB53X", "PUB22X", "PUBAT31X", "PUBAT42X", "PUBAT53X", 
"PUBAT22X", "VERFLG31", "VERFLG42", "VERFLG22", "INS31X", "INS42X", "INS53X", "INS22X", "INSAT31X", "INSAT42X", 
"INSAT53X", "INSAT22X", "DENTIN31", "DENTIN42", "DENTIN53_M23", "DNTINS31", "DNTINS22_M23", "PMEDIN31", "PMEDIN42", "PMEDIN53", 
"PMDINS31", "PMDINS22", "PROBPY42", "CRFMPY42", "PYUNBL42", "PMEDUP31", "PMEDUP42", "PMEDUP53", "PMEDPY31", "PMEDPY42", 
"PMEDPY53", "TOTTCH22", "TOTEXP22", "TOTSLF22", "TOTMCR22", "TOTMCD22", "TOTPRV22", "TOTVA22", "TOTTRI22", "TOTOFD22", 
"TOTSTL22", "TOTWCP22", "TOTOSR22", "TOTPTR22", "TOTOTH22", "OBTOTV22", "OBVTCH22", "OBVEXP22", "OBVSLF22", "OBVMCR22", 
"OBVMCD22", "OBVPRV22", "OBVVA22", "OBVTRI22", "OBVOFD22", "OBVSTL22", "OBVWCP22", "OBVOSR22", "OBVPTR22", "OBVOTH22", 
"OBDRV22", "OBDTCH22", "OBDEXP22", "OBDSLF22", "OBDMCR22", "OBDMCD22", "OBDPRV22", "OBDVA22", "OBDTRI22", "OBDOFD22", 
"OBDSTL22", "OBDWCP22", "OBDOSR22", "OBDPTR22", "OBDOTH22", "OPTOTV22", "OPTTCH22", "OPTEXP22", "OPTSLF22", "OPTMCR22", 
"OPTMCD22", "OPTPRV22", "OPTVA22", "OPTTRI22", "OPTOFD22", "OPTSTL22", "OPTWCP22", "OPTOSR22", "OPTPTR22", "OPTOTH22", 
"OPFTCH22", "OPFEXP22", "OPFSLF22", "OPFMCR22", "OPFMCD22", "OPFPRV22", "OPFVA22", "OPFTRI22", "OPFOFD22", "OPFSTL22", 
"OPFWCP22", "OPFOSR22", "OPFPTR22", "OPFOTH22", "OPDEXP22", "OPDTCH22", "OPDSLF22", "OPDMCR22", "OPDMCD22", "OPDPRV22", 
"OPDVA22", "OPDTRI22", "OPDOFD22", "OPDSTL22", "OPDWCP22", "OPDOSR22", "OPDPTR22", "OPDOTH22", "OPDRV22", "OPVTCH22", 
"OPVEXP22", "OPVSLF22", "OPVMCR22", "OPVMCD22", "OPVPRV22", "OPVVA22", "OPVTRI22", "OPVOFD22", "OPVSTL22", "OPVWCP22", 
"OPVOSR22", "OPVPTR22", "OPVOTH22", "OPSEXP22", "OPSTCH22", "OPSSLF22", "OPSMCR22", "OPSMCD22", "OPSPRV22", "OPSVA22", 
"OPSTRI22", "OPSOFD22", "OPSSTL22", "OPSWCP22", "OPSOSR22", "OPSPTR22", "OPSOTH22", "ERTOT22", "ERTTCH22", "ERTEXP22", 
"ERTSLF22", "ERTMCR22", "ERTMCD22", "ERTPRV22", "ERTVA22", "ERTTRI22", "ERTOFD22", "ERTSTL22", "ERTWCP22", "ERTOSR22", 
"ERTPTR22", "ERTOTH22", "ERFTCH22", "ERFEXP22", "ERFSLF22", "ERFMCR22", "ERFMCD22", "ERFPRV22", "ERFVA22", "ERFTRI22", 
"ERFOFD22", "ERFSTL22", "ERFWCP22", "ERFOSR22", "ERFPTR22", "ERFOTH22", "ERDEXP22", "ERDTCH22", "ERDSLF22", "ERDMCR22", 
"ERDMCD22", "ERDPRV22", "ERDVA22", "ERDTRI22", "ERDOFD22", "ERDSTL22", "ERDWCP22", "ERDOSR22", "ERDPTR22", "ERDOTH22", 
"IPDIS22", "IPTEXP22", "IPTTCH22", "IPTSLF22", "IPTMCR22", "IPTMCD22", "IPTPRV22", "IPTVA22", "IPTTRI22", "IPTOFD22", 
"IPTSTL22", "IPTWCP22", "IPTOSR22", "IPTPTR22", "IPTOTH22", "IPFEXP22", "IPFTCH22", "IPFSLF22", "IPFMCR22", "IPFMCD22", 
"IPFPRV22", "IPFVA22", "IPFTRI22", "IPFOFD22", "IPFSTL22", "IPFWCP22", "IPFOSR22", "IPFPTR22", "IPFOTH22", "IPDEXP22", 
"IPDTCH22", "IPDSLF22", "IPDMCR22", "IPDMCD22", "IPDPRV22", "IPDVA22", "IPDTRI22", "IPDOFD22", "IPDSTL22", "IPDWCP22", 
"IPDOSR22", "IPDPTR22", "IPDOTH22", "IPNGTD22", "DVTOT22", "DVTTCH22", "DVTEXP22", "DVTSLF22", "DVTMCR22", "DVTMCD22", 
"DVTPRV22", "DVTVA22", "DVTTRI22", "DVTOFD22", "DVTSTL22", "DVTWCP22", "DVTOSR22", "DVTPTR22", "DVTOTH22", "HHTOTD22", 
"HHAGD22", "HHATCH22", "HHAEXP22", "HHASLF22", "HHAMCR22", "HHAMCD22", "HHAPRV22", "HHAVA22", "HHATRI22", "HHAOFD22", 
"HHASTL22", "HHAWCP22", "HHAOSR22", "HHAPTR22", "HHAOTH22", "HHINDD22", "HHNTCH22", "HHNEXP22", "HHNSLF22", "HHNMCD22", 
"HHNMCR22", "HHNPRV22", "HHNVA22", "HHNTRI22", "HHNOFD22", "HHNSTL22", "HHNWCP22", "HHNOSR22", "HHNPTR22", "HHNOTH22", 
"HHINFD22", "VISEXP22", "VISTCH22", "VISSLF22", "VISMCR22", "VISMCD22", "VISPRV22", "VISVA22", "VISTRI22", "VISOFD22", 
"VISSTL22", "VISWCP22", "VISOSR22", "VISPTR22", "VISOTH22", "OTHTCH22", "OTHEXP22", "OTHSLF22", "OTHMCR22", "OTHMCD22", 
"OTHPRV22", "OTHVA22", "OTHTRI22", "OTHOFD22", "OTHSTL22", "OTHWCP22", "OTHOSR22", "OTHPTR22", "OTHOTH22", "RXTOT22", 
"RXEXP22", "RXSLF22", "RXMCR22", "RXMCD22", "RXPRV22", "RXVA22", "RXTRI22", "RXOFD22", "RXSTL22", "RXWCP22", 
"RXOSR22", "RXPTR22", "RXOTH22", "PERWT22F", "FAMWT22F", "FAMWT22C", "SAQWT22F", "DIABW22F", "VARSTR", "VARPSU")


var_types <- c(
"n", "n", "c", "n", "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", "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", "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")


var_types <- setNames(var_types, var_names)

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

h243 <- 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(h243, file ="h243.Rdata")  
                                           
# -----------------------------------------------------------------------------
# NOTES:                                       
#                                          
#  1. This program has been tested on R version 4.4.0              
#                                          
#  2. This program will create a temporary data frame in R called 'h243'.      
#     You must run the 'save' command to permanently save the data to a local  
#     folder                                   
# -----------------------------------------------------------------------------