Publications by Batbileg
finalexam
#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)
Document
# Install and load required packages if (!require(wooldridge)) install.packages("wooldridge") ## Loading required package: wooldridge if (!require(lmtest)) install.packages("lmtest") ## Loading required package: lmtest ## Loading required package: zoo ## ## Attaching package: 'zoo' ## The following objects are masked from 'package:base': ## ## ...
44 sym R (5505 sym/41 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)
batbileg
##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)
midterm
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
Publish 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)
Publish Document
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)
Document
library(wooldridge) data("wage2") #1C6 (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|) ## (Intercept...
12 sym R (4414 sym/9 pcs)