Publications by Leo Tzang
Document
library(MASS) table(iris$Species) ## ## setosa versicolor virginica ## 50 50 50 lookup <- c(setosa='blue', versicola='green', virginica='orange') col.ind <- lookup[iris$Species] pairs(iris[-5], pch=21, col="gray", bg=col.ind) lda.fit <- lda(Species ~ ., data = iris) lda.fit ## Call: ## lda(Species ~ ., data = iris) #...
20 sym R (1814 sym/14 pcs) 3 img
Document
library(ISLR2) data(Smarket) names(Smarket) ## [1] "Year" "Lag1" "Lag2" "Lag3" "Lag4" "Lag5" ## [7] "Volume" "Today" "Direction" dim(Smarket) ## [1] 1250 9 summary(Smarket) ## Year Lag1 Lag2 Lag3 ## Min. :2001 Min. :-4.922000 Min. :-4.922000 ...
120 sym R (23281 sym/115 pcs) 2 img
Shurtsetseg
## 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 ## ## Attaching package: 'zoo' ## The following objects ...
81 sym Python (11380 sym/37 pcs)
Munkhzul
## 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 ## ## Attaching package: 'zoo' ## The following objects ...
81 sym Python (11380 sym/37 pcs)
HW2
library(ISLR2) names(Smarket) ## [1] "Year" "Lag1" "Lag2" "Lag3" "Lag4" "Lag5" ## [7] "Volume" "Today" "Direction" dim(Smarket) ## [1] 1250 9 summary(Smarket) ## Year Lag1 Lag2 Lag3 ## Min. :2001 Min. :-4.922000 Min. :-4.922000 Min. :-4.92...
47 sym R (6148 sym/42 pcs) 2 img
HW3__Oyuntuya
Using the attached data file myetf4.csv to answer the following questions: Question 1 Try to find the GMVP for 4 Taiwan ETFs: “0050”,“0056”,“006205” and “00646”. Using 2015/12/14-2018/12/28 daily returns as the insample data, you have to compute optimal weights for 4 ETFs based on daily returns of the period. Based on the weig...
589 sym R (4315 sym/18 pcs)
Document
library(quadprog) returns_data <- matrix(c( 0.01, 0.02, -0.01, 0.005, # Daily returns for ETF "0050" (complete the sequence) 0.015, 0.018, -0.012, 0.008, # Daily returns for ETF "0056" (complete the sequence) 0.012, 0.025, -0.015, 0.007, # Daily returns for ETF "006205" (complete the sequence) 0.009, 0.021, -0.008, 0.006 # Daily return...
5 sym R (1645 sym/2 pcs)
Document
library(ISLR) library(tidymodels) ## ── Attaching packages ────────────────────────────────────── tidymodels 1.1.1 ── ## ✔ broom 1.0.5 ✔ recipes 1.0.10 ## ✔ dials 1.2.1 ✔ rsample 1.2.0 ## ✔ dplyr 1.1.4 ✔ tib...
22 sym R (3810 sym/17 pcs) 2 img
Document
library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1.5 ## ✔ forcats 1.0.0 ✔ stringr 1.5.1 ## ✔ ggplot2 3.5.0 ✔ tibble 3.2.1 ## ✔ lubridate 1.9.3 ✔ tidyr 1.3.1 ## ...
10 sym R (1030 sym/5 pcs) 2 img
Document
# 3.6.1 to 3.6.6. library(MASS) library(ISLR) data("Boston") attach(Boston) lm.fit <- lm(medv ~ lstat, data = Boston) lm.fit ## ## Call: ## lm(formula = medv ~ lstat, data = Boston) ## ## Coefficients: ## (Intercept) lstat ## 34.55 -0.95 # Load Boston dataset data(Boston) # Fit a simple linear regression model lm.fit <- lm...
56 sym R (10570 sym/44 pcs) 9 img