Publications by Leo Tzang
classwork
library(wooldridge) library(lmtest) ## Loading required package: zoo ## ## Attaching package: 'zoo' ## The following objects are masked from 'package:base': ## ## as.Date, as.Date.numeric library(sandwich) # Load and Subset Data for the Year 1988 data("jtrain", package = "wooldridge") jtrain_1988 <- subset(jtrain, year == 1988) # Check for ...
31 sym R (4423 sym/28 pcs)
Document
# Load the JTRAIN dataset library(wooldridge) data("jtrain") # Filter for the year 1988 jtrain_1988 <- jtrain[jtrain$year == 1988, ] # (ii) Estimate the simple regression model for 1988 model1 <- lm(log(scrap) ~ grant, data = jtrain_1988) summary(model1) ## ## Call: ## lm(formula = log(scrap) ~ grant, data = jtrain_1988) ## ## Residuals: ## ...
39 sym R (4392 sym/36 pcs)
Document
# Load required libraries library(wooldridge) library(lmtest) ## Loading required package: zoo ## ## Attaching package: 'zoo' ## The following objects are masked from 'package:base': ## ## as.Date, as.Date.numeric library(sandwich) # Load the meap00 dataset data(meap00_01) # (i) Estimate the model model <- lm(math4 ~ lunch + log(enroll) + l...
27 sym R (3502 sym/24 pcs)
Document
# Load required libraries library(wooldridge) library(lmtest) ## Loading required package: zoo ## ## Attaching package: 'zoo' ## The following objects are masked from 'package:base': ## ## as.Date, as.Date.numeric library(car) ## Loading required package: carData # Load the data data(wage2) —- Part (i): Original Model —-...
222 sym R (8108 sym/60 pcs)
Munkhzul
##Part1 # Load the wooldridge package and data library(wooldridge) data("vote1") # Estimate the model with interaction term model <- lm(voteA ~ prtystrA + expendA + expendB + I(expendA * expendB), data = vote1) summary(model) ## ## Call: ## lm(formula = voteA ~ prtystrA + expendA + expendB + I(expendA * ## expendB), data = vote1) ## ## Res...
15 sym R (4264 sym/12 pcs)
Document
# ---------------------- # Setup and Data Loading # ---------------------- # Install and load required packages if (!require("wooldridge")) install.packages("wooldridge") ## Loading required package: wooldridge if (!require("dplyr")) install.packages("dplyr") ## Loading required package: dplyr ## ## Attaching package: 'dplyr' ## The following obje...
199 sym R (4918 sym/38 pcs)
Midterm
Chapter 2 : C9 Use the data in COUNTYMURDERS to answer this questions. Use only the data for 1996. ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union ## arrests countyid density...
8224 sym Python (16456 sym/83 pcs) 5 img
Document
Chapter2 library(wooldridge) data <- wooldridge::countymurders data_1996 <- data[data$year == 1996, ] #Part (i) # Number of counties with zero murders zero_murders <- sum(data_1996$murders == 0) # Number of counties with at least one execution one_or_more_executions <- sum(data_1996$execs > 0) # Maximum number of executions max_executions <- max(...
1201 sym R (24594 sym/111 pcs) 4 img
Document
library(wooldridge) library(car) ## Loading required package: carData library(lmtest) ## Loading required package: zoo ## ## Attaching package: 'zoo' ## The following objects are masked from 'package:base': ## ## as.Date, as.Date.numeric data("discrim") (i) OLS estimation of the initial model model1 <- lm(log(psoda) ~ prpblck ...
208 sym R (4955 sym/40 pcs)
HW01
# Load necessary package and data if (!require(wooldridge)) { install.packages("wooldridge") } ## Loading required package: wooldridge library(wooldridge) data("discrim") # Part (i): Calculate means and standard deviations mean_prpblck <- mean(discrim$prpblck, na.rm = TRUE) sd_prpblck <- sd(discrim$prpblck, na.rm = TRUE) mean_income <- mean(disc...
19 sym R (4327 sym/16 pcs)