Publications by William Dunn
Quiz 3
The data set is from a case-control study of smoking and Alzheimer’s disease. The data set has two variables of main interest: smoking a factor with four levels “None”, “<10”, “10-20”, and “>20” (cigarettes per day) disease a factor with three levels “Alzheimer”, “Other dementias”, and “Other diagnoses”. Q1 Describ...
2707 sym 3 img
Quiz 5
Replicate a case study of marketing analytics: https://www.linkedin.com/learning/the-data-science-of-marketing/cluster-analysis-with-r?u=2232593 Q1 Import data myClusterData <- read.csv("cluster-r.csv") Q2 Review data head(myClusterData) ## Email Behavior.3 Brand.Preference CTA ## 1 nisl@adipisc...
646 sym R (39519 sym/5 pcs) 1 img
Quiz1
# Load packages library(tidyquant) ## Loading required package: lubridate ## ## Attaching package: 'lubridate' ## The following objects are masked from 'package:base': ## ## date, intersect, setdiff, union ## Loading required package: PerformanceAnalytics ## Loading required package: xts ## Loading required package: zoo ## ## Attachi...
1184 sym R (3601 sym/26 pcs)
Document
# Load packages library(tidyquant) library(tidyverse) Q1 dividends Import dividends of Costco and Target since 2000. dividends <- tq_get(c("COST", "TGT"), get = "dividends", from = "2010-01-01") dividends ## # A tibble: 89 x 3 ## symbol date value ## <chr> <date> <dbl> ## 1 COST 2010-02-10 0.18 ## 2 CO...
1330 sym R (4861 sym/15 pcs)
Quiz2
In this exercise, use Chapter 4.2 Quantitative vs. Quantitative Data Visualization with R. # Load packages library(tidyquant) ## Loading required package: lubridate ## ## Attaching package: 'lubridate' ## The following objects are masked from 'package:base': ## ## date, intersect, setdiff, union ## Loading required package: Performance...
1751 sym R (5135 sym/30 pcs) 2 img
Quiz4
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("AMZN", get = "stock.prices", from = "2020-01-01", to = "2020-10-01") stock ## # A tibble: 189 x 8 ## symbol date open high low close volume adjusted...
2603 sym R (4234 sym/11 pcs) 1 img
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...
6827 sym R (448 sym/2 pcs)
Quiz5
# Load packages library(tidyquant) library(tidyverse) # Import stock prices and calculate returns returns_quarterly <- c("^DJI", "^GSPC", "^IXIC") %>% tq_get(get = "stock.prices", from = "1990-01-01", to = "2020-11-01") %>% group_by(symbol) %>% tq_transmute(select = adjusted, mu...
2956 sym R (8336 sym/19 pcs) 1 img
Quiz 6
Q1 Get monthly returns of Facebook, Amazon, and Netflix for the last 5 years. # Load packages library(tidyquant) library(tidyverse) from <- today() - years(5) stock_returns_monthly <- c("FB", "AMZN","NFLX") %>% tq_get(get = "stock.prices", from = from) %>% group_by(symbol) %>% tq_transmute(select = adjusted,...
1274 sym R (7582 sym/17 pcs)