# NOT RUN {
# Aggregating the population:
sim_base_lm() %>% sim_agg()
# Aggregating after sampling:
sim_base_lm() %>% sim_sample() %>% sim_agg()
# User aggFun:
sim_base_lm() %>% sim_agg(function(dat) dat[1, ])
# }
Run the code above in your browser using DataLab