Publications by Khongorzul
final_exam
#install.packages("wooldridge") #install.packages("lmtest") #install.packages("sandwich") C7.1 library(wooldridge) data("sleep75") data(sleep75) model <- lm(sleep ~ totwrk + educ + age + agesq + male , data = sleep75) summary(model) ## ## Call: ## lm(formula = sleep ~ totwrk + educ + age + agesq + male, data = sleep75) ## ## Residuals: ## M...
320 sym R (64565 sym/199 pcs) 2 img
Publish Document
library(wooldridge) library(dplyr) ## ## 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 library(stargazer) ## ## Please cite as: ## Hlavac, Marek (2022). stargazer: Well-Formatted Re...
609 sym R (5936 sym/19 pcs) 2 img
Publish Document
install.packages("devtools") ## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.4' ## (as 'lib' is unspecified) install.packages("lmtest") ## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.4' ## (as 'lib' is unspecified) install.packages("sandwich") ## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-libr...
29 sym R (6368 sym/26 pcs)
case7
library(wooldridge) data("wage2") #(i) model1 <- lm(log(wage) ~ educ + exper + tenure + married + black + south + urban, data = wage2) summary(model1) ## ## Call: ## lm(formula = log(wage) ~ educ + exper + tenure + married + black + ## south + urban, data = wage2) ## ## Residuals: ## Min 1Q Median 3Q Max ## -1.98069 ...
15 sym R (6190 sym/12 pcs)
khongorzul
##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)
Publish Document
library(wooldridge) #Chapter2 C9 data("countymurders", package = "wooldridge") dataset_1996 <- subset(countymurders, year == 1996) #how many counties had zero murders in 1996 zero_murders_count <- sum(dataset_1996$murders == 0) cat("Counties with zero murders:", zero_murders_count, "\n") ## Counties with zero murders: 1051 #how many counties had at...
128 sym R (29184 sym/122 pcs) 3 img
mid-term
Chapter2 C9 (i) From the data in COUNTYMURDERS, 1996, there were 1051 counties with zero murders.There were 31 counties with at least one execution. The largest number of executions was 3. ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'pack...
3701 sym Python (23095 sym/110 pcs) 4 img
Document
library(wooldridge) data("discrim", package = "wooldridge") #1 model_1 <- lm(log(psoda) ~ prpblck + log(income) + prppov, data = discrim) summary(model_1) ## ## Call: ## lm(formula = log(psoda) ~ prpblck + log(income) + prppov, data = discrim) ## ## Residuals: ## Min 1Q Median 3Q Max ## -0.32218 -0.04648 0.00651 0.042...
28 sym R (4482 sym/12 pcs)
exercise of chapter 3
if (!require(wooldridge)) { install.packages("wooldridge")} ## Loading required package: wooldridge library(wooldridge) data("discrim") #(i): mean_prpblck <- mean(discrim$prpblck, na.rm = TRUE) sd_prpblck <- sd(discrim$prpblck, na.rm = TRUE) mean_income <- mean(discrim$income, na.rm = TRUE) sd_income <- sd(discrim$income, na.rm = TRUE) cat("Me...
20 sym R (7310 sym/17 pcs)
Publish Document
library(wooldridge) data("wage2") #Chapter 3 C6 (i) model_i <- lm(IQ ~ educ, data = wage2) summary(model_i) ## ## Call: ## lm(formula = IQ ~ educ, data = wage2) ## ## Residuals: ## Min 1Q Median 3Q Max ## -50.228 -7.262 0.907 8.772 37.373 ## ## Coefficients: ## Estimate Std. Error t value Pr(>|t|) ## (...
12 sym R (4423 sym/9 pcs)