Advertisement
Guest User

Untitled

a guest
Feb 19th, 2019
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.44 KB | None | 0 0
  1. n <- 1000
  2. toydata <- data.frame(
  3. sex = as.character(ifelse(rnorm(n)>0, "M", "F")),
  4. value = rnorm(n)
  5. )
  6.  
  7. p <- c(.1, .25, .5, .75, .9)
  8.  
  9. toydata %>%
  10. group_by(sex) %>%
  11. nest() %>%
  12. mutate(
  13. quantiles = map(data, ~quantile(.$value, p, na.rm=TRUE))
  14. )
  15.  
  16.  
  17. # A tibble: 2 x 3
  18. sex data quantiles
  19. <fct> <list> <list>
  20. 1 F <tibble [491 × 1]> <dbl [5]>
  21. 2 M <tibble [509 × 1]> <dbl [5]>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement