DCL/ex5_14.html

<!DOCTYPE html>
      <head>
<meta charset='utf-8'/>
<script async='async' src='https://cdn.datacamp.com/dcl-react-dev.js.gz'></script>
<style>
.DCexercise .datacamp-exercise {
     border: 2px solid #3D678D;
     border-radius: 10px 10px 10px 10px !important;
     }

     *[class*="lm_"], .ace_gutter, textarea[class*="ace_"], .ace_scroller {
     background-color: #F0EFF0 !important;
     }

     div[class*="Editor-module__editor"], div[class*="dcl__Footer"] {
     background-color: #3D678D !important; 
     } 

     *[class*="lm_"] {
     border-radius: 10px 10px 0px 0px !important;
     }

     div[class*="dcl__Footer"] {
     border-radius: 0px 0px 10px 10px !important;
     }

     .lm_content {
     border-radius: 0px !important;
     }

     .lm_splitter {
     background-color: #3D678D !important; 
     width: 3px !important;
     }

     .lm_drag_handle {
     background: transparent !important;
     }

     div[class*="dcl__index-module"] {
     outline-color: transparent !important;
     border-radius: 10px !important;
     }

     button[class*="secondary-light"] {
     background-color: #FF0000;
     }
</style>
      </head>
      <body>
      <div data-datacamp-exercise data-lang='r' data-height =320>  <code data-type="pre-exercise-code">
  DGP_OLS <- function() {
    X <- runif(100,2,10)
    Y <- X + rnorm(100, sd = sqrt(X))
    return(
      c("beta_1_hat" = sum(X*Y)/sum(X^2))
    )
    }
  </code>
  <code data-type="sample-code">
  set.seed(1)
  # generate 1000 estimates of beta_1 using `GDP_OLS()` and store them in `estimates`


  # estimate the variance of the estimator and assign the result to `est_var_OLS`
  
  
  </code>
  <code data-type="solution">
  set.seed(1)
  # generate 1000 estimates of beta_1 using `GDP_OLS()` and store them in `estimates`
  estimates <- replicate(1000, DGP_OLS())
  # estimate the variance of the estimator and assign the result to `est_var_OLS`
  est_var_OLS <- var(estimates)
  </code>
  <code data-type="sct">
  test_predefined_objects("DGP_OLS")
  test_object("estimates")
  test_object("est_var_OLS")
  </code></div>
      </body>
      </html>