data-raw/sample_index.R

In marberts/ppd: Prices Production and Development

sample_index <- data.frame(date = c(seq(as.Date('2017-01-01'), as.Date('2019-07-01'), 'month'),
                                    seq(as.Date('2017-01-01'), as.Date('2020-01-01'), 'month')),
                           index = c(100, sample(100:150, size = 30), 100, sample(100:150, size = 36)),
                           city = c(rep('A', 31), rep('B', 37)),
                           stringsAsFactors = FALSE)

usethis::use_data("sample_index")