/*
Simple linear regression 简单回归分析
Bar Chart、条形统计图
月薪和花红的关系。
*/
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)
#取得salary和bonus的图表
result <- data.frame(salary, bonus)
result
#用正态分布计算salary和bonus的方差
totalAmount.lm = lm(salary ~ bonus, data=result)
totalAmount.lm
#系数
coeffs = coefficients(totalAmount.lm);
coeffs
#bonus是3250的话、salary会是...?
newdata = data.frame(bonus=3250)
predict(totalAmount.lm, newdata)