Publications by Daniel Lee

Good Code Apply 7

25.10.2023

knitr::opts_chunk$set(echo = TRUE) # Load package library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.3 ✔ readr 2.1.4 ## ✔ forcats 1.0.0 ✔ stringr 1.5.0 ## ✔ ggplot2 3.4.3 ✔ tibble ...

175 sym R (7229 sym/20 pcs)

Apply Code 8

25.10.2023

knitr::opts_chunk$set(echo = TRUE) library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.3 ✔ readr 2.1.4 ## ✔ forcats 1.0.0 ✔ stringr 1.5.0 ## ✔ ggplot2 3.4.3 ✔ tibble 3.2.1 ## ✔ lu...

1554 sym R (6657 sym/24 pcs)

Code Along 8 - Jason Zink

25.10.2023

Introduction nycflights13 Keys Mutating Joins x <- tribble( ~key, ~val_x, 1, "x1", 2, "x2", 3, "x3" ) y <- tribble( ~key, ~val_y, 1, "y1", 2, "y2", 4, "y3" ) inner_join(x, y) ## Joining, by = "key" ## # A tibble: 2 × 3 ## key val_x val_y ## <dbl> <chr> <chr> ## 1 1 x1 y1 ## 2 2 x2 y2 Ou...

192 sym Python (5356 sym/43 pcs)

Codealong8 CH6

25.10.2023

# Load packages # Core library(tidyverse) library(tidyquant) Goal Collect individual returns into a portfolio by assigning a weight to each stock five stocks: “SPY”, “EFA”, “IJS”, “EEM”, “AGG” from 2012-12-31 to 2017-12-31 1 Import stock prices # Choose stocks symbols <- c("AGG", "EEM", "EFA", "IJS", "SPY") prices <- tq_get...

403 sym R (4071 sym/20 pcs) 3 img

Code Along 8

24.10.2023

knitr::opts_chunk$set(echo = TRUE) # Load package] library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.3 ✔ readr 2.1.4 ## ✔ forcats 1.0.0 ✔ stringr 1.5.0 ## ✔ ggplot2 3.4.3 ✔ tibble ...

209 sym R (6270 sym/48 pcs)

Code Along 7

24.10.2023

library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.3 ✔ readr 2.1.4 ## ✔ forcats 1.0.0 ✔ stringr 1.5.0 ## ✔ ggplot2 3.4.3 ✔ tibble 3.2.1 ## ✔ lubridate 1.9.2 ✔ tidyr 1.3.0 ## ...

66 sym R (9159 sym/46 pcs) 1 img

Real World Applications 8

23.10.2023

Let’s use a hypothetical manufacturing company, Daewoo, for the assignment. Daewoo is an American automobile manufacturing company that makes cars in the U.S. and sells in the U.K. market. Assume that a majority of its revenue comes from the U.K. market. Read the attached article, and answer the following questions. Monetary Policy: Did the ...

848 sym

Apply 7

22.10.2023

# Load packages # Core library(tidyverse) library(tidyquant) Goal Visualize and compare skewness of your portfolio and its assets. Choose your stocks. from 2012-12-31 to 2017-12-31 1 Import stock prices # Choose stocks symbols <- c("AAPL", "DIS", "NKE", "GM", "SBUX") prices <- tq_get(x = symbols, get = "stock.prices", ...

712 sym R (2051 sym/13 pcs)

Apply 7 - Jason Zink

20.10.2023

Import your data # csv file jobs_gender <- readr::read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2019/2019-03-05/jobs_gender.csv") ## Rows: 2088 Columns: 12 ## ── Column specification ─────────────────────────────────────────�...

166 sym Python (4222 sym/11 pcs)

Apply to Data 7

20.10.2023

# Load packages # Core library(tidyverse) library(tidyquant) Goal Visualize and compare skewness of your portfolio and its assets. Choose your stocks. from 2012-12-31 to 2017-12-31 1 Import stock prices five stocks: “SPY”, “EFA”, “IJS”, “EEM”, “AGG” symbols <- c("SPY", "EFA", "IJS", "EEM", "AGG") prices <- tq_get(x = ...

881 sym R (1931 sym/13 pcs)