Hi everyone.I need someone to help me derive the wolfram mathematica from this.
salary=c(1000,12000,12500,14000,15000,17000,25000,30000,50000) experience=c(2,3,4,6,8,10,12,14,15) lm(salary~experience)
Call: lm(formula = salary ~ experience)
Coefficients: (Intercept) experience
-1693 2591
summary(lm(salary~experience))
Call: lm(formula = salary ~ experience)
Residuals: Min 1Q Median 3Q Max -7217 -4399 -2489 3829 12828
Coefficients: Estimate Std. Error t value Pr(>|t|)
(Intercept) -1692.8 4728.5 -0.358 0.73089
experience 2591.0 503.4 5.147 0.00133 **
Signif. codes: 0 * 0.001 0.01 * 0.05 . 0.1 1
Residual standard error: 6858 on 7 degrees of freedom Multiple R-squared: 0.791, Adjusted R-squared: 0.7611 F-statistic: 26.49 on 1 and 7 DF, p-value: 0.001329
y=2591x-1693+u
confint(lm(salary~experience,level=95)) 2.5 % 97.5 % (Intercept) -12873.931 9488.302 experience 1400.609 3781.427 plot(lm(salary~experience)) Hit <Return> to see next plot: Hit <Return> to see next plot: Hit <Return> to see next plot: Hit <Return> to see next plot: plot(salary,experience)