/
conversionCode.R
174 lines (114 loc) · 5.19 KB
/
conversionCode.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
#____ Navigate to folder _____#
# setwd("c://folder/of/interest")
#____ openintro _____#
library(openintro)
data(MLB)
write.table(MLB, "MLB.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(ageAtMar)
write.table(ageAtMar, "ageAtMar.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(ballBearing)
write.table(ballBearing, "ballBearing.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(bdims)
write.table(bdims, "bdims.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(births)
write.table(births, "births.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(cars)
write.table(cars, "cars.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(census)
write.table(census, "census.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(classData)
write.table(classData, "classData.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(county)
write.table(county, "county.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(countyComplete)
write.table(countyComplete, "countyComplete.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(credits)
write.table(credits, "credits.txt", quote=FALSE, sep="\t", row.names=FALSE)
# elmhurst data not yet included in package so the code is not included here to write it to the package
# the elmhurst data may be retrieved from the textbook source files ("07" > "figures" > "elmhurstPlots" > "d.rda")
data(email)
write.table(email, "email.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(email50)
write.table(email50, "email50.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(friday)
write.table(friday, "friday.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(gifted)
write.table(gifted, "gifted.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(govRace10)
write.table(govRace10, "govRace10.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(gradesTV)
write.table(gradesTV, "gradesTV.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(heartTr)
write.table(heartTr, "heartTr.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(helium)
write.table(helium, "helium.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(houseRace10)
write.table(houseRace10, "houseRace10.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(hsb2)
write.table(hsb2, "hsb2.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(infMortRate)
write.table(infMortRate, "infMortRate.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(ipod)
write.table(ipod, "ipod.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(mammals)
write.table(mammals, "mammals.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(marathon)
write.table(marathon, "marathon.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(marioKart)
write.table(marioKart, "marioKart.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(mlbBat10)
write.table(mlbBat10, "mlbBat10.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(ncbirths)
write.table(ncbirths, "ncbirths.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(oscars)
write.table(oscars, "oscars.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(poker)
write.table(poker, "poker.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(possum)
write.table(possum, "possum.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(prRace08)
write.table(prRace08, "prRace08.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(president)
write.table(president, "president.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(run10)
write.table(run10, "run10.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(satGPA)
write.table(satGPA, "satGPA.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(senateRace10)
write.table(senateRace10, "senateRace10.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(smoking)
write.table(smoking, "smoking.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(textbooks)
write.table(textbooks, "textbooks.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(tgSpending)
write.table(tgSpending, "tgSpending.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(tips)
write.table(tips, "tips.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(unempl)
write.table(unempl, "unempl.txt", quote=FALSE, sep="\t", row.names=FALSE)
#____ OIdata _____#
library(OIdata)
data(birds)
write.table(birds, "birds.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(esi)
write.table(esi, "esi.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(ipo)
write.table(ipo[["facebook"]], "ipo_facebook.txt", quote=FALSE, sep="\t", row.names=FALSE)
write.table(ipo[["google"]], "ipo_google.txt", quote=FALSE, sep="\t", row.names=FALSE)
write.table(ipo[["linkedin"]], "ipo_linkedin.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(london_boroughs)
write.table(london_boroughs, "london_boroughs.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(military)
write.table(military, "military.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(murders)
write.table(murders, "murders.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(piracy)
write.table(piracy, "piracy.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(sp500)
write.table(sp500, "sp500.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(state)
write.table(state, "state.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(teacher)
write.table(teacher, "teacher.txt", quote=FALSE, sep="\t", row.names=FALSE)
data(ukDemo)
write.table(ukDemo, "ukDemo.txt", quote=FALSE, sep="\t", row.names=FALSE)