data-raw/create-group-data.R

In PIP-Technical-Team/wbpip: What the Package Does (One Line, Title Case)

# Load list of synthetic test datasets
grouped_data_ex1 <- readRDS(test_path("testdata", "gd_ex1.RDS"))
grouped_data_ex2 <- readRDS(test_path("testdata", "gd_ex2.RDS"))
grouped_data_ex3 <- readRDS(test_path("testdata", "gd_ex3.RDS"))

# National grouped data (type 5)
gd_GHI_2009_income <- data.frame(
  country_code = "JKL",
  survey_year = 2009,
  weight = 10,
  welfare = c(18.10, 27.50, 35.20, 43.30, 51.61, 56.15, 75.17, 93.39, 128.30, 260.90),
  area = ""
)
usethis::use_data(grouped_data_ex1,
                  grouped_data_ex2,
                  grouped_data_ex3,
                  gd_GHI_2009_income,
                  overwrite = TRUE)