All of the data that are used in

Ramsey, F.L. and Schafer, D.W. (2013). The Statistical Sleuth: A Course in Methods of Data Analysis (3rd ed), Cengage Learning.

is accesible from package named Sleuth3.

(1.1) In order to work with Case1’s data, first we should install Sleuth3 package

install.packages("Sleuth2")
trying URL 'https://cran.rstudio.com/bin/macosx/mavericks/contrib/3.3/Sleuth2_2.0-4.tgz'
Content type 'application/x-gzip' length 3627412 bytes (3.5 MB)
==================================================
downloaded 3.5 MB

tar: Failed to set default locale

The downloaded binary packages are in
    /var/folders/r7/8q326wn955g6_b8gn0b6w4cr0000gn/T//RtmpVBpZ7L/downloaded_packages

(2.2) After loading package to our R working enviroment it’s easy to load case1’s data by using attach(). If the database is attached to your R working path, you could easily call your data set by just typing its name.

attach(case0101)
The following objects are masked from case0101 (pos = 3):

    Score, Treatment

The following objects are masked from case0101 (pos = 4):

    Score, Treatment

The following objects are masked from case0101 (pos = 5):

    Score, Treatment

(3.3) Motivation and Creativity data is complied from Teresa Amabile’s work cited bellow.

Amabile, T. (1985). Motivation and Creativity: Effects of Motivational Orientation on Creative Writers, Journal of Personality and Social Psychology 48(2): 393???399.

LS0tCnRpdGxlOiAiU3RhdGlzdGljYWwgU2xldXRoIENoYXB0ZXIgMSBDYXNlIDEgU29sdXRpb25zIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgpBbGwgb2YgdGhlIGRhdGEgdGhhdCBhcmUgdXNlZCBpbiAKClJhbXNleSwgRi5MLiBhbmQgU2NoYWZlciwgRC5XLiAoMjAxMykuIFRoZSBTdGF0aXN0aWNhbCBTbGV1dGg6IEEgQ291cnNlIGluIE1ldGhvZHMgb2YgRGF0YQpBbmFseXNpcyAoM3JkIGVkKSwgQ2VuZ2FnZSBMZWFybmluZy4gCgppcyBhY2Nlc2libGUgZnJvbSBwYWNrYWdlIG5hbWVkIFNsZXV0aDMuCgooMS4xKSBJbiBvcmRlciB0byB3b3JrIHdpdGggQ2FzZTEncyBkYXRhLCBmaXJzdCB3ZSBzaG91bGQgaW5zdGFsbCBTbGV1dGgzIHBhY2thZ2UKCmBgYHtyfQppbnN0YWxsLnBhY2thZ2VzKCJTbGV1dGgyIikKYGBgCgooMi4yKSBBZnRlciBsb2FkaW5nIHBhY2thZ2UgdG8gb3VyIFIgd29ya2luZyBlbnZpcm9tZW50IGl0J3MgZWFzeSB0byBsb2FkIGNhc2UxJ3MgZGF0YSBieSB1c2luZyBhdHRhY2goKS4gSWYgdGhlIGRhdGFiYXNlIGlzIGF0dGFjaGVkIHRvIHlvdXIgUiB3b3JraW5nICBwYXRoLCB5b3UgY291bGQgZWFzaWx5IGNhbGwgeW91ciBkYXRhIHNldCBieSBqdXN0IHR5cGluZyBpdHMgbmFtZS4KIApgYGB7cn0KYXR0YWNoKGNhc2UwMTAxKQpgYGAKCigzLjMpIE1vdGl2YXRpb24gYW5kIENyZWF0aXZpdHkgZGF0YSBpcyBjb21wbGllZCBmcm9tIFRlcmVzYSBBbWFiaWxlJ3Mgd29yayBjaXRlZCBiZWxsb3cuIAoKQW1hYmlsZSwgVC4gKDE5ODUpLiBNb3RpdmF0aW9uIGFuZCBDcmVhdGl2aXR5OiBFZmZlY3RzIG9mIE1vdGl2YXRpb25hbCBPcmllbnRhdGlvbiBvbiBDcmVhdGl2ZQpXcml0ZXJzLCBKb3VybmFsIG9mIFBlcnNvbmFsaXR5IGFuZCBTb2NpYWwgUHN5Y2hvbG9neSA0OCgyKTogMzkzPz8/Mzk5LgoK