This preview has intentionally blurred sections. Sign up to view the full version.View Full Document
Unformatted text preview: > boxplot(Score~Treatment,xlab="Treatment Group",ylab="Creativity Score") > par(mfrow=c(1,1)) > length(IntGrp);mean(IntGrp);sd(IntGrp)  24 Extrinsic Intrinsic 5 10 15 20 25 30 Treatment Group Creativity Score  19.88333  4.439513 > length(ExtGrp);mean(ExtGrp);sd(ExtGrp)  23  15.73913  5.252596 Conclusion: According to the boxplot that given by the R, obviously, the intrinsic group has a greater mean than the extrinsic group. Also, at the same time, the intrinsic group has a smaller standard deviation compared to the extrinsic's, which indicates that the range of these data are smaller than the extrinsic's....
View Full Document
- Summer '11
- Standard Deviation, treatment group, Intrinsic group, Yutong Gao, extrinsic group, Creativity score