Does the web page feature a date and is this date less than two months before the date that you’re grading this assignment?

Is the web page a presentation and does it feature an interactive plot that appears to have been created with Plotly?

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

plain_x <- c(1:50)
plain_y <- rnorm(50, mean = 0)
data <- data.frame(plain_x, plain_y )
data

##    plain_x     plain_y
## 1        1 -1.04519203
## 2        2 -1.25369660
## 3        3 -0.23522153
## 4        4 -0.86236228
## 5        5  1.20388343
## 6        6  0.19625124
## 7        7  0.63050720
## 8        8  0.73569838
## 9        9 -1.18644655
## 10      10  0.73380180
## 11      11 -1.32107016
## 12      12  0.41251871
## 13      13  0.57715376
## 14      14  0.64193796
## 15      15 -0.19866147
## 16      16 -1.51655549
## 17      17 -0.04059789
## 18      18 -1.52717430
## 19      19 -0.49749086
## 20      20 -0.27709801
## 21      21 -1.19416556
## 22      22  0.63469343
## 23      23 -2.22481644
## 24      24 -0.21770427
## 25      25 -0.54988771
## 26      26  1.03919237
## 27      27  0.12180346
## 28      28  0.68208856
## 29      29  0.76725848
## 30      30  0.26898723
## 31      31 -0.49059724
## 32      32  0.38819444
## 33      33 -0.44159525
## 34      34  1.22435988
## 35      35  0.60572457
## 36      36  1.87463874
## 37      37  0.19905158
## 38      38  0.39608815
## 39      39 -0.24458178
## 40      40  0.39998217
## 41      41  1.04326247
## 42      42  1.76910420
## 43      43 -0.30347827
## 44      44 -0.68135738
## 45      45  0.55412805
## 46      46  0.37005330
## 47      47  0.68400100
## 48      48 -0.24997349
## 49      49  1.37323248
## 50      50 -0.87056256

p <- plot_ly(data, x = plain_x, y = plain_y , type = 'scatter', mode = 'lines')

## Warning: `arrange_()` is deprecated as of dplyr 0.7.0.
## Please use `arrange()` instead.
## See vignette('programming') for more help
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.

Thank you