# ----------------------------------------------------------------------------- # R programming statements for h228 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 (h228.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 'h228'. # # 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 h228.dat file.) # # meps_path <- "C:/MEPS/h228.dat" # source("https://meps.ahrq.gov/mepsweb/data_stats/download_data/pufs/h228/h228ru.txt") # head(h228) # 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 h228 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/h228dat.zip" # download.file(url, temp <- tempfile()) # # meps_path <- unzip(temp, exdir = tempdir()) # source("https://meps.ahrq.gov/mepsweb/data_stats/download_data/pufs/h228/h228ru.txt") # # unlink(temp) # Unlink to delete temporary file # # head(h228) # view data # # ----------------------------------------------------------------------------- # DEFINE 'meps_path' ----------------------------------------------------------- # 'meps_path' should point to the file path of the ASCII file (h228.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/h228.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, 42, 44, 46, 48, 50, 52, 54, 56, 57, 59, 61, 63, 65, 67, 69, 71, 72, 74, 76, 78, 80, 83, 86, 89, 92, 93, 94, 95, 96, 98, 100, 102, 103, 105, 107, 111, 113, 117, 119, 123, 125, 129, 131, 135, 137, 141, 143, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 160, 162, 164, 166, 168, 170, 172, 174, 176, 178, 180, 182, 186, 187, 188, 190, 191, 192, 193, 194, 195, 196, 198, 200, 202, 204, 207, 210, 213, 216, 219, 222, 225, 228, 231, 234, 236, 238, 240, 242, 244, 246, 248, 250, 252, 254, 256, 259, 261, 263, 266, 268, 270, 272, 274, 276, 278, 280, 283, 285, 287, 290, 292, 295, 297, 300, 302, 305, 307, 310, 313, 315, 318, 320, 323, 325, 328, 330, 333, 335, 337, 339, 341, 343, 345, 347, 349, 351, 353, 355, 357, 359, 361, 364, 367, 370, 373, 376, 379, 381, 383, 385, 387, 389, 391, 393, 395, 397, 399, 401, 403, 405, 407, 409, 411, 413, 415, 417, 419, 421, 424, 426, 428, 430, 432, 434, 436, 438, 440, 442, 445, 447, 450, 452, 455, 457, 460, 462, 465, 467, 470, 472, 475, 477, 480, 482, 484, 486, 488, 490, 492, 494, 496, 498, 500, 502, 504, 506, 508, 510, 512, 514, 516, 518, 520, 522, 525, 527, 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, 581, 583, 585, 587, 589, 591, 593, 595, 597, 599, 601, 603, 605, 607, 609, 611, 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, 805, 808, 811, 814, 817, 819, 821, 823, 825, 827, 829, 831, 833, 835, 837, 839, 841, 843, 845, 847, 849, 851, 853, 855, 857, 859, 861, 863, 865, 867, 869, 871, 873, 875, 877, 879, 881, 883, 885, 887, 889, 891, 893, 895, 898, 901, 903, 906, 909, 912, 914, 917, 920, 923, 926, 932, 938, 944, 945, 946, 947, 950, 953, 956, 959, 962, 965, 971, 977, 983, 986, 989, 992, 995, 998, 1001, 1004, 1007, 1010, 1013, 1016, 1019, 1022, 1025, 1028, 1031, 1034, 1037, 1040, 1043, 1046, 1049, 1052, 1055, 1058, 1061, 1064, 1067, 1070, 1073, 1076, 1078, 1080, 1083, 1086, 1088, 1090, 1093, 1097, 1100, 1104, 1107, 1111, 1114, 1117, 1120, 1123, 1126, 1129, 1132, 1135, 1138, 1141, 1144, 1147, 1150, 1153, 1156, 1159, 1162, 1165, 1168, 1171, 1174, 1177, 1180, 1183, 1186, 1189, 1192, 1195, 1198, 1201, 1204, 1206, 1208, 1210, 1212, 1214, 1216, 1218, 1220, 1222, 1224, 1226, 1228, 1230, 1232, 1234, 1236, 1238, 1240, 1242, 1244, 1246, 1248, 1250, 1252, 1254, 1256, 1258, 1260, 1262, 1264, 1266, 1268, 1270, 1272, 1274, 1276, 1278, 1280, 1282, 1284, 1286, 1288, 1290, 1292, 1294, 1296, 1298, 1300, 1302, 1304, 1306, 1308, 1310, 1312, 1314, 1316, 1318, 1320, 1322, 1324, 1326, 1328, 1330, 1332, 1334, 1336, 1338, 1340, 1342, 1344, 1346, 1348, 1350, 1352, 1354, 1356, 1358, 1360, 1362, 1364, 1366, 1368, 1370, 1372, 1374, 1376, 1378, 1380, 1382, 1384, 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, 1440, 1442, 1444, 1446, 1448, 1450, 1452, 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, 1508, 1510, 1512, 1514, 1516, 1518, 1520, 1522, 1524, 1526, 1528, 1530, 1532, 1534, 1536, 1538, 1540, 1542, 1544, 1546, 1548, 1550, 1552, 1554, 1556, 1558, 1560, 1562, 1564, 1566, 1568, 1570, 1572, 1574, 1576, 1578, 1580, 1582, 1584, 1586, 1588, 1590, 1592, 1594, 1596, 1598, 1600, 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, 1829, 1830, 1831, 1832, 1833, 1834, 1835, 1836, 1837, 1838, 1839, 1841, 1843, 1845, 1847, 1849, 1851, 1854, 1857, 1860, 1863, 1866, 1869, 1872, 1875, 1878, 1881, 1884, 1887, 1890, 1893, 1896, 1899, 1902, 1905, 1908, 1911, 1914, 1916, 1919, 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, 2211, 2214, 2217, 2229, 2242, 2246) pos_end <- c( 7, 10, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 41, 43, 45, 47, 49, 51, 53, 55, 56, 58, 60, 62, 64, 66, 68, 70, 71, 73, 75, 77, 79, 82, 85, 88, 91, 92, 93, 94, 95, 97, 99, 101, 102, 104, 106, 110, 112, 116, 118, 122, 124, 128, 130, 134, 136, 140, 142, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 159, 161, 163, 165, 167, 169, 171, 173, 175, 177, 179, 181, 185, 186, 187, 189, 190, 191, 192, 193, 194, 195, 197, 199, 201, 203, 206, 209, 212, 215, 218, 221, 224, 227, 230, 233, 235, 237, 239, 241, 243, 245, 247, 249, 251, 253, 255, 258, 260, 262, 265, 267, 269, 271, 273, 275, 277, 279, 282, 284, 286, 289, 291, 294, 296, 299, 301, 304, 306, 309, 312, 314, 317, 319, 322, 324, 327, 329, 332, 334, 336, 338, 340, 342, 344, 346, 348, 350, 352, 354, 356, 358, 360, 363, 366, 369, 372, 375, 378, 380, 382, 384, 386, 388, 390, 392, 394, 396, 398, 400, 402, 404, 406, 408, 410, 412, 414, 416, 418, 420, 423, 425, 427, 429, 431, 433, 435, 437, 439, 441, 444, 446, 449, 451, 454, 456, 459, 461, 464, 466, 469, 471, 474, 476, 479, 481, 483, 485, 487, 489, 491, 493, 495, 497, 499, 501, 503, 505, 507, 509, 511, 513, 515, 517, 519, 521, 524, 526, 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, 580, 582, 584, 586, 588, 590, 592, 594, 596, 598, 600, 602, 604, 606, 608, 610, 611, 614, 617, 620, 623, 626, 629, 632, 635, 638, 641, 644, 647, 650, 653, 656, 659, 662, 665, 668, 671, 674, 677, 680, 683, 686, 689, 692, 695, 698, 701, 704, 707, 710, 713, 716, 719, 722, 725, 728, 731, 734, 737, 740, 743, 746, 749, 752, 755, 758, 761, 764, 767, 770, 773, 776, 779, 782, 785, 788, 791, 794, 797, 800, 804, 807, 810, 813, 816, 818, 820, 822, 824, 826, 828, 830, 832, 834, 836, 838, 840, 842, 844, 846, 848, 850, 852, 854, 856, 858, 860, 862, 864, 866, 868, 870, 872, 874, 876, 878, 880, 882, 884, 886, 888, 890, 892, 894, 897, 900, 902, 905, 908, 911, 913, 916, 919, 922, 925, 931, 937, 943, 944, 945, 946, 949, 952, 955, 958, 961, 964, 970, 976, 982, 985, 988, 991, 994, 997, 1000, 1003, 1006, 1009, 1012, 1015, 1018, 1021, 1024, 1027, 1030, 1033, 1036, 1039, 1042, 1045, 1048, 1051, 1054, 1057, 1060, 1063, 1066, 1069, 1072, 1075, 1077, 1079, 1082, 1085, 1087, 1089, 1092, 1096, 1099, 1103, 1106, 1110, 1113, 1116, 1119, 1122, 1125, 1128, 1131, 1134, 1137, 1140, 1143, 1146, 1149, 1152, 1155, 1158, 1161, 1164, 1167, 1170, 1173, 1176, 1179, 1182, 1185, 1188, 1191, 1194, 1197, 1200, 1203, 1205, 1207, 1209, 1211, 1213, 1215, 1217, 1219, 1221, 1223, 1225, 1227, 1229, 1231, 1233, 1235, 1237, 1239, 1241, 1243, 1245, 1247, 1249, 1251, 1253, 1255, 1257, 1259, 1261, 1263, 1265, 1267, 1269, 1271, 1273, 1275, 1277, 1279, 1281, 1283, 1285, 1287, 1289, 1291, 1293, 1295, 1297, 1299, 1301, 1303, 1305, 1307, 1309, 1311, 1313, 1315, 1317, 1319, 1321, 1323, 1325, 1327, 1329, 1331, 1333, 1335, 1337, 1339, 1341, 1343, 1345, 1347, 1349, 1351, 1353, 1355, 1357, 1359, 1361, 1363, 1365, 1367, 1369, 1371, 1373, 1375, 1377, 1379, 1381, 1383, 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, 1439, 1441, 1443, 1445, 1447, 1449, 1451, 1453, 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, 1509, 1511, 1513, 1515, 1517, 1519, 1521, 1523, 1525, 1527, 1529, 1531, 1533, 1535, 1537, 1539, 1541, 1543, 1545, 1547, 1549, 1551, 1553, 1555, 1557, 1559, 1561, 1563, 1565, 1567, 1569, 1571, 1573, 1575, 1577, 1579, 1581, 1583, 1585, 1587, 1589, 1591, 1593, 1595, 1597, 1599, 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, 1828, 1829, 1830, 1831, 1832, 1833, 1834, 1835, 1836, 1837, 1838, 1840, 1842, 1844, 1846, 1848, 1850, 1853, 1856, 1859, 1862, 1865, 1868, 1871, 1874, 1877, 1880, 1883, 1886, 1889, 1892, 1895, 1898, 1901, 1904, 1907, 1910, 1913, 1915, 1918, 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, 2210, 2213, 2216, 2228, 2241, 2245, 2246) var_names <- c( "DUID", "PID", "DUPERSID", "PANEL", "FAMID31", "FAMID42", "FAMID53", "FAMID21", "FAMIDYR", "RULETR31", "RULETR42", "RULETR53", "RULETR21", "RUSIZE31", "RUSIZE42", "RUSIZE53", "RUSIZE21", "RUCLAS31", "RUCLAS42", "RUCLAS53", "RUCLAS21", "FAMSZE31", "FAMSZE42", "FAMSZE53", "FAMSZE21", "FMRS1231", "FAMS1231", "FAMSZEYR", "FAMRFPYR", "REGION31", "REGION42", "REGION53", "REGION21", "REFPRS31", "REFPRS42", "REFPRS53", "REFPRS21", "RESP31", "RESP42", "RESP53", "RESP21", "PROXY31", "PROXY42", "PROXY53", "PROXY21", "INTVLANG", "BEGRFM31", "BEGRFY31", "ENDRFM31", "ENDRFY31", "BEGRFM42", "BEGRFY42", "ENDRFM42", "ENDRFY42", "BEGRFM53", "BEGRFY53", "ENDRFM53", "ENDRFY53", "ENDRFM21", "ENDRFY21", "KEYNESS", "INSCOP31", "INSCOP42", "INSCOP53", "INSCOP21", "INSC1231", "INSCOPE", "ELGRND31", "ELGRND42", "ELGRND53", "ELGRND21", "PSTATS31", "PSTATS42", "PSTATS53", "RURSLT31", "RURSLT42", "RURSLT53", "AGE31X", "AGE42X", "AGE53X", "AGE21X", "AGELAST", "DOBMM", "DOBYY", "SEX", "RACEV1X", "RACEV2X", "RACEAX", "RACEBX", "RACEWX", "RACETHX", "HISPANX", "HISPNCAT", "MARRY31X", "MARRY42X", "MARRY53X", "MARRY21X", "SPOUID31", "SPOUID42", "SPOUID53", "SPOUID21", "SPOUIN31", "SPOUIN42", "SPOUIN53", "SPOUIN21", "EDUCYR", "HIDEG", "FTSTU31X", "FTSTU42X", "FTSTU53X", "FTSTU21X", "ACTDTY31", "ACTDTY42", "ACTDTY53", "REFRL31X", "REFRL42X", "REFRL53X", "REFRL21X", "OTHLGSPK", "WHTLGSPK", "HWELLSPK", "BORNUSA", "YRSINUS", "RTHLTH31", "RTHLTH42", "RTHLTH53", "MNHLTH31", "MNHLTH42", "MNHLTH53", "HIBPDX", "HIBPAGED", "BPMLDX", "CHDDX", "CHDAGED", "ANGIDX", "ANGIAGED", "MIDX", "MIAGED", "OHRTDX", "OHRTAGED", "OHRTTYPE", "STRKDX", "STRKAGED", "EMPHDX", "EMPHAGED", "CHBRON31", "CHBRON53", "CHOLDX", "CHOLAGED", "CANCERDX", "CABLADDR", "CABREAST", "CACERVIX", "CACOLON", "CALUNG", "CALYMPH", "CAMELANO", "CAOTHER", "CAPROSTA", "CASKINNM", "CASKINDK", "CAUTERUS", "DIABDX_M18", "DIABAGED", "JTPAIN31_M18", "JTPAIN53_M18", "ARTHDX", "ARTHTYPE", "ARTHAGED", "ASTHDX", "ASTHAGED", "ASSTIL31", "ASSTIL53", "ASATAK31", "ASATAK53", "ASTHEP31", "ASTHEP53", "ASACUT31", "ASACUT53", "ASMRCN31", "ASMRCN53", "ASPREV31", "ASPREV53", "ASDALY31", "ASDALY53", "ASPKFL31", "ASPKFL53", "ASEVFL31", "ASEVFL53", "ASWNFL31", "ASWNFL53", "ADHDADDX", "ADHDAGED", "IADLHP31", "IADLHP53", "ADLHLP31", "ADLHLP53", "AIDHLP31", "AIDHLP53", "WLKLIM31", "WLKLIM53", "LFTDIF31", "LFTDIF53", "STPDIF31", "STPDIF53", "WLKDIF31", "WLKDIF53", "MILDIF31", "MILDIF53", "STNDIF31", "STNDIF53", "BENDIF31", "BENDIF53", "RCHDIF31", "RCHDIF53", "FNGRDF31", "FNGRDF53", "ACTLIM31", "ACTLIM53", "WRKLIM31", "WRKLIM53", "HSELIM31", "HSELIM53", "SCHLIM31", "SCHLIM53", "UNABLE31", "UNABLE53", "SOCLIM31", "SOCLIM53", "COGLIM31", "COGLIM53", "DFHEAR42", "DFSEE42", "DFCOG42", "DFWLKC42", "DFDRSB42", "DFERND42", "ANYLMI21", "CHPMED42", "CHPMHB42", "CHPMCN42", "CHSERV42", "CHSRHB42", "CHSRCN42", "CHLIMI42", "CHLIHB42", "CHLICO42", "CHTHER42", "CHTHHB42", "CHTHCO42", "CHCOUN42", "CHEMPB42", "CSHCN42", "GETTRB42", "MOMPRO42", "DADPRO42", "UNHAP42", "SCHLBH42", "HAVFUN42", "ADUPRO42", "NERVAF42", "SIBPRO42", "KIDPRO42", "SPRPRO42", "SCHPRO42", "HOMEBH42", "CHILCR42", "CHILWW42", "CHRTCR42", "CHRTWW42", "CHAPPT42", "CHLIST42", "CHEXPL42", "CHRESP42", "CHPRTM42", "CHHECR42", "CHSPEC42_M18", "CHEYRE42_M18", "LSTETH53", "PHYEXE53", "OFTSMK53", "SDOHELIG", "SDLIFE", "SDHOME", "SDMEDCARE", "SDPARKS", "SDHLTHFOOD", "SDSFCRIME", "SDPUBTRANS", "SDAFRDHOME", "SDNOTRANS", "SDLATERENT", "SDLATEUTIL", "SDSHUTUTIL", "SDPROBPEST", "SDPROBMOLD", "SDPROBLEAD", "SDPROBHEAT", "SDPROBCOOK", "SDPROBSMKDET", "SDPROBLEAKS", "SDPROBNONE", "SDWRRYFD", "SDNOFOOD", "SDPAYBASICS", "SDUNEXPEXP", "SDMISSCCLN", "SDDEBT", "SDDAYEXER", "SDMINSEXER", "SDSTRESS", "SDFAMILY", "SDFRIENDS", "SDCOMM", "SDTLKPHN", "SDGETTGT", "SDCHURCH", "SDCLUBORG", "SDCOMPAN", "SDLEFTOUT", "SDISOL", "SDENICPROD", "SDDSCRMDR", "SDDSCRMWRK", "SDDSCRMJOB", "SDDSCRMHS", "SDDSCRMPOL", "SDDSCRMPUB", "SDDSCRMSTR", "SDPHYSHURT", "SDINSULT", "SDTHRHARM", "SDSCREAM", "SDHMDEPR", "SDHMALC", "SDHMDRG", "SDHMJAIL", "SDHMDIV", "SDHMBEAT", "SDHURTCHLD", "SDINSCHLD", "SDTCHCHLD", "SDTCHADLT", "SDFRCSXCH", "SDCMPM", "SDCMPY", "SDPROX", "DDNWRK21", "OTHDYS21", "OTHNDD21", "ACCELI42", "HAVEUS42", "PRACTP42", "YNOUSC42_M18", "PROVTY42_M18", "PLCTYP42", "TMTKUS42", "TYPEPE42", "LOCATN42", "HSPLAP42", "WHITPR42", "BLCKPR42", "ASIANP42", "NATAMP42", "PACISP42", "OTHRCP42", "GENDRP42", "PHNREG42", "OFFHOU42", "AFTHOU42", "TREATM42", "DECIDE42", "EXPLOP42", "PRVSPK42", "DLAYCA42", "AFRDCA42", "DLAYDN42", "AFRDDN42", "DLAYPM42", "AFRDPM42", "CVDLAYCA31", "CVDLAYCA42", "CVDLAYCA53", "CVDLAYDN31", "CVDLAYDN42", "CVDLAYDN53", "CVDLAYPM31", "CVDLAYPM42", "CVDLAYPM53", "CVVACCINE42", "CVVACCINE53", "BOOSTERSHOT53", "EMPST31", "EMPST42", "EMPST53", "RNDFLG31", "MORJOB31", "MORJOB42", "MORJOB53", "EVRWRK", "HRWG31X", "HRWG42X", "HRWG53X", "HRWGIM31", "HRWGIM42", "HRWGIM53", "HRHOW31", "HRHOW42", "HRHOW53", "DIFFWG31", "DIFFWG42", "DIFFWG53", "NHRWG31", "NHRWG42", "NHRWG53", "HOUR31", "HOUR42", "HOUR53", "TEMPJB31", "TEMPJB42", "TEMPJB53", "SSNLJB31", "SSNLJB42", "SSNLJB53", "SELFCM31", "SELFCM42", "SELFCM53", "DISVW31X", "DISVW42X", "DISVW53X", "CHOIC31", "CHOIC42", "CHOIC53", "INDCAT31", "INDCAT42", "INDCAT53", "NUMEMP31", "NUMEMP42", "NUMEMP53", "MORE31", "MORE42", "MORE53", "UNION31", "UNION42", "UNION53", "NWK31", "NWK42", "NWK53", "CHGJ3142", "CHGJ4253", "YCHJ3142", "YCHJ4253", "STJBMM31", "STJBYY31", "STJBMM42", "STJBYY42", "STJBMM53", "STJBYY53", "EVRETIRE", "OCCCAT31", "OCCCAT42", "OCCCAT53", "PAYVAC31", "PAYVAC42", "PAYVAC53", "SICPAY31", "SICPAY42", "SICPAY53", "PAYDR31", "PAYDR42", "PAYDR53", "RETPLN31", "RETPLN42", "RETPLN53", "BSNTY31", "BSNTY42", "BSNTY53", "JOBORG31", "JOBORG42", "JOBORG53", "HELD31X", "HELD42X", "HELD53X", "OFFER31X", "OFFER42X", "OFFER53X", "OFREMP31", "OFREMP42", "OFREMP53", "TRIJA21X", "TRIFE21X", "TRIMA21X", "TRIAP21X", "TRIMY21X", "TRIJU21X", "TRIJL21X", "TRIAU21X", "TRISE21X", "TRIOC21X", "TRINO21X", "TRIDE21X", "MCRJA21", "MCRFE21", "MCRMA21", "MCRAP21", "MCRMY21", "MCRJU21", "MCRJL21", "MCRAU21", "MCRSE21", "MCROC21", "MCRNO21", "MCRDE21", "MCRJA21X", "MCRFE21X", "MCRMA21X", "MCRAP21X", "MCRMY21X", "MCRJU21X", "MCRJL21X", "MCRAU21X", "MCRSE21X", "MCROC21X", "MCRNO21X", "MCRDE21X", "MCDJA21", "MCDFE21", "MCDMA21", "MCDAP21", "MCDMY21", "MCDJU21", "MCDJL21", "MCDAU21", "MCDSE21", "MCDOC21", "MCDNO21", "MCDDE21", "MCDJA21X", "MCDFE21X", "MCDMA21X", "MCDAP21X", "MCDMY21X", "MCDJU21X", "MCDJL21X", "MCDAU21X", "MCDSE21X", "MCDOC21X", "MCDNO21X", "MCDDE21X", "GVAJA21", "GVAFE21", "GVAMA21", "GVAAP21", "GVAMY21", "GVAJU21", "GVAJL21", "GVAAU21", "GVASE21", "GVAOC21", "GVANO21", "GVADE21", "GVBJA21", "GVBFE21", "GVBMA21", "GVBAP21", "GVBMY21", "GVBJU21", "GVBJL21", "GVBAU21", "GVBSE21", "GVBOC21", "GVBNO21", "GVBDE21", "GVCJA21", "GVCFE21", "GVCMA21", "GVCAP21", "GVCMY21", "GVCJU21", "GVCJL21", "GVCAU21", "GVCSE21", "GVCOC21", "GVCNO21", "GVCDE21", "VAPJA21", "VAPFE21", "VAPMA21", "VAPAP21", "VAPMY21", "VAPJU21", "VAPJL21", "VAPAU21", "VAPSE21", "VAPOC21", "VAPNO21", "VAPDE21", "IHSJA21", "IHSFE21", "IHSMA21", "IHSAP21", "IHSMY21", "IHSJU21", "IHSJL21", "IHSAU21", "IHSSE21", "IHSOC21", "IHSNO21", "IHSDE21", "PUBJA21X", "PUBFE21X", "PUBMA21X", "PUBAP21X", "PUBMY21X", "PUBJU21X", "PUBJL21X", "PUBAU21X", "PUBSE21X", "PUBOC21X", "PUBNO21X", "PUBDE21X", "PEGJA21", "PEGFE21", "PEGMA21", "PEGAP21", "PEGMY21", "PEGJU21", "PEGJL21", "PEGAU21", "PEGSE21", "PEGOC21", "PEGNO21", "PEGDE21", "PDKJA21", "PDKFE21", "PDKMA21", "PDKAP21", "PDKMY21", "PDKJU21", "PDKJL21", "PDKAU21", "PDKSE21", "PDKOC21", "PDKNO21", "PDKDE21", "PNGJA21", "PNGFE21", "PNGMA21", "PNGAP21", "PNGMY21", "PNGJU21", "PNGJL21", "PNGAU21", "PNGSE21", "PNGOC21", "PNGNO21", "PNGDE21", "POGJA21", "POGFE21", "POGMA21", "POGAP21", "POGMY21", "POGJU21", "POGJL21", "POGAU21", "POGSE21", "POGOC21", "POGNO21", "POGDE21", "POEJA21", "POEFE21", "POEMA21", "POEAP21", "POEMY21", "POEJU21", "POEJL21", "POEAU21", "POESE21", "POEOC21", "POENO21", "POEDE21", "PNEJA21", "PNEFE21", "PNEMA21", "PNEAP21", "PNEMY21", "PNEJU21", "PNEJL21", "PNEAU21", "PNESE21", "PNEOC21", "PNENO21", "PNEDE21", "PRXJA21", "PRXFE21", "PRXMA21", "PRXAP21", "PRXMY21", "PRXJU21", "PRXJL21", "PRXAU21", "PRXSE21", "PRXOC21", "PRXNO21", "PRXDE21", "PRIJA21", "PRIFE21", "PRIMA21", "PRIAP21", "PRIMY21", "PRIJU21", "PRIJL21", "PRIAU21", "PRISE21", "PRIOC21", "PRINO21", "PRIDE21", "HPEJA21", "HPEFE21", "HPEMA21", "HPEAP21", "HPEMY21", "HPEJU21", "HPEJL21", "HPEAU21", "HPESE21", "HPEOC21", "HPENO21", "HPEDE21", "HPDJA21", "HPDFE21", "HPDMA21", "HPDAP21", "HPDMY21", "HPDJU21", "HPDJL21", "HPDAU21", "HPDSE21", "HPDOC21", "HPDNO21", "HPDDE21", "HPNJA21", "HPNFE21", "HPNMA21", "HPNAP21", "HPNMY21", "HPNJU21", "HPNJL21", "HPNAU21", "HPNSE21", "HPNOC21", "HPNNO21", "HPNDE21", "HPOJA21", "HPOFE21", "HPOMA21", "HPOAP21", "HPOMY21", "HPOJU21", "HPOJL21", "HPOAU21", "HPOSE21", "HPOOC21", "HPONO21", "HPODE21", "HPXJA21", "HPXFE21", "HPXMA21", "HPXAP21", "HPXMY21", "HPXJU21", "HPXJL21", "HPXAU21", "HPXSE21", "HPXOC21", "HPXNO21", "HPXDE21", "HPRJA21", "HPRFE21", "HPRMA21", "HPRAP21", "HPRMY21", "HPRJU21", "HPRJL21", "HPRAU21", "HPRSE21", "HPROC21", "HPRNO21", "HPRDE21", "INSJA21X", "INSFE21X", "INSMA21X", "INSAP21X", "INSMY21X", "INSJU21X", "INSJL21X", "INSAU21X", "INSSE21X", "INSOC21X", "INSNO21X", "INSDE21X", "PRVEV21", "TRIEV21", "MCREV21", "MCDEV21", "VAEV21", "GVAEV21", "GVBEV21", "GVCEV21", "UNINS21", "INSCOV21", "INSURC21", "TRICH31X", "TRICH42X", "TRICH21X", "TRI31X", "TRI42X", "TRI21X", "MCRPD31", "MCRPD42", "MCRPD21", "MCRPD31X", "MCRPD42X", "MCRPD21X", "MCRPB31", "MCRPB42", "MCRPB21", "MCRPHO31", "MCRPHO42", "MCRPHO21", "MCDHMO31", "MCDHMO42", "MCDHMO21", "MCDMC31", "MCDMC42", "MCDMC21", "PRVHMO31", "PRVHMO42", "PRVHMO21", "FSAGT31", "HASFSA31", "PFSAMT31", "PREVCOVR", "MORECOVR", "TRICR31X", "TRICR42X", "TRICR53X", "TRICR21X", "TRIAT31X", "TRIAT42X", "TRIAT53X", "TRIAT21X", "MCAID31", "MCAID42", "MCAID53", "MCAID21", "MCAID31X", "MCAID42X", "MCAID53X", "MCAID21X", "MCARE31", "MCARE42", "MCARE53", "MCARE21", "MCARE31X", "MCARE42X", "MCARE53X", "MCARE21X", "MCDAT31X", "MCDAT42X", "MCDAT53X", "MCDAT21X", "GOVTA31", "GOVTA42", "GOVTA53", "GOVTA21", "GOVAAT31", "GOVAAT42", "GOVAAT53", "GOVAAT21", "GOVTB31", "GOVTB42", "GOVTB53", "GOVTB21", "GOVBAT31", "GOVBAT42", "GOVBAT53", "GOVBAT21", "GOVTC31", "GOVTC42", "GOVTC53", "GOVTC21", "GOVCAT31", "GOVCAT42", "GOVCAT53", "GOVCAT21", "VAPROG31", "VAPROG42", "VAPROG53", "VAPROG21", "VAPRAT31", "VAPRAT42", "VAPRAT53", "VAPRAT21", "IHS31", "IHS42", "IHS53", "IHS21", "IHSAT31", "IHSAT42", "IHSAT53", "IHSAT21", "PRIDK31", "PRIDK42", "PRIDK53", "PRIDK21", "PRIEU31", "PRIEU42", "PRIEU53", "PRIEU21", "PRING31", "PRING42", "PRING53", "PRING21", "PRIOG31", "PRIOG42", "PRIOG53", "PRIOG21", "PRINEO31", "PRINEO42", "PRINEO53", "PRINEO21", "PRIEUO31", "PRIEUO42", "PRIEUO53", "PRIEUO21", "PRSTX31", "PRSTX42", "PRSTX53", "PRSTX21", "PRIV31", "PRIV42", "PRIV53", "PRIV21", "PRIVAT31", "PRIVAT42", "PRIVAT53", "PRIVAT21", "PUB31X", "PUB42X", "PUB53X", "PUB21X", "PUBAT31X", "PUBAT42X", "PUBAT53X", "PUBAT21X", "VERFLG31", "VERFLG42", "VERFLG21", "INS31X", "INS42X", "INS53X", "INS21X", "INSAT31X", "INSAT42X", "INSAT53X", "INSAT21X", "DENTIN31", "DENTIN42", "DENTIN53", "DNTINS31", "DNTINS21", "PMEDIN31", "PMEDIN42", "PMEDIN53", "PMDINS31", "PMDINS21", "PROBPY42", "CRFMPY42", "PYUNBL42", "PMEDUP31", "PMEDUP42", "PMEDUP53", "PMEDPY31", "PMEDPY42", "PMEDPY53", "PERWT21P", "SDOHWT21P", "VARSTR", "VARPSU") var_types <- c( "n", "n", "c", "n", "c", "c", "c", "c", "c", "c", "c", "c", "c", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "c", "c", "c", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "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 ----------------------- h228 <- 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(h228, file ="h228.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 'h228'. # You must run the 'save' command to permanently save the data to a local # folder # -----------------------------------------------------------------------------