# NOT RUN {
library(dplyr)
library(ggplot2)
smart_meter10 %>%
filter(customer_id == 10017936) %>%
gran_advice(gran1 = "wknd_wday",
gran2 = "hour_day")
# choosing quantile plots from plot choices
smart_meter10 %>%
filter(customer_id == 10017936) %>%
prob_plot(
gran1 = "wknd_wday",
gran2 = "hour_day",
response = "general_supply_kwh",
plot_type = "quantile",
quantile_prob = c(0.1, 0.25, 0.5, 0.75, 0.9)
) +
scale_y_sqrt()
# }
Run the code above in your browser using DataCamp Workspace