# -----------------------------------------------------------------------------
# R programming statements for h224 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 (h224.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 'h224'.
#
# 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 h224.dat file.)
#
# meps_path <- "C:/MEPS/h224.dat"
# source("https://meps.ahrq.gov/mepsweb/data_stats/download_data/pufs/h224/h224ru.txt")
# head(h224) # 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 h224 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/h224dat.zip"
# download.file(url, temp <- tempfile())
#
# meps_path <- unzip(temp, exdir = tempdir())
# source("https://meps.ahrq.gov/mepsweb/data_stats/download_data/pufs/h224/h224ru.txt")
#
# unlink(temp) # Unlink to delete temporary file
#
# head(h224) # view data
#
# -----------------------------------------------------------------------------
# DEFINE 'meps_path' -----------------------------------------------------------
# 'meps_path' should point to the file path of the ASCII file (h224.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/h224.dat"
# INSTALL PACKAGES ------------------------------------------------------------
# Uncomment and run this portion if packages are not yet installed
#
# install.packages("readr")
# **************************************
# LOAD PACKAGES ---------------------------------------------------------------
# Run this for every new R session
library(readr)
# DATA FILE INFO ------------------------------------------
# Define start and end positions to read fixed-width file
pos_start <- c(
1, 8, 11, 21, 23, 25, 27, 29, 31, 33,
35, 37, 39, 41, 43, 45, 48, 50, 52, 54,
56, 58, 60, 62, 63, 65, 67, 69, 71, 73,
75, 77, 78, 80, 82, 84, 86, 89, 92, 95,
98, 99, 100, 101, 102, 104, 106, 108, 109, 111,
113, 117, 119, 123, 125, 129, 131, 135, 137, 141,
143, 147, 149, 153, 154, 155, 156, 157, 158, 159,
160, 161, 162, 163, 164, 166, 168, 170, 172, 174,
176, 178, 180, 182, 184, 186, 188, 192, 193, 194,
196, 197, 198, 199, 200, 201, 202, 204, 206, 208,
210, 213, 216, 219, 222, 225, 228, 231, 234, 237,
240, 242, 244, 246, 248, 250, 252, 254, 256, 258,
260, 262, 265, 267, 269, 272, 274, 277, 280, 283,
286, 289, 292, 294, 296, 298, 300, 302, 304, 306,
308, 310, 312, 314, 316, 318, 320, 322, 324, 326,
328, 330, 332, 334, 336, 339, 341, 343, 345, 348,
350, 352, 354, 356, 358, 360, 362, 364, 366, 368,
370, 372, 374, 377, 379, 382, 385, 387, 389, 392,
395, 397, 400, 402, 405, 407, 409, 411, 414, 416,
418, 420, 423, 425, 427, 429, 432, 434, 436, 438,
440, 442, 444, 446, 449, 451, 454, 456, 459, 461,
464, 466, 469, 471, 474, 476, 479, 481, 484, 486,
489, 491, 494, 496, 499, 501, 504, 506, 509, 511,
514, 516, 519, 521, 524, 526, 529, 531, 534, 536,
539, 541, 543, 545, 547, 549, 551, 553, 556, 558,
560, 562, 564, 566, 568, 570, 572, 574, 576, 578,
580, 582, 584, 586, 588, 590, 592, 594, 599, 601,
603, 605, 607, 609, 611, 613, 615, 617, 619, 621,
623, 625, 627, 629, 631, 633, 635, 637, 638, 641,
644, 647, 650, 653, 656, 659, 662, 665, 668, 671,
674, 677, 680, 683, 689, 695, 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, 811, 814, 817, 820, 823, 826,
829, 832, 834, 837, 839, 842, 845, 848, 851, 854,
857, 860, 863, 866, 869, 872, 875, 878, 882, 884,
889, 890, 892, 895, 898, 901, 904, 907, 910, 913,
916, 919, 922, 925, 928, 931, 934, 937, 940, 943,
946, 949, 952, 955, 958, 961, 964, 967, 970, 972,
974, 976, 978, 980, 983, 986, 989, 992, 995, 997,
999, 1001, 1003, 1005, 1007, 1009, 1011, 1013, 1015, 1017,
1019, 1021, 1023, 1025, 1027, 1029, 1031, 1033, 1035, 1037,
1039, 1041, 1043, 1045, 1047, 1049, 1051, 1053, 1055, 1057,
1059, 1061, 1064, 1067, 1070, 1072, 1075, 1078, 1081, 1084,
1090, 1096, 1102, 1103, 1104, 1105, 1108, 1111, 1114, 1117,
1120, 1123, 1129, 1135, 1141, 1144, 1147, 1150, 1153, 1156,
1159, 1162, 1165, 1168, 1171, 1174, 1177, 1180, 1183, 1186,
1189, 1192, 1195, 1198, 1201, 1204, 1207, 1210, 1213, 1216,
1219, 1222, 1225, 1228, 1231, 1234, 1237, 1239, 1242, 1245,
1248, 1251, 1254, 1258, 1261, 1265, 1268, 1272, 1275, 1278,
1281, 1284, 1287, 1290, 1293, 1296, 1299, 1302, 1305, 1308,
1311, 1314, 1317, 1320, 1323, 1326, 1329, 1332, 1335, 1338,
1341, 1344, 1347, 1350, 1353, 1356, 1359, 1362, 1365, 1367,
1369, 1371, 1373, 1375, 1377, 1379, 1381, 1383, 1386, 1389,
1392, 1394, 1396, 1398, 1400, 1402, 1404, 1406, 1408, 1410,
1413, 1416, 1419, 1421, 1423, 1425, 1427, 1429, 1431, 1433,
1435, 1437, 1443, 1449, 1455, 1457, 1459, 1461, 1463, 1465,
1467, 1469, 1471, 1473, 1475, 1477, 1479, 1481, 1483, 1485,
1487, 1489, 1491, 1493, 1495, 1497, 1499, 1501, 1503, 1505,
1507, 1510, 1512, 1514, 1516, 1520, 1526, 1532, 1533, 1540,
1546, 1547, 1553, 1554, 1559, 1560, 1565, 1566, 1571, 1572,
1577, 1578, 1585, 1586, 1591, 1592, 1598, 1599, 1605, 1606,
1611, 1612, 1618, 1619, 1624, 1625, 1630, 1631, 1637, 1638,
1643, 1644, 1648, 1649, 1655, 1656, 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, 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, 2290,
2291, 2292, 2293, 2294, 2295, 2296, 2297, 2298, 2299, 2300,
2302, 2304, 2306, 2308, 2310, 2312, 2314, 2316, 2318, 2320,
2322, 2324, 2326, 2328, 2330, 2333, 2336, 2339, 2342, 2345,
2348, 2351, 2354, 2357, 2360, 2363, 2366, 2369, 2372, 2375,
2378, 2381, 2384, 2387, 2390, 2393, 2395, 2398, 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, 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,
2690, 2693, 2696, 2703, 2710, 2716, 2723, 2729, 2735, 2741,
2746, 2751, 2757, 2763, 2769, 2775, 2781, 2784, 2791, 2797,
2803, 2809, 2814, 2820, 2826, 2831, 2835, 2839, 2845, 2851,
2857, 2863, 2866, 2873, 2879, 2885, 2891, 2896, 2902, 2907,
2912, 2916, 2920, 2926, 2932, 2938, 2944, 2947, 2953, 2959,
2964, 2970, 2975, 2981, 2986, 2991, 2996, 3000, 3005, 3010,
3016, 3021, 3027, 3033, 3038, 3044, 3049, 3055, 3060, 3065,
3070, 3074, 3079, 3084, 3090, 3095, 3100, 3105, 3109, 3114,
3118, 3123, 3127, 3131, 3132, 3135, 3140, 3144, 3149, 3153,
3155, 3161, 3167, 3172, 3178, 3183, 3189, 3194, 3199, 3204,
3208, 3213, 3218, 3224, 3229, 3234, 3239, 3243, 3248, 3252,
3257, 3261, 3265, 3266, 3269, 3274, 3278, 3283, 3287, 3289,
3295, 3300, 3305, 3310, 3315, 3320, 3325, 3329, 3333, 3338,
3342, 3347, 3352, 3357, 3363, 3368, 3373, 3378, 3383, 3388,
3393, 3397, 3401, 3406, 3410, 3415, 3420, 3425, 3429, 3434,
3438, 3442, 3446, 3450, 3453, 3456, 3457, 3461, 3465, 3469,
3473, 3477, 3479, 3485, 3492, 3497, 3503, 3509, 3515, 3521,
3526, 3531, 3536, 3542, 3547, 3553, 3558, 3564, 3571, 3576,
3582, 3588, 3594, 3600, 3605, 3610, 3615, 3621, 3626, 3632,
3637, 3642, 3648, 3652, 3657, 3661, 3666, 3670, 3674, 3675,
3678, 3682, 3686, 3691, 3695, 3698, 3700, 3705, 3710, 3715,
3719, 3724, 3729, 3733, 3737, 3741, 3744, 3746, 3750, 3755,
3759, 3762, 3765, 3771, 3777, 3783, 3789, 3795, 3800, 3805,
3809, 3813, 3819, 3823, 3827, 3832, 3838, 3841, 3847, 3853,
3859, 3864, 3868, 3873, 3874, 3878, 3879, 3882, 3883, 3886,
3891, 3894, 3897, 3901, 3905, 3909, 3913, 3917, 3921, 3924,
3928, 3931, 3934, 3935, 3938, 3942, 3945, 3950, 3955, 3960,
3965, 3970, 3975, 3980, 3984, 3989, 3993, 3997, 4002, 4007,
4012, 4015, 4022, 4027, 4034, 4040, 4046, 4052, 4057, 4062,
4067, 4072, 4077, 4083, 4088, 4101, 4113, 4125, 4138, 4150,
4154)
pos_end <- c(
7, 10, 20, 22, 24, 26, 28, 30, 32, 34,
36, 38, 40, 42, 44, 47, 49, 51, 53, 55,
57, 59, 61, 62, 64, 66, 68, 70, 72, 74,
76, 77, 79, 81, 83, 85, 88, 91, 94, 97,
98, 99, 100, 101, 103, 105, 107, 108, 110, 112,
116, 118, 122, 124, 128, 130, 134, 136, 140, 142,
146, 148, 152, 153, 154, 155, 156, 157, 158, 159,
160, 161, 162, 163, 165, 167, 169, 171, 173, 175,
177, 179, 181, 183, 185, 187, 191, 192, 193, 195,
196, 197, 198, 199, 200, 201, 203, 205, 207, 209,
212, 215, 218, 221, 224, 227, 230, 233, 236, 239,
241, 243, 245, 247, 249, 251, 253, 255, 257, 259,
261, 264, 266, 268, 271, 273, 276, 279, 282, 285,
288, 291, 293, 295, 297, 299, 301, 303, 305, 307,
309, 311, 313, 315, 317, 319, 321, 323, 325, 327,
329, 331, 333, 335, 338, 340, 342, 344, 347, 349,
351, 353, 355, 357, 359, 361, 363, 365, 367, 369,
371, 373, 376, 378, 381, 384, 386, 388, 391, 394,
396, 399, 401, 404, 406, 408, 410, 413, 415, 417,
419, 422, 424, 426, 428, 431, 433, 435, 437, 439,
441, 443, 445, 448, 450, 453, 455, 458, 460, 463,
465, 468, 470, 473, 475, 478, 480, 483, 485, 488,
490, 493, 495, 498, 500, 503, 505, 508, 510, 513,
515, 518, 520, 523, 525, 528, 530, 533, 535, 538,
540, 542, 544, 546, 548, 550, 552, 555, 557, 559,
561, 563, 565, 567, 569, 571, 573, 575, 577, 579,
581, 583, 585, 587, 589, 591, 593, 598, 600, 602,
604, 606, 608, 610, 612, 614, 616, 618, 620, 622,
624, 626, 628, 630, 632, 634, 636, 637, 640, 643,
646, 649, 652, 655, 658, 661, 664, 667, 670, 673,
676, 679, 682, 688, 694, 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, 810, 813, 816, 819, 822, 825, 828,
831, 833, 836, 838, 841, 844, 847, 850, 853, 856,
859, 862, 865, 868, 871, 874, 877, 881, 883, 888,
889, 891, 894, 897, 900, 903, 906, 909, 912, 915,
918, 921, 924, 927, 930, 933, 936, 939, 942, 945,
948, 951, 954, 957, 960, 963, 966, 969, 971, 973,
975, 977, 979, 982, 985, 988, 991, 994, 996, 998,
1000, 1002, 1004, 1006, 1008, 1010, 1012, 1014, 1016, 1018,
1020, 1022, 1024, 1026, 1028, 1030, 1032, 1034, 1036, 1038,
1040, 1042, 1044, 1046, 1048, 1050, 1052, 1054, 1056, 1058,
1060, 1063, 1066, 1069, 1071, 1074, 1077, 1080, 1083, 1089,
1095, 1101, 1102, 1103, 1104, 1107, 1110, 1113, 1116, 1119,
1122, 1128, 1134, 1140, 1143, 1146, 1149, 1152, 1155, 1158,
1161, 1164, 1167, 1170, 1173, 1176, 1179, 1182, 1185, 1188,
1191, 1194, 1197, 1200, 1203, 1206, 1209, 1212, 1215, 1218,
1221, 1224, 1227, 1230, 1233, 1236, 1238, 1241, 1244, 1247,
1250, 1253, 1257, 1260, 1264, 1267, 1271, 1274, 1277, 1280,
1283, 1286, 1289, 1292, 1295, 1298, 1301, 1304, 1307, 1310,
1313, 1316, 1319, 1322, 1325, 1328, 1331, 1334, 1337, 1340,
1343, 1346, 1349, 1352, 1355, 1358, 1361, 1364, 1366, 1368,
1370, 1372, 1374, 1376, 1378, 1380, 1382, 1385, 1388, 1391,
1393, 1395, 1397, 1399, 1401, 1403, 1405, 1407, 1409, 1412,
1415, 1418, 1420, 1422, 1424, 1426, 1428, 1430, 1432, 1434,
1436, 1442, 1448, 1454, 1456, 1458, 1460, 1462, 1464, 1466,
1468, 1470, 1472, 1474, 1476, 1478, 1480, 1482, 1484, 1486,
1488, 1490, 1492, 1494, 1496, 1498, 1500, 1502, 1504, 1506,
1509, 1511, 1513, 1515, 1519, 1525, 1531, 1532, 1539, 1545,
1546, 1552, 1553, 1558, 1559, 1564, 1565, 1570, 1571, 1576,
1577, 1584, 1585, 1590, 1591, 1597, 1598, 1604, 1605, 1610,
1611, 1617, 1618, 1623, 1624, 1629, 1630, 1636, 1637, 1642,
1643, 1647, 1648, 1654, 1655, 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, 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, 2289, 2290,
2291, 2292, 2293, 2294, 2295, 2296, 2297, 2298, 2299, 2301,
2303, 2305, 2307, 2309, 2311, 2313, 2315, 2317, 2319, 2321,
2323, 2325, 2327, 2329, 2332, 2335, 2338, 2341, 2344, 2347,
2350, 2353, 2356, 2359, 2362, 2365, 2368, 2371, 2374, 2377,
2380, 2383, 2386, 2389, 2392, 2394, 2397, 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, 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, 2689,
2692, 2695, 2702, 2709, 2715, 2722, 2728, 2734, 2740, 2745,
2750, 2756, 2762, 2768, 2774, 2780, 2783, 2790, 2796, 2802,
2808, 2813, 2819, 2825, 2830, 2834, 2838, 2844, 2850, 2856,
2862, 2865, 2872, 2878, 2884, 2890, 2895, 2901, 2906, 2911,
2915, 2919, 2925, 2931, 2937, 2943, 2946, 2952, 2958, 2963,
2969, 2974, 2980, 2985, 2990, 2995, 2999, 3004, 3009, 3015,
3020, 3026, 3032, 3037, 3043, 3048, 3054, 3059, 3064, 3069,
3073, 3078, 3083, 3089, 3094, 3099, 3104, 3108, 3113, 3117,
3122, 3126, 3130, 3131, 3134, 3139, 3143, 3148, 3152, 3154,
3160, 3166, 3171, 3177, 3182, 3188, 3193, 3198, 3203, 3207,
3212, 3217, 3223, 3228, 3233, 3238, 3242, 3247, 3251, 3256,
3260, 3264, 3265, 3268, 3273, 3277, 3282, 3286, 3288, 3294,
3299, 3304, 3309, 3314, 3319, 3324, 3328, 3332, 3337, 3341,
3346, 3351, 3356, 3362, 3367, 3372, 3377, 3382, 3387, 3392,
3396, 3400, 3405, 3409, 3414, 3419, 3424, 3428, 3433, 3437,
3441, 3445, 3449, 3452, 3455, 3456, 3460, 3464, 3468, 3472,
3476, 3478, 3484, 3491, 3496, 3502, 3508, 3514, 3520, 3525,
3530, 3535, 3541, 3546, 3552, 3557, 3563, 3570, 3575, 3581,
3587, 3593, 3599, 3604, 3609, 3614, 3620, 3625, 3631, 3636,
3641, 3647, 3651, 3656, 3660, 3665, 3669, 3673, 3674, 3677,
3681, 3685, 3690, 3694, 3697, 3699, 3704, 3709, 3714, 3718,
3723, 3728, 3732, 3736, 3740, 3743, 3745, 3749, 3754, 3758,
3761, 3764, 3770, 3776, 3782, 3788, 3794, 3799, 3804, 3808,
3812, 3818, 3822, 3826, 3831, 3837, 3840, 3846, 3852, 3858,
3863, 3867, 3872, 3873, 3877, 3878, 3881, 3882, 3885, 3890,
3893, 3896, 3900, 3904, 3908, 3912, 3916, 3920, 3923, 3927,
3930, 3933, 3934, 3937, 3941, 3944, 3949, 3954, 3959, 3964,
3969, 3974, 3979, 3983, 3988, 3992, 3996, 4001, 4006, 4011,
4014, 4021, 4026, 4033, 4039, 4045, 4051, 4056, 4061, 4066,
4071, 4076, 4082, 4087, 4100, 4112, 4124, 4137, 4149, 4153,
4154)
var_names <- c(
"DUID", "PID", "DUPERSID", "PANEL", "FAMID31", "FAMID42", "FAMID53", "FAMID20", "FAMIDYR", "CPSFAMID",
"FCSZ1231", "FCRP1231", "RULETR31", "RULETR42", "RULETR53", "RULETR20", "RUSIZE31", "RUSIZE42", "RUSIZE53", "RUSIZE20",
"RUCLAS31", "RUCLAS42", "RUCLAS53", "RUCLAS20", "FAMSZE31", "FAMSZE42", "FAMSZE53", "FAMSZE20", "FMRS1231", "FAMS1231",
"FAMSZEYR", "FAMRFPYR", "REGION31", "REGION42", "REGION53", "REGION20", "REFPRS31", "REFPRS42", "REFPRS53", "REFPRS20",
"RESP31", "RESP42", "RESP53", "RESP20", "PROXY31", "PROXY42", "PROXY53", "PROXY20", "INTVLANG", "BEGRFM31",
"BEGRFY31", "ENDRFM31", "ENDRFY31", "BEGRFM42", "BEGRFY42", "ENDRFM42", "ENDRFY42", "BEGRFM53", "BEGRFY53", "ENDRFM53",
"ENDRFY53", "ENDRFM20", "ENDRFY20", "KEYNESS", "INSCOP31", "INSCOP42", "INSCOP53", "INSCOP20", "INSC1231", "INSCOPE",
"ELGRND31", "ELGRND42", "ELGRND53", "ELGRND20", "PSTATS31", "PSTATS42", "PSTATS53", "RURSLT31", "RURSLT42", "RURSLT53",
"AGE31X", "AGE42X", "AGE53X", "AGE20X", "AGELAST", "DOBMM", "DOBYY", "SEX", "RACEV1X", "RACEV2X",
"RACEAX", "RACEBX", "RACEWX", "RACETHX", "HISPANX", "HISPNCAT", "MARRY31X", "MARRY42X", "MARRY53X", "MARRY20X",
"SPOUID31", "SPOUID42", "SPOUID53", "SPOUID20", "SPOUIN31", "SPOUIN42", "SPOUIN53", "SPOUIN20", "EDUCYR", "HIDEG",
"FTSTU31X", "FTSTU42X", "FTSTU53X", "FTSTU20X", "ACTDTY31", "ACTDTY42", "ACTDTY53", "REFRL31X", "REFRL42X", "REFRL53X",
"REFRL20X", "OTHLGSPK", "WHTLGSPK", "HWELLSPK", "BORNUSA", "YRSINUS", "MOPID31X", "MOPID42X", "MOPID53X", "DAPID31X",
"DAPID42X", "DAPID53X", "RTHLTH31", "RTHLTH42", "RTHLTH53", "MNHLTH31", "MNHLTH42", "MNHLTH53", "HIBPDX", "HIBPAGED",
"BPMLDX", "CHDDX", "CHDAGED", "ANGIDX", "ANGIAGED", "MIDX", "MIAGED", "OHRTDX", "OHRTAGED", "OHRTTYPE",
"STRKDX", "STRKAGED", "EMPHDX", "EMPHAGED", "CHBRON31", "CHBRON53", "CHOLDX", "CHOLAGED", "CANCERDX", "CABLADDR",
"CABLOOD", "CABREAST", "CACERVIX", "CACOLON", "CALUNG", "CALYMPH", "CAMELANO", "CAOTHER", "CAPROSTA", "CASKINNM",
"CASKINDK", "CAUTERUS", "DIABDX_M18", "DIABAGED", "JTPAIN31_M18", "JTPAIN53_M18", "ARTHDX", "ARTHTYPE", "ARTHAGED", "ASTHDX",
"ASTHAGED", "ASSTIL31", "ASSTIL53", "ASATAK31", "ASATAK53", "ASTHEP31", "ASTHEP53", "ASACUT31", "ASACUT53", "ASMRCN31",
"ASMRCN53", "ASPREV31", "ASPREV53", "ASDALY31", "ASDALY53", "ASPKFL31", "ASPKFL53", "ASEVFL31", "ASEVFL53", "ASWNFL31",
"ASWNFL53", "ADHDADDX", "ADHDAGED", "IADLHP31", "IADLHP53", "ADLHLP31", "ADLHLP53", "AIDHLP31", "AIDHLP53", "WLKLIM31",
"WLKLIM53", "LFTDIF31", "LFTDIF53", "STPDIF31", "STPDIF53", "WLKDIF31", "WLKDIF53", "MILDIF31", "MILDIF53", "STNDIF31",
"STNDIF53", "BENDIF31", "BENDIF53", "RCHDIF31", "RCHDIF53", "FNGRDF31", "FNGRDF53", "ACTLIM31", "ACTLIM53", "WRKLIM31",
"WRKLIM53", "HSELIM31", "HSELIM53", "SCHLIM31", "SCHLIM53", "UNABLE31", "UNABLE53", "SOCLIM31", "SOCLIM53", "COGLIM31",
"COGLIM53", "DFHEAR42", "DFSEE42", "DFCOG42", "DFWLKC42", "DFDRSB42", "DFERND42", "ANYLMI20", "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", "ADPROX42", "ADSEX42",
"ADAGE42", "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", "ADSLEEP42", "ADKALC42", "ADNUMDRK42", "ADRNK542",
"ADRNK442", "ADOFTALC42", "ADSTAL42", "ADMNTRT42", "ADRATETRT42", "ADTRTHLP42", "ADTRTPD42", "ADPROBTRT42", "ADUNABTRT42", "ADRELTRT42",
"ADSCHTRT42", "ADGRPTRT42", "ADONLTRT42", "ADPHONTRT42", "ADAPPTRT42", "ADTRTEXP42", "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", "ADCMPM42", "ADCMPY42", "ADLANG42", "ADBMI42",
"DCSELIG", "DSDIA53", "DSA1C53", "DSFT2153", "DSFT2053", "DSFT1953", "DSFB1953", "DSFTNV53", "DSEY2153", "DSEY2053",
"DSEY1953", "DSEB1953", "DSEYNV53", "DSCH2153", "DSCH2053", "DSCH1953", "DSCB1953", "DSCHNV53", "DSFL2153", "DSFL2053",
"DSFL1953", "DSVB1953", "DSFLNV53", "DSKIDN53", "DSEYPR53", "DSDIET53", "DSMED53", "DSINSU53", "DSCPCP53", "DSCNPC53",
"DSCPHN53", "DSCINT53", "DSCGRP53", "DSCONF53", "DSPRX53", "DDNWRK20", "OTHDYS20", "OTHNDD20", "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", "CVDLAYCA53", "CVDLAYDN53",
"CVDLAYPM53", "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", "OUTFLAG31", "OUTFLAG42",
"OUTFLAG53", "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", "FILEDR20", "WILFIL20", "FLSTAT20", "FILER20", "JTINRU20",
"JNTPID20", "TAXFRM20", "FOODST20", "FOODMN20", "FOODVL20", "TTLP20X", "FAMINC20", "POVCAT20", "POVLEV20", "WAGEP20X",
"WAGIMP20", "BUSNP20X", "BUSIMP20", "UNEMP20X", "UNEIMP20", "WCMPP20X", "WCPIMP20", "INTRP20X", "INTIMP20", "DIVDP20X",
"DIVIMP20", "SALEP20X", "SALIMP20", "PENSP20X", "PENIMP20", "SSECP20X", "SSCIMP20", "TRSTP20X", "TRTIMP20", "VETSP20X",
"VETIMP20", "IRASP20X", "IRAIMP20", "ALIMP20X", "ALIIMP20", "CHLDP20X", "CHLIMP20", "CASHP20X", "CSHIMP20", "SSIP20X",
"SSIIMP20", "PUBP20X", "PUBIMP20", "OTHRP20X", "OTHIMP20", "HIEUIDX", "TRIJA20X", "TRIFE20X", "TRIMA20X", "TRIAP20X",
"TRIMY20X", "TRIJU20X", "TRIJL20X", "TRIAU20X", "TRISE20X", "TRIOC20X", "TRINO20X", "TRIDE20X", "MCRJA20", "MCRFE20",
"MCRMA20", "MCRAP20", "MCRMY20", "MCRJU20", "MCRJL20", "MCRAU20", "MCRSE20", "MCROC20", "MCRNO20", "MCRDE20",
"MCRJA20X", "MCRFE20X", "MCRMA20X", "MCRAP20X", "MCRMY20X", "MCRJU20X", "MCRJL20X", "MCRAU20X", "MCRSE20X", "MCROC20X",
"MCRNO20X", "MCRDE20X", "MCDJA20", "MCDFE20", "MCDMA20", "MCDAP20", "MCDMY20", "MCDJU20", "MCDJL20", "MCDAU20",
"MCDSE20", "MCDOC20", "MCDNO20", "MCDDE20", "MCDJA20X", "MCDFE20X", "MCDMA20X", "MCDAP20X", "MCDMY20X", "MCDJU20X",
"MCDJL20X", "MCDAU20X", "MCDSE20X", "MCDOC20X", "MCDNO20X", "MCDDE20X", "GVAJA20", "GVAFE20", "GVAMA20", "GVAAP20",
"GVAMY20", "GVAJU20", "GVAJL20", "GVAAU20", "GVASE20", "GVAOC20", "GVANO20", "GVADE20", "GVBJA20", "GVBFE20",
"GVBMA20", "GVBAP20", "GVBMY20", "GVBJU20", "GVBJL20", "GVBAU20", "GVBSE20", "GVBOC20", "GVBNO20", "GVBDE20",
"GVCJA20", "GVCFE20", "GVCMA20", "GVCAP20", "GVCMY20", "GVCJU20", "GVCJL20", "GVCAU20", "GVCSE20", "GVCOC20",
"GVCNO20", "GVCDE20", "VAPJA20", "VAPFE20", "VAPMA20", "VAPAP20", "VAPMY20", "VAPJU20", "VAPJL20", "VAPAU20",
"VAPSE20", "VAPOC20", "VAPNO20", "VAPDE20", "IHSJA20", "IHSFE20", "IHSMA20", "IHSAP20", "IHSMY20", "IHSJU20",
"IHSJL20", "IHSAU20", "IHSSE20", "IHSOC20", "IHSNO20", "IHSDE20", "PUBJA20X", "PUBFE20X", "PUBMA20X", "PUBAP20X",
"PUBMY20X", "PUBJU20X", "PUBJL20X", "PUBAU20X", "PUBSE20X", "PUBOC20X", "PUBNO20X", "PUBDE20X", "PEGJA20", "PEGFE20",
"PEGMA20", "PEGAP20", "PEGMY20", "PEGJU20", "PEGJL20", "PEGAU20", "PEGSE20", "PEGOC20", "PEGNO20", "PEGDE20",
"PDKJA20", "PDKFE20", "PDKMA20", "PDKAP20", "PDKMY20", "PDKJU20", "PDKJL20", "PDKAU20", "PDKSE20", "PDKOC20",
"PDKNO20", "PDKDE20", "PNGJA20", "PNGFE20", "PNGMA20", "PNGAP20", "PNGMY20", "PNGJU20", "PNGJL20", "PNGAU20",
"PNGSE20", "PNGOC20", "PNGNO20", "PNGDE20", "POGJA20", "POGFE20", "POGMA20", "POGAP20", "POGMY20", "POGJU20",
"POGJL20", "POGAU20", "POGSE20", "POGOC20", "POGNO20", "POGDE20", "POEJA20", "POEFE20", "POEMA20", "POEAP20",
"POEMY20", "POEJU20", "POEJL20", "POEAU20", "POESE20", "POEOC20", "POENO20", "POEDE20", "PNEJA20", "PNEFE20",
"PNEMA20", "PNEAP20", "PNEMY20", "PNEJU20", "PNEJL20", "PNEAU20", "PNESE20", "PNEOC20", "PNENO20", "PNEDE20",
"PRXJA20", "PRXFE20", "PRXMA20", "PRXAP20", "PRXMY20", "PRXJU20", "PRXJL20", "PRXAU20", "PRXSE20", "PRXOC20",
"PRXNO20", "PRXDE20", "PRIJA20", "PRIFE20", "PRIMA20", "PRIAP20", "PRIMY20", "PRIJU20", "PRIJL20", "PRIAU20",
"PRISE20", "PRIOC20", "PRINO20", "PRIDE20", "HPEJA20", "HPEFE20", "HPEMA20", "HPEAP20", "HPEMY20", "HPEJU20",
"HPEJL20", "HPEAU20", "HPESE20", "HPEOC20", "HPENO20", "HPEDE20", "HPDJA20", "HPDFE20", "HPDMA20", "HPDAP20",
"HPDMY20", "HPDJU20", "HPDJL20", "HPDAU20", "HPDSE20", "HPDOC20", "HPDNO20", "HPDDE20", "HPNJA20", "HPNFE20",
"HPNMA20", "HPNAP20", "HPNMY20", "HPNJU20", "HPNJL20", "HPNAU20", "HPNSE20", "HPNOC20", "HPNNO20", "HPNDE20",
"HPOJA20", "HPOFE20", "HPOMA20", "HPOAP20", "HPOMY20", "HPOJU20", "HPOJL20", "HPOAU20", "HPOSE20", "HPOOC20",
"HPONO20", "HPODE20", "HPXJA20", "HPXFE20", "HPXMA20", "HPXAP20", "HPXMY20", "HPXJU20", "HPXJL20", "HPXAU20",
"HPXSE20", "HPXOC20", "HPXNO20", "HPXDE20", "HPRJA20", "HPRFE20", "HPRMA20", "HPRAP20", "HPRMY20", "HPRJU20",
"HPRJL20", "HPRAU20", "HPRSE20", "HPROC20", "HPRNO20", "HPRDE20", "INSJA20X", "INSFE20X", "INSMA20X", "INSAP20X",
"INSMY20X", "INSJU20X", "INSJL20X", "INSAU20X", "INSSE20X", "INSOC20X", "INSNO20X", "INSDE20X", "PRVEV20", "TRIEV20",
"MCREV20", "MCDEV20", "VAEV20", "GVAEV20", "GVBEV20", "GVCEV20", "UNINS20", "INSCOV20", "INSURC20", "TRIST31X",
"TRIST42X", "TRIST20X", "TRIPR31X", "TRIPR42X", "TRIPR20X", "TRIEX31X", "TRIEX42X", "TRIEX20X", "TRILI31X", "TRILI42X",
"TRILI20X", "TRICH31X", "TRICH42X", "TRICH20X", "MCRPD31", "MCRPD42", "MCRPD20", "MCRPD31X", "MCRPD42X", "MCRPD20X",
"MCRPB31", "MCRPB42", "MCRPB20", "MCRPHO31", "MCRPHO42", "MCRPHO20", "MCDHMO31", "MCDHMO42", "MCDHMO20", "MCDMC31",
"MCDMC42", "MCDMC20", "PRVHMO31", "PRVHMO42", "PRVHMO20", "FSAGT31", "HASFSA31", "PFSAMT31", "PREVCOVR", "MORECOVR",
"TRICR31X", "TRICR42X", "TRICR53X", "TRICR20X", "TRIAT31X", "TRIAT42X", "TRIAT53X", "TRIAT20X", "MCAID31", "MCAID42",
"MCAID53", "MCAID20", "MCAID31X", "MCAID42X", "MCAID53X", "MCAID20X", "MCARE31", "MCARE42", "MCARE53", "MCARE20",
"MCARE31X", "MCARE42X", "MCARE53X", "MCARE20X", "MCDAT31X", "MCDAT42X", "MCDAT53X", "MCDAT20X", "GOVTA31", "GOVTA42",
"GOVTA53", "GOVTA20", "GOVAAT31", "GOVAAT42", "GOVAAT53", "GOVAAT20", "GOVTB31", "GOVTB42", "GOVTB53", "GOVTB20",
"GOVBAT31", "GOVBAT42", "GOVBAT53", "GOVBAT20", "GOVTC31", "GOVTC42", "GOVTC53", "GOVTC20", "GOVCAT31", "GOVCAT42",
"GOVCAT53", "GOVCAT20", "VAPROG31", "VAPROG42", "VAPROG53", "VAPROG20", "VAPRAT31", "VAPRAT42", "VAPRAT53", "VAPRAT20",
"IHS31", "IHS42", "IHS53", "IHS20", "IHSAT31", "IHSAT42", "IHSAT53", "IHSAT20", "PRIDK31", "PRIDK42",
"PRIDK53", "PRIDK20", "PRIEU31", "PRIEU42", "PRIEU53", "PRIEU20", "PRING31", "PRING42", "PRING53", "PRING20",
"PRIOG31", "PRIOG42", "PRIOG53", "PRIOG20", "PRINEO31", "PRINEO42", "PRINEO53", "PRINEO20", "PRIEUO31", "PRIEUO42",
"PRIEUO53", "PRIEUO20", "PRSTX31", "PRSTX42", "PRSTX53", "PRSTX20", "PRIV31", "PRIV42", "PRIV53", "PRIV20",
"PRIVAT31", "PRIVAT42", "PRIVAT53", "PRIVAT20", "PUB31X", "PUB42X", "PUB53X", "PUB20X", "PUBAT31X", "PUBAT42X",
"PUBAT53X", "PUBAT20X", "VERFLG31", "VERFLG42", "VERFLG20", "INS31X", "INS42X", "INS53X", "INS20X", "INSAT31X",
"INSAT42X", "INSAT53X", "INSAT20X", "DENTIN31", "DENTIN42", "DENTIN53", "DNTINS31", "DNTINS20", "PMEDIN31", "PMEDIN42",
"PMEDIN53", "PMDINS31", "PMDINS20", "PROBPY42", "CRFMPY42", "PYUNBL42", "PMEDUP31", "PMEDUP42", "PMEDUP53", "PMEDPY31",
"PMEDPY42", "PMEDPY53", "TOTTCH20", "TOTEXP20", "TOTSLF20", "TOTMCR20", "TOTMCD20", "TOTPRV20", "TOTVA20", "TOTTRI20",
"TOTOFD20", "TOTSTL20", "TOTWCP20", "TOTOSR20", "TOTPTR20", "TOTOTH20", "OBTOTV20", "OBVTCH20", "OBVEXP20", "OBVSLF20",
"OBVMCR20", "OBVMCD20", "OBVPRV20", "OBVVA20", "OBVTRI20", "OBVOFD20", "OBVSTL20", "OBVWCP20", "OBVOSR20", "OBVPTR20",
"OBVOTH20", "OBDRV20", "OBDTCH20", "OBDEXP20", "OBDSLF20", "OBDMCR20", "OBDMCD20", "OBDPRV20", "OBDVA20", "OBDTRI20",
"OBDOFD20", "OBDSTL20", "OBDWCP20", "OBDOSR20", "OBDPTR20", "OBDOTH20", "OPTOTV20", "OPTTCH20", "OPTEXP20", "OPTSLF20",
"OPTMCR20", "OPTMCD20", "OPTPRV20", "OPTVA20", "OPTTRI20", "OPTOFD20", "OPTSTL20", "OPTWCP20", "OPTOSR20", "OPTPTR20",
"OPTOTH20", "OPFTCH20", "OPFEXP20", "OPFSLF20", "OPFMCR20", "OPFMCD20", "OPFPRV20", "OPFVA20", "OPFTRI20", "OPFOFD20",
"OPFSTL20", "OPFWCP20", "OPFOSR20", "OPFPTR20", "OPFOTH20", "OPDEXP20", "OPDTCH20", "OPDSLF20", "OPDMCR20", "OPDMCD20",
"OPDPRV20", "OPDVA20", "OPDTRI20", "OPDOFD20", "OPDSTL20", "OPDWCP20", "OPDOSR20", "OPDPTR20", "OPDOTH20", "OPDRV20",
"OPVTCH20", "OPVEXP20", "OPVSLF20", "OPVMCR20", "OPVMCD20", "OPVPRV20", "OPVVA20", "OPVTRI20", "OPVOFD20", "OPVSTL20",
"OPVWCP20", "OPVOSR20", "OPVPTR20", "OPVOTH20", "OPSEXP20", "OPSTCH20", "OPSSLF20", "OPSMCR20", "OPSMCD20", "OPSPRV20",
"OPSVA20", "OPSTRI20", "OPSOFD20", "OPSSTL20", "OPSWCP20", "OPSOSR20", "OPSPTR20", "OPSOTH20", "ERTOT20", "ERTTCH20",
"ERTEXP20", "ERTSLF20", "ERTMCR20", "ERTMCD20", "ERTPRV20", "ERTVA20", "ERTTRI20", "ERTOFD20", "ERTSTL20", "ERTWCP20",
"ERTOSR20", "ERTPTR20", "ERTOTH20", "ERFTCH20", "ERFEXP20", "ERFSLF20", "ERFMCR20", "ERFMCD20", "ERFPRV20", "ERFVA20",
"ERFTRI20", "ERFOFD20", "ERFSTL20", "ERFWCP20", "ERFOSR20", "ERFPTR20", "ERFOTH20", "ERDEXP20", "ERDTCH20", "ERDSLF20",
"ERDMCR20", "ERDMCD20", "ERDPRV20", "ERDVA20", "ERDTRI20", "ERDOFD20", "ERDSTL20", "ERDWCP20", "ERDOSR20", "ERDPTR20",
"ERDOTH20", "IPDIS20", "IPTEXP20", "IPTTCH20", "IPTSLF20", "IPTMCR20", "IPTMCD20", "IPTPRV20", "IPTVA20", "IPTTRI20",
"IPTOFD20", "IPTSTL20", "IPTWCP20", "IPTOSR20", "IPTPTR20", "IPTOTH20", "IPFEXP20", "IPFTCH20", "IPFSLF20", "IPFMCR20",
"IPFMCD20", "IPFPRV20", "IPFVA20", "IPFTRI20", "IPFOFD20", "IPFSTL20", "IPFWCP20", "IPFOSR20", "IPFPTR20", "IPFOTH20",
"IPDEXP20", "IPDTCH20", "IPDSLF20", "IPDMCR20", "IPDMCD20", "IPDPRV20", "IPDVA20", "IPDTRI20", "IPDOFD20", "IPDSTL20",
"IPDWCP20", "IPDOSR20", "IPDPTR20", "IPDOTH20", "IPNGTD20", "DVTOT20", "DVTTCH20", "DVTEXP20", "DVTSLF20", "DVTMCR20",
"DVTMCD20", "DVTPRV20", "DVTVA20", "DVTTRI20", "DVTOFD20", "DVTSTL20", "DVTWCP20", "DVTOSR20", "DVTPTR20", "DVTOTH20",
"HHTOTD20", "HHAGD20", "HHATCH20", "HHAEXP20", "HHASLF20", "HHAMCR20", "HHAMCD20", "HHAPRV20", "HHAVA20", "HHATRI20",
"HHAOFD20", "HHASTL20", "HHAWCP20", "HHAOSR20", "HHAPTR20", "HHAOTH20", "HHINDD20", "HHNTCH20", "HHNEXP20", "HHNSLF20",
"HHNMCD20", "HHNMCR20", "HHNPRV20", "HHNVA20", "HHNTRI20", "HHNOFD20", "HHNSTL20", "HHNWCP20", "HHNOSR20", "HHNPTR20",
"HHNOTH20", "HHINFD20", "VISEXP20", "VISTCH20", "VISSLF20", "VISMCR20", "VISMCD20", "VISPRV20", "VISVA20", "VISTRI20",
"VISOFD20", "VISSTL20", "VISWCP20", "VISOSR20", "VISPTR20", "VISOTH20", "OTHTCH20", "OTHEXP20", "OTHSLF20", "OTHMCR20",
"OTHMCD20", "OTHPRV20", "OTHVA20", "OTHTRI20", "OTHOFD20", "OTHSTL20", "OTHWCP20", "OTHOSR20", "OTHPTR20", "OTHOTH20",
"RXTOT20", "RXEXP20", "RXSLF20", "RXMCR20", "RXMCD20", "RXPRV20", "RXVA20", "RXTRI20", "RXOFD20", "RXSTL20",
"RXWCP20", "RXOSR20", "RXPTR20", "RXOTH20", "PERWT20F", "FAMWT20F", "FAMWT20C", "SAQWT20F", "DIABW20F", "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", "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")
var_types <- setNames(var_types, var_names)
# IMPORT ASCII file -----------------------
h224 <- 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(h224, file ="h224.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 'h224'.
# You must run the 'save' command to permanently save the data to a local
# folder
# -----------------------------------------------------------------------------