R Markdown

Import the dataset of Salary vs Years using read.csv into mydata

mydata<-read.csv("C:/Users/PRANEETHA/OneDrive/Desktop/Salary_DataSet_R.csv")

Read years and salary into variables

years<-c(mydata$Years)
years
##  [1] 1.1 1.3 1.5 2.0 2.2 2.9 3.0 3.2 3.2 3.7
sal<-c(mydata$Salary)
sal
##  [1] 39343 46205 37731 43525 39891 56642 60150 54445 64445 57189

Find a relation between Salary and Years of experience through lm function

relation=lm(sal~years,data = mydata)
print(relation)
## 
## Call:
## lm(formula = sal ~ years, data = mydata)
## 
## Coefficients:
## (Intercept)        years  
##       28217         9021
print(summary(relation))
## 
## Call:
## lm(formula = sal ~ years, data = mydata)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -8171.3 -3695.9  -717.2  4219.7  7362.1 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    28217       5130   5.501 0.000573 ***
## years           9021       2003   4.503 0.001995 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 5482 on 8 degrees of freedom
## Multiple R-squared:  0.7171, Adjusted R-squared:  0.6817 
## F-statistic: 20.28 on 1 and 8 DF,  p-value: 0.001995

sal=9021*years+28217 => Linear Equation Plot the linear equation

plot(years,sal,main="YEARS vs SALARY",xlab = "Years",ylab="Salary",
     abline(relation),cex=1,pch=16)

Find salary if a person has experience of 5.8 years

query=data.frame(years=5.8)
print(predict(relation,query))
##        1 
## 80536.55

Salary for a person having 5.8 years of experience is 80536.55 approximately