/*
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)
本文通过使用R语言进行简单线性回归分析,探讨了月薪与花红之间的关系,并利用正态分布计算了两者间的方差。同时,还预测了当花红为特定数值时对应的月薪估算。
306

被折叠的 条评论
为什么被折叠?



