Publications by Thomas Shantler
Quiz 1
# Load packages library(tidyquant) ## Warning: package 'tidyquant' was built under R version 4.0.3 ## Warning: package 'lubridate' was built under R version 4.0.3 ## Warning: package 'PerformanceAnalytics' was built under R version 4.0.3 ## Warning: package 'xts' was built under R version 4.0.3 ## Warning: package 'zoo' was built under R versio...
873 sym R (2704 sym/22 pcs)
Quiz 5
# Load packages library(tidyquant) library(tidyverse) # Import stock prices and calculate returns returns_yearly <- c("^DJI", "^GSPC", "^IXIC") %>% tq_get(get = "stock.prices", from = "1990-01-01", to = "2020-11-01") %>% group_by(symbol) %>% tq_transmute(select = adjusted, mutat...
3133 sym R (4524 sym/17 pcs) 1 img
Quiz 4
Witht the given stock, conduct the Bollinger Bands analysis by answering the questions below. # Load packages library(tidyquant) library(tidyverse) # Import data stock <- tq_get("MSFT", get = "stock.prices", from = "2020-01-01", to = "2021-03-31") stock ## # A tibble: 313 x 8 ## symbol date open high low close volume adjuste...
2460 sym R (4745 sym/11 pcs) 1 img
Quiz 2
In this exercise, use Chapter 4.2 Quantitative vs. Quantitative Data Visualization with R. # Load packages library(tidyquant) ## Warning: package 'tidyquant' was built under R version 4.0.3 ## Warning: package 'lubridate' was built under R version 4.0.3 ## Warning: package 'PerformanceAnalytics' was built under R version 4.0.3 ## Warning: packa...
1980 sym R (4807 sym/27 pcs) 1 img
Quiz 3
# Load packages library(tidyquant) library(tidyverse) Q1 dividends Import dividends of General Motors and Ford since 2010. mult_stocks <- tq_get(c("GM", "F"), get = "dividends", from = "2010-01-01") mult_stocks ## # A tibble: 58 x 3 ## symbol date value ## <chr> <date> <dbl> ...
1457 sym R (5071 sym/15 pcs)
Term Paper
Finance students in the past have participated in national student competitions. They are a great opportunity to practice and further your knowledge and skills you learned in the finance program at PSU. Because not all of you are finance major, grading will be generous as long as you follow the instructions (e.g., number counts for answers). In a...
7037 sym
Quiz 6
Q1 Get monthly returns of Tesla, Amazon, and Netflix for the last 5 years. library(tidyquant) library(tidyverse) from <- today() - years(5) stock_returns_monthly <- c("TSLA", "AMZN", "NFLX") %>% tq_get(get = "stock.prices", from = from) %>% group_by(symbol) %>% tq_transmute(select = adjusted, ...
1629 sym R (8195 sym/18 pcs)