# NOT RUN {
# Load ugly set
# }
# NOT RUN {
data(messy_adult)
# Have a look to set
head(messy_adult)
# Compute full pipeline
clean_adult <- prepareSet(messy_adult)
# With a reference date
adult_agg <- prepareSet(messy_adult, analysisDate = as.Date("2017-01-01"))
# Add aggregation by country
adult_agg <- prepareSet(messy_adult, analysisDate = as.Date("2017-01-01"), key = "country")
# With some new aggregation functions
power <- function(x){sum(x^2)}
adult_agg <- prepareSet(messy_adult, analysisDate = as.Date("2017-01-01"), key = "country",
functions = c("min", "max", "mean", "power"))
# }
# NOT RUN {
# "##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