data_url <- "https://github.com/P4CSS/R4CSS/raw/master/data/newswawawa_yt_comments.rds"
raw <- read_rds(url(data_url))
githubURL <- ("https://raw.githubusercontent.com/derek-corcoran-barrios/LastBat/master/best2.My.Lu2.rds")
download.file(githubURL,"best2.My.Lu2.rds", method="curl")
BestMyyu <- readRDS("best2.My.Lu2.rds")