bunch_viewer(earnings, zstar = NA, cf_start = 10, cf_end = 50, exclude_before = 2, exclude_after = 20, binw = NA, trimy = TRUE, report = FALSE, title = "Count Histogram", varname = "Running Variable")
bunch
ability_vec <- 4000 * rbeta(100000, 2, 5)
earning_vec <- sapply(ability_vec, earning_fun, 0.2, 0.1, 0.2, 0, 1000)
bunch_viewer(earning_vec, 1000, 20, 40, 2, 2, 20, trimy = TRUE, report = FALSE)
Run the code above in your browser using DataLab