The study aim to visualize the stocks volatility between second week of Feb to May, 2020 which are sold by Richard Burr, chairman of senate Inetlligence Committee, America. Now FBI serve warrant on senator to investigate the case.
The powerful chairman of the Senate Intelligence Committee, Richard Burr, sold off a significant percentage of his stocks, unloading between $628,000 and $1.72 million of his holdings on Feb. 13 in 33 separate transactions.
A week after Burr’s sales, the stock market began a sharp decline and has lost about 30% since.
Roll Call estimated his net worth at $1.7 million in 2018, indicating that the February sales significantly shaped his financial fortunes and spared him from some of the pain that many Americans are now facing.
WH is the symbol of Wyndham Hotels & Resorts, Inc
STAY is Extended Stay America, Inc
## Loading required package: xts
## Loading required package: zoo
##
## Attaching package: 'zoo'
## The following objects are masked from 'package:base':
##
## as.Date, as.Date.numeric
## Loading required package: TTR
## Registered S3 method overwritten by 'quantmod':
## method from
## as.zoo.data.frame zoo
## Version 0.4-0 included new data defaults. See ?getSymbols.
## Highcharts (www.highcharts.com) is a Highsoft software product which is
## not free for commercial and Governmental use
## 'getSymbols' currently uses auto.assign=TRUE by default, but will
## use auto.assign=FALSE in 0.5-0. You will still be able to use
## 'loadSymbols' to automatically load data. getOption("getSymbols.env")
## and getOption("getSymbols.auto.assign") will still be checked for
## alternate defaults.
##
## This message is shown once per session and may be disabled by setting
## options("getSymbols.warning4.0"=FALSE). See ?getSymbols for details.
## Warning: `as_data_frame()` is deprecated as of tibble 2.0.0.
## Please use `as_tibble()` instead.
## The signature and semantics have changed, see `?as_tibble`.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.
You can also embed plots, for example:
## Loading required package: rvest
## Loading required package: xml2
## Loading required package: dplyr
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:xts':
##
## first, last
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
##
##
## Running BatchGetSymbols for:
## tickers =STAY, WH
## Downloading data for benchmark ticker
## ^GSPC | yahoo (1|1) | Not Cached | Saving cache
## STAY | yahoo (1|2) | Not Cached | Saving cache - Got 100% of valid prices | Nice!
## WH | yahoo (2|2) | Not Cached | Saving cache - Got 100% of valid prices | Nice!
## # A tibble: 2 x 6
## ticker src download.status total.obs perc.benchmark.dates threshold.decision
## <chr> <chr> <chr> <int> <dbl> <chr>
## 1 STAY yahoo OK 57 1 KEEP
## 2 WH yahoo OK 57 1 KEEP
It was found that the stocks are sharply declined from the second week of Feburary.