In azerbinati/capStoneQuake: This Package has been create for Coursera CapStone

---

title: "Vignette Title" author: "Antonio Zerbinati" date: "r Sys.Date()" output: rmarkdown::html_vignette vignette: > %\VignetteIndexEntry{Vignette Title} %\VignetteEngine{knitr::rmarkdown} %\VignetteEncoding{UTF-8}

---

# library(capStoneQuake)
# library(dplyr)
# library(ggplot2)
# cleanedNOA<-eq_location_clean(eq_clean_data(readRawNOAA(file.path("~","signif.txt"))))
# 
# italy<-cleanedNOA %>% arrange(DEATHS )%>% filter(COUNTRY=="ITALY") %>% mutate(y=2)
# greece<-cleanedNOA %>% arrange(DEATHS )%>% filter(COUNTRY=="GREECE") %>% mutate(y=3)
# 
# 
# 
# greece %>% union_all(italy) %>%
# ggplot() +
#     aes(
#       x = date,
#       y=y,
#       size = EQ_PRIMARY,
#       colour =     DEATHS
#     ) +
#     geom_timeline(alpha=0.4,xmin=2013,xmax=2015) +
#   scale_colour_gradient(name = "# DEATHS", low = "BLACK",high = "RED") +
#   scale_size_continuous(name = "Richter scale value")
# 

azerbinati/capStoneQuake documentation built on May 14, 2019, 2:41 p.m.