Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- >T
- Role Salary
- 1 Developer 139750
- 2 Developer 173200
- 3 Developer 79750
- 4 Developer 115000
- 5 Developer NA
- 6 Analyst 97000
- 7 <NA> 175000
- 8 Analyst 147765
- 9 Analyst 119250
- 10 Analyst NA
- 11 QA 79800
- 12 QA 77700
- 13 <NA> 78000
- 14 QA 104800
- 15 QA 117150
- 16 QA 101000
- 17 QA NA
- 18 QA 124750
- 19 QA 137000
- 20 Developer NA
- 21 Developer 106294
- > tgroup <- data.frame(cbind(T$Role,T$Salary))
- > sGroups <- stack(tgroup)
- > areslt <- aov(values~ind,data=sGroups)
- > summary(areslt)
- Df Sum Sq Mean Sq F value Pr(>F)
- ind 1 1.209e+11 1.209e+11 270.4 <2e-16 ***
- Residuals 34 1.520e+10 4.470e+08
- ---
- Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
- 6 observations deleted due to missingness
- > taov <- aov(Salary~Role,data=T)
- > summary(taov)
- Df Sum Sq Mean Sq F value Pr(>F)
- Role 2 9.865e+08 493252642 0.639 0.545
- Residuals 12 9.260e+09 771648886
- 6 observations deleted due to missingness
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement