Stat3022 HW1

Stat3022 HW1 - >...

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon
Stat3022 HW1 Yutong Gao > install.packages("Sleuth2") Warning in install.packages("Sleuth2") : 'lib = "C:/Program Files/R/R-2.14.1/library"' is not writable --- Please select a CRAN mirror for use in this session --- trying URL '' Content type 'application/zip' length 875045 bytes (854 Kb) opened URL downloaded 854 Kb package ‘Sleuth2’ successfully unpacked and MD5 sums checked The downloaded packages are in C:\Users\yuki\AppData\Local\Temp\RtmpOg59F8\downloaded_packages > library(Sleuth2) > data(case0101) > attach(case0101) > IntGrp <- Score[Treatment=="Intrinsic"] > ExtGrp <- Score[Treatment=="Extrinsic"]
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Background image of page 2
Background image of page 3
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: &gt; boxplot(Score~Treatment,xlab=&quot;Treatment Group&quot;,ylab=&quot;Creativity Score&quot;) &gt; par(mfrow=c(1,1)) &gt; length(IntGrp);mean(IntGrp);sd(IntGrp) [1] 24 Extrinsic Intrinsic 5 10 15 20 25 30 Treatment Group Creativity Score [1] 19.88333 [1] 4.439513 &gt; length(ExtGrp);mean(ExtGrp);sd(ExtGrp) [1] 23 [1] 15.73913 [1] 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

Page1 / 3

Stat3022 HW1 - &amp;amp;gt;...

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online