# write the function `GDP_OLS`
set.seed(1)
# write the function `GDP_OLS`
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))
)
}
test_function_definition("DGP_OLS",
function_test =
test_expression_result("DGP_OLS()")
)
success_msg("Well Done!")