Calculation of Estimators

predictor <- read.csv('BSESN.csv')
response <- read.csv('IIP_93-16.csv')

lm( formula = response$Index ~ predictor$Close )

## 
## Call:
## lm(formula = response$Index ~ predictor$Close)
## 
## Coefficients:
##     (Intercept)  predictor$Close  
##       1.700e+02        8.396e-03