Advertisement
Guest User

Untitled

a guest
Jun 19th, 2019
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.60 KB | None | 0 0
  1. library(tidyverse)
  2. library(broom)
  3. data(mtcars)
  4. df <- mtcars
  5.  
  6. nest.df <- df %>% nest(-carb)
  7.  
  8. results <- nest.df %>%
  9. mutate(fit = map(data, ~ lm(mpg ~ wt, data=.x)),
  10. tidied = map(fit, tidy),
  11. glanced = map(fit, glance),
  12. augmented = map(fit, augment))
  13.  
  14.  
  15. glanced.df <- results %>%
  16. unnest(glanced, .drop=T)
  17.  
  18. tidied.df <- results %>%
  19. unnest(tidied, .drop=T)
  20.  
  21. augmented.df <- results %>%
  22. unnest(augmented, .drop=T)
  23.  
  24. myList <- list(glanced.df, tidied.df, augmented.df)
  25. names(myList) <- c("glance", "tidy", "augment")
  26.  
  27. openxlsx::write.xlsx(myList, file = "myResults.xlsx")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement