salary <- read.csv("C:/Users/Shalini/Downloads/Salary_Data (1).csv")
View(salary)
colnames(salary)

## [1] "YearsExperience" "Salary"

summary(salary)

##  YearsExperience      Salary      
##  Min.   : 1.100   Min.   : 37731  
##  1st Qu.: 3.200   1st Qu.: 56721  
##  Median : 4.700   Median : 65237  
##  Mean   : 5.313   Mean   : 76003  
##  3rd Qu.: 7.700   3rd Qu.:100545  
##  Max.   :10.500   Max.   :122391

sd(salary$YearsExperience)

## [1] 2.837888

var(salary$Salary)

## [1] 751550960

plot(salary)

cor(salary$YearsExperience,salary$Salary)

## [1] 0.9782416

sal <- lm(salary$Salary~salary$YearsExperience)
summary(sal)

## 
## Call:
## lm(formula = salary$Salary ~ salary$YearsExperience)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -7958.0 -4088.5  -459.9  3372.6 11448.0 
## 
## Coefficients:
##                        Estimate Std. Error t value Pr(>|t|)    
## (Intercept)             25792.2     2273.1   11.35 5.51e-12 ***
## salary$YearsExperience   9450.0      378.8   24.95  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 5788 on 28 degrees of freedom
## Multiple R-squared:  0.957,  Adjusted R-squared:  0.9554 
## F-statistic: 622.5 on 1 and 28 DF,  p-value: < 2.2e-16