# Load ugly set
if (FALSE) {
data(tiny_messy_adult)
# Have a look to set
head(tiny_messy_adult)
# Compute full pipeline
clean_adult <- prepare_set(tiny_messy_adult)
# With a reference date
adult_agg <- prepare_set(tiny_messy_adult, analysis_date = as.Date("2017-01-01"))
# Add aggregation by country
adult_agg <- prepare_set(tiny_messy_adult, analysis_date = as.Date("2017-01-01"), key = "country")
# With some new aggregation functions
power <- function(x) {sum(x^2)}
adult_agg <- prepare_set(tiny_messy_adult, analysis_date = as.Date("2017-01-01"), key = "country",
functions = c("min", "max", "mean", "power"))
}
# "##NOT RUN:" mean that this example hasn't been run on CRAN since its long. But you can run it!
Run the code above in your browser using DataLab