Publications by Leo Tzang
Document
install.packages("wooldridge") ## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.4' ## (as 'lib' is unspecified) library(wooldridge) data("discrim") #(i) Find the average values and standard deviations of prpblck and income. # Mean and standard deviation of prpblck and income mean_prpblck <- mean(discrim$prpblck, na.rm = TRUE) sd...
521 sym R (5729 sym/28 pcs)
Publish Document
install.packages("wooldridge") ## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.4' ## (as 'lib' is unspecified) library(wooldridge) data("wage2") ##(i) Simple Regression of IQ on educ: model_educ_iq <- lm(IQ ~ educ, data = wage2) summary(model_educ_iq)$coefficients ## Estimate Std. Error t value ...
171 sym R (1516 sym/11 pcs)
Exercise 1
# Question 1 library(wooldridge) data("bwght") # (i) Total women and women who smoked during pregnancy total_women <- nrow(bwght) women_smoked <- sum(bwght$smoke == 1) total_women ## [1] 1388 women_smoked ## [1] 0 # (ii) Average number of cigarettes smoked per day avg_cigarettes <- mean(bwght$cigs, na.rm = TRUE) avg_cigarettes ## [1] 2.087176 # (...
43 sym R (2371 sym/40 pcs)
Document
BWGHT Dataset install.packages("wooldridge") ## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.4' ## (as 'lib' is unspecified) library(wooldridge) How many women are in the sample, and how many report smoking during pregnancy? num_women <- nrow(bwght) num_smokers <- sum(bwght$smoke == 1, na.rm = TRUE) num_women ## [1] 1388 num_...
855 sym R (1823 sym/47 pcs)
makeuptest
## Loading required package: Matrix ## Loaded glmnet 4.1-8 ## [1] 14.88459 ## [1] 1.184701 ## [1] 1.23797 ## alpha mse fit.name ## 1 0.0 14.918840 alpha0 ## 2 0.1 2.256924 alpha0.1 ## 3 0.2 1.472927 alpha0.2 ## 4 0.3 1.362394 alpha0.3 ## 5 0.4 1.259794 alpha0.4 ## 6 0.5 1.252103 alpha0.5 ## 7 0.6 1.253330 alpha...
9 sym
Make up test
if (!requireNamespace("glmnet", quietly = TRUE)) { install.packages("glmnet") } library(glmnet) ## Warning: package 'glmnet' was built under R version 4.3.3 ## Loading required package: Matrix ## Warning: package 'Matrix' was built under R version 4.3.2 ## Loaded glmnet 4.1-8 ## Example 1 ## 4085 useless variables in the model, only 15 that a...
18 sym R (4290 sym/15 pcs)
Final exam
#Chapter4 Q16 #Load dataset # Install necessary packages if not already installed if (!requireNamespace("MASS", quietly = TRUE)) { install.packages("MASS") } if (!requireNamespace("caret", quietly = TRUE)) { install.packages("caret") } if (!requireNamespace("e1071", quietly = TRUE)) { install.packages("e1071") } if (!requireNamespace("class"...
110 sym R (18862 sym/107 pcs)
Document
#CHAPTER4 library(MASS) library(caret) ## Loading required package: ggplot2 ## Loading required package: lattice # Load the Boston data set data("Boston") # Create the response variable median_crime <- median(Boston$crim) Boston$HighCrime <- ifelse(Boston$crim > median_crime, 1, 0) Boston$HighCrime <- factor(Boston$HighCrime) # Summary of the new...
49 sym R (15986 sym/44 pcs) 2 img
Munkhzul Final
#Munkhzul Final library(tidyquant) ## Warning: package 'tidyquant' was built under R version 4.3.3 ## 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...
35 sym R (8283 sym/32 pcs)
Shurtsetseg
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 ## ## Attaching package: 'zoo' ## The...
33 sym R (8860 sym/30 pcs)