Unlock document.
This document is partially blurred.
Unlock all pages and 1 million more documents.
Get Access
Q1.
setwd("～/Desktop")
Growth<-read.csv("Growth.csv")
View(Growth)
attach(Growth)
a
plot(growth, tradeshare, col = "pink", pch = 20)
b. top right corner
1.9926157
Yes,outlier
c
estimated slope: 0.05362
estimated intercept: 0.46053
When trade share equal to 0.5, the growth rate is 1.793482.
When trade share equal to 1.0, the growth rate is 2.946699.
line1 <- lm(tradeshare~Growth)
summary(line1)
lm(formula = tradeshare ~ growth)
Residuals:
Min 1Q Median 3Q Max
-0.53366 -0.15665 -0.00344 0.11376 1.17534
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.46053 0.04865 9.467 1.02e-13 ***
growth 0.05362 0.01798 2.982 0.00407 **
---
