R Command Two Linear Regression Need Result Need Know Test Statistic Used Please Answer Pa Q43802945
The below are the R command for the two linear regression.Thereis no need for the result.I need to know the test statisticused.
Please answer the part c,d and e.
23) [15 points total] Consider the following Routput, about which several questions follow: # These are the Penn World Tables data for 182 countries. # Variables are defined as follows: # rodpe = real GDP, pop = population, emp = number of people employed # hc = index of human capital, ck = capital stock # xr = exchange rate vs. USD pwt <- read_excel(“pwt 90.xlsx”, sheet = “Data”) pwt <- pwt (pwt[, “year”) == 2014) pwt <- na.omit(pwt) # model 1 resultsi <- Im(log(rgdpe) -log(emp) + hc + log(ck), data=pwt) summary(results) ## Call: ## Im(formula = log(rgdpe) – log(emp) + hc + log(ck), data = pwt) ## ## Residuals: Min 1Q Median 3Q Max ## -1.01864 -0.15963 -0.00171 0.17453 0.87053 ## ## Coefficients: ## Estimate Std. Error t value Pr(t) ## (Intercept) 0.83903 0.25505 3.290 0.00127 ** ## log(emp) 0.22007 0.031896.900 1.65e-10 *** ## hc 0.17612 0.65733 3.072 0.00256 ** ## log(ck) 0.78055 0.02994 26.069 <2e-16 *** ## — ## Signif. codes: ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1′ ‘1 ## ## Residual standard error: 0.3088 on 140 degrees of freedom ## Multiple R-squared: 0.9731, Adjusted R-squared: 0.9726 ## F-statistic: 1691 on 3 and 140 DF, p-value: < 2.2e-16 # model 2 pwt$sum <- log (pwt$emp) + pwt$hc results2 <- Im(log(rgdpe) – sum + log(ck), data=pwt) summary(results2) ## ## Call: ## Im(formula -log(rgdpe) – sum + log(ck), data = pwt) ## ## Residuals: 1Q Median 3Q Max ## -1.84822 -0.15920 -0.01309 0.16868 0.86583 ## ## Coefficients: ## Estimate Std. Error t value Pr(t)) ## (Intercept) 0.84931 0.25492 3.332 0.0011 ** ## sum 0.22578 0.03142 7.186 3.55e-11 *** ## log(ck) 0.76913 0.02784 27.624 <2e-16 *** ## Signif. codes: ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1” 1 ## ## Residual standard error: 0.3089 on 141 degrees of freedom ## Multiple R-squared: 0.9729, Adjusted R-squared: 0.9726 ## F-statistic: 2535 on 2 and 141 DF, P-value: < 2.2e-16 al <- sum(resid(results1)^2) a2 <- sum(resid(results2)^2) TEST <- (a2-ai) / (a1 / df.residual (results1)) TEST – 11 – We were unable to transcribe this imageWe were unable to transcribe this imageShow transcribed image text 23) [15 points total] Consider the following Routput, about which several questions follow: # These are the Penn World Tables data for 182 countries. # Variables are defined as follows: # rodpe = real GDP, pop = population, emp = number of people employed # hc = index of human capital, ck = capital stock # xr = exchange rate vs. USD pwt
Expert Answer
Answer to The below are the R command for the two linear regression.There is no need for the result.I need to know the test statis…
OR