SEI Week 3

 investment <- c(50, 55, 60, 65, 70, 75, 80, 85, 90, 95)
 output <- c(200, 220, 230, 240, 260, 270, 280, 300, 310, 320)

 data <- data.frame(investment, output)
 data

##    investment output
## 1          50    200
## 2          55    220
## 3          60    230
## 4          65    240
## 5          70    260
## 6          75    270
## 7          80    280
## 8          85    300
## 9          90    310
## 10         95    320

 print(data)

##    investment output
## 1          50    200
## 2          55    220
## 3          60    230
## 4          65    240
## 5          70    260
## 6          75    270
## 7          80    280
## 8          85    300
## 9          90    310
## 10         95    320

 model <-lm(output ~investment, data=data)

 plot(data$investment, data$output, 
xlab="Investment (Juta Dolar)", 
ylab="Output (Juta Unit)", 
main ="Regresi Linear antara Investasi dan Output Industri")
 abline(model, col="blue", lwd=2)

```