jlopezper

import pandas_datareader as pdr
import matplotlib.pyplot as plt 
from statsmodels.tsa.stattools import adfuller
from statsmodels.graphics.tsaplots import plot_acf
import seaborn as sns
import warnings
from statsmodels.tsa.arima_model import ARIMA
from sklearn.metrics import mean_squared_error
    
warnings.filterwarnings("ignore")

jlopezper

library(data.table)
library(dtplyr)
library(dplyr, warn.conflicts = FALSE)
library(microbenchmark)
library(ggplot2)

set.seed(123)
df <- data.frame(
  letters = sample(c('A', 'B', 'C'), size = 3e6, replace = TRUE, prob = c(.5, .4, .1)),
  number = sample(c(1:5), size = 3e6, replace = TRUE)

jlopezper

library(tidyverse)
library(osmdata) # package for working with streets
library(showtext) # for custom fonts
library(ggmap)
library(rvest)


big_streets <- getbb("Canarias") %>%
  opq()%>%
  add_osm_feature(key = "highway",