- Iasmyn Lugon
- Lucas Mattos
- Luiz Fernando
- Lyncoln Sousa
- Marcson Araújo
Aplicação dos códigos :
library(sparklyr)
sc <- spark_connect(master = "local")
flights <- sc %>% copy_to(nycflights13::flights, "teste")library(ggplot2)
df <- flights %>%
filter(month == 11 , day == 13) %>%
collect()
ggplot(df, aes(sample = dep_delay)) +
stat_qq() +
stat_qq_line(colour = "red")