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 <