R tutorial 16 - Multiple Regression 回归分析 (1)

/*
Multiple Regression 多元回归分析
薪金、花红、褔利与津贴之间的关系。
假设花红是3313.67、褔利是3000、津贴是1050。
经过预测、薪金将会是12256.66。
*/

userName <- c("Lam Wei Wei", "Zheng Da Shi", "Lin Da You", "Fei Gu Man", "Chen Kuang", "Wong wei yun")
salary <- c(8500, 9800, 12500, 15000, 8700, 7500)
jobPosition <- c("Staff", "Manger", "BOSS", "CEO", "Staff", "Staff")
bonus <- c(2300, 1350, 3285, 1035, 3285, 1035)
welfare <- c(600, 750, 1100, 1600, 680, 550)
claim <- c(800, 950, 1400, 1900, 780, 850)

input <- data.frame(salary, bonus, welfare, claim)

model <- lm(salary~bonus+welfare+claim, data = input)
print(model)
cat("\n")

cat("===============The Coefficient Values===============","\n")

a <- coef(model)[1]
newBonus <- coef(model)[2]
newWelfare <- coef(model)[3]
newClaim <- coef(model)[4]

print(a)
print(newBonus)
print(newWelfare)
print(newClaim)
cat("\n")

cat("===============Result===============","\n")
cat("Bonus=3000, Welfare=1050, Claim=1600","\n")

NewSalary <- 3313.67+(0.258879 )*3000+(5.402337)*1050+(1.55869)*1600
print(NewSalary)