shuckle16

library(dplyr)
library(foreach)
library(ggplot2)
library(ggrepel)
library(glue)
library(janitor)
library(rvest)

library(doParallel)
registerDoParallel(3)

shuckle16

library(data.table)
library(tictoc)
library(lubridate)

dt <- data.table(
  dayte = format(sample(Sys.Date() + 1:100, size = 1e6, replace = T), format = "%d%b%Y"),
  a = sample(1000, size = 1e6, replace = T)
  )

tic()

shuckle16

library(doMC)
library(glmnet)
library(tictoc)
library(tidyr)
library(ggplot2)
library(PCAtools)

y <- rgamma(10000, shape = 2, scale = 2000)

x <- y - matrix(rnorm(10000000, mean = 3000, sd = 100000), nrow = 10000)

shuckle16

library(readr)
library(dplyr)
library(tidyquant)
library(ggplot2)

counties <- read_csv("https://raw.githubusercontent.com/nytimes/covid-19-data/master/us-counties.csv")

counties %>% 
  filter(state == "Florida", county != "Unknown") %>%
  group_by(county) %>%

shuckle16

library(dplyr)
library(ggplot2)
library(tidyr)
library(stringr)
library(rvest)

usa_html <- read_html("https://covidtracking.com/data/us-daily")

usa_dat <- usa_html %>% html_table() %>% `[[`(1)

shuckle16

library(dplyr)
library(rvest)
library(stringr)
library(ggplot2)
library(tidyr)

STATE_OF_INTEREST <- "Florida"

STATE_OF_INTEREST <- str_to_lower(STATE_OF_INTEREST)

shuckle16

library(tidyverse)
library(rvest)
library(magrittr)

kor_tour <- 
  read_html("https://en.wikipedia.org/wiki/Tourism_in_South_Korea") %>% 
  html_nodes('table') %>% 
  extract2(4) %>% 
  html_table()