Create a web page presentation using R Markdown that features a plot created with Plotly. Host your webpage on either GitHub Pages, RPubs, or NeoCities. Your webpage must contain the date that you created the document, and it must contain a plot created with Plotly. We would love to see you show off your creativity!

Significant Earthquakes, 1965-2016: This dataset includes a record of the date, time, location, depth, magnitude, and source of every earthquake with a reported magnitude 5.5 or higher since 1965 (https://www.kaggle.com/usgs/earthquake-database)

library(plotly)

## Loading required package: ggplot2

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

earthquakes <- read.csv("D:/Coursera/Developing Data Products/Proyecto1/database.csv", header=T)
earthquakes$Date <- as.Date(earthquakes$Date, format= "%m/%d/%Y")