{[ promptMessage ]}

Bookmark it

{[ promptMessage ]}

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 'http://ftp.ctex.org/mirrors/CRAN/bin/windows/contrib/2.14/Sleuth2_1.0-4.zip' 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 Document Right 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: > boxplot(Score~Treatment,xlab="Treatment Group",ylab="Creativity Score") > par(mfrow=c(1,1)) > 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 > 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

{[ snackBarMessage ]}