data-raw/consumption.R

In jvcasillas/ds4ling: Datasets and Functions developed for SPAN658: Data Science for Linguists

# Food consumption and income  data -------------------------------------------
#
# Create 'consumption' for QASS 57, Ch 1
# Copied from Table 1, p. 14-15
#
# -----------------------------------------------------------------------------


library("tibble")

consumption <- tribble(
  ~'food_consumption', ~'income', ~'family_size', ~'live_on_farm',
    723.52,              8246,      1,              "No",
    780.70,              8742,      4,              "No",
    990.74,              9048,      6,              "No",
    1634.98,             10584,     7,              "No",
    1189.40,             10626,     2,              "No",
    1295.64,             10984,     2,              "No",
    1025.52,             11822,     1,              "No",
    1792.18,             12532,     2,              "No",
    1328.00,             12952,     5,              "No",
    780.06,              13220,     2,              "Yes",
    1366.14,             13386,     6,              "No",
    2950.72,             13746,     8,              "No",
    1273.34,             13946,     2,              "No",
    1953.58,             14206,     2,              "No",
    866.62,              14388,     1,              "No",
    2125.30,             14622,     4,              "No",
    2372.00,             15032,     2,              "No",
    2477.34,             15172,     5,              "No",
    1148.24,             16284,     1,              "No",
    2108.14,             16664,     3,              "No",
    1810.96,             17124,     2,              "No",
    1776.58,             17302,     2,              "No",
    2295.04,             18254,     3,              "No",
    877.52,              18908,     1,              "Yes",
    1284.00,             18922,     2,              "No",
    1502.94,             19330,     2,              "Yes",
    1939.00,             20108,     3,              "No",
    2443.06,             20600,     3,              "No",
    2003.44,             21238,     4,              "No",
    1682.36,             22120,     2,              "No",
    2308.16,             22452,     7,              "No",
    1472.44,             23288,     2,              "No",
    2534.66,             23316,     4,              "No",
    2194.76,             23588,     2,              "No",
    1638.26,             23708,     3,              "No",
    2612.00,             23830,     6,              "No",
    2328.96,             23908,     2,              "No",
    1666.90,             24216,     3,              "No",
    2560.22,             25422,     1,              "No",
    3103.54,             25504,     9,              "No",
    2819.06,             26286,     5,              "No",
    975.10,              26590,     2,              "No",
    2122.52,             26852,     1,              "No",
    1068.38,             27146,     3,              "Yes",
    2253.46,             27936,     6,              "No",
    2763.40,             28556,     5,              "No",
    1904.66,             28874,     3,              "No",
    2111.50,             29450,     4,              "No",
    3211.64,             29624,     1,              "No",
    2665.78,             29690,     4,              "No",
)

usethis::use_data(consumption, overwrite = TRUE)