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)*1600print(NewSalary)