CS计算机代考程序代写 # library we will be using next week

# library we will be using next week
library(tidyverse)

# tidyverse allows us to write code in pipe
x <- 5 sqrt(x) x %>% sqrt

# Now we are going to perform a Montecarlo Simulation Exercise
# we want to simulate and estimate the following model
# y = a + b * x + e
# where y and x are variables and e is an error term
# and plot a histogram of estimated beta’s

nobs = 100
a = 2
b = 0.5
nsim = 1000
beta = rep(0, nsim)

for(ii in 1:nsim){
e = rnorm(nobs)
x = rnorm(nobs)
y = a + b * x + e
ols.mod = lm(y ~ x)
beta[ii] = ols.mod$coefficients[2]
}

# we can increase the n. of obs.
# doing so reduces the variability of our estimated beta
# but it doesn’t make it disappear
hist(beta)

# what happens if we introduce correlation between x and e?

for(ii in 1:nsim){
e = rnorm(nobs)
x = rnorm(nobs) + 0.2 * e
y = a + b * x + e
ols.mod = lm(y ~ x)
beta[ii] = ols.mod$coefficients[2]
}

hist(beta)