#---------------regression
library(readxl)
library(readxl)
SIMPLE_REGRESSION <- read_excel("C:/D drive/NEHA/Colleges/SLC/ALL PPTS/BA/2026/sent
to students/SIMPLE [Link]")
View(SIMPLE_REGRESSION)
xy <- SIMPLE_REGRESSION
View(xy)
attach(xy)
str(xy)
plot(xy$x,xy$y)
abline(lm(xy$y~xy$x))
result=lm(xy$y~xy$x)
result
summary(result)
library(readxl)
Multiple_Regression_Salary_Data <- read_excel("C:/D drive/NEHA/Colleges/SLC/ALL
PPTS/BA/2026/sent to students/Multiple Regression - Salary [Link]")
View(Multiple_Regression_Salary_Data)
salary <- Multiple_Regression_Salary_Data
View(salary)
res=lm(salary$`Salary (Annual)`~salary$`Average Performance Rating`+
salary$`Experience in Years`+
salary$Certifications)
res
summary(res)