Justin Salloum - Problem Set 1
Part 1
rm(list=ls())
source("useful.R")## Warning: package 'lubridate' was built under R version 3.2.3## Warning: package 'tidyr' was built under R version 3.2.3d <- read.csv("janiszewski_rep_exercise.csv")We will fix this data programatically.
Part 2
d <- read.csv("janiszewski_rep_cleaned.csv")
d.tidy <- d %>%
select(Input.condition:Answer.sushi_cost) %>%
rename(condition = Input.condition, price1 = Input.price1, price2 = Input.price2, price3 = Input.price3,
dogCost = Answer.dog_cost, plasmaCost = Answer.plasma_cost, sushiCost = Answer.sushi_cost)
d.tidy <- cbind(id = seq.int(nrow(d.tidy)), d.tidy)
print(d.tidy)## id condition price1 price2 price3 dogCost plasmaCost sushiCost
## 1 1 over 5012 2508 9.36 2300.00 4800.00 8.70
## 2 2 over 5012 2508 9.36 2450.00 4850.00 9.00
## 3 3 over 5012 2508 9.36 800.00 1200.00 8.00
## 4 4 over 5012 2508 9.36 2000.00 4200.00 9.00
## 5 5 over 5012 2508 9.36 2000.00 4500.00 8.50
## 6 6 over 5012 2508 9.36 1600.00 4600.00 8.00
## 7 7 over 5012 2508 9.36 1750.00 4650.00 6.95
## 8 8 over 5012 2508 9.36 2200.00 4800.00 8.00
## 9 9 over 5012 2508 9.36 2000.00 4500.00 8.99
## 10 10 over 5012 2508 9.36 1000.00 3000.00 9.00
## 11 11 over 5012 2508 9.36 1600.00 4578.00 8.50
## 12 12 over 5012 2508 9.36 2250.00 4999.00 8.50
## 13 13 over 5012 2508 9.36 2000.00 4000.00 NA
## 14 14 over 5012 2508 9.36 2000.00 4500.00 8.50
## 15 15 over 5012 2508 9.36 2200.00 4500.00 8.00
## 16 16 over 5012 2508 9.36 2200.00 4700.00 8.00
## 17 17 over 5012 2508 9.36 1000.00 5000.00 7.75
## 18 18 over 5012 2508 9.36 2250.00 4899.00 8.00
## 19 19 over 5012 2508 9.36 1749.00 3499.00 8.99
## 20 20 over 5012 2508 9.36 1850.00 4999.99 7.99
## 21 21 over 5012 2508 9.36 2500.00 4999.00 9.30
## 22 22 over 5012 2508 9.36 2000.00 4500.00 8.50
## 23 23 over 5012 2508 9.36 1500.00 3200.00 7.35
## 24 24 over 5012 2508 9.36 2250.00 4500.00 8.50
## 25 25 over 5012 2508 9.36 1500.00 3000.00 8.00
## 26 26 over 5012 2508 9.36 1875.00 4699.00 7.89
## 27 27 over 5012 2508 9.36 2000.00 4540.00 8.95
## 28 28 over 5012 2508 9.36 1800.00 3800.00 7.00
## 29 29 over 5012 2508 9.36 2000.00 4000.00 8.50
## 30 30 over 5012 2508 9.36 2325.00 4997.00 8.99
## 31 31 under 4988 2492 8.64 1000.00 2500.00 7.50
## 32 32 under 4988 2492 8.64 2000.00 2500.00 7.80
## 33 33 under 4988 2492 8.64 2192.00 4888.00 7.50
## 34 34 under 4988 2492 8.64 2000.00 4400.00 7.99
## 35 35 under 4988 2492 8.64 2000.00 4500.00 8.00
## 36 36 under 4988 2492 8.64 2100.00 4300.00 7.99
## 37 37 under 4988 2492 8.64 2299.00 4500.00 7.80
## 38 38 under 4988 2492 8.64 2100.00 3500.00 6.99
## 39 39 under 4988 2492 8.64 2292.00 4888.00 7.50
## 40 40 under 4988 2492 8.64 2482.00 4968.00 8.46
## 41 41 under 4988 2492 8.64 1500.00 3000.00 7.50
## 42 42 under 4988 2492 8.64 2200.00 4000.00 6.99
## 43 43 under 4988 2492 8.64 1500.00 4000.00 7.99
## 44 44 under 4988 2492 8.64 1900.00 4700.00 7.99
## 45 45 under 4988 2492 8.64 2000.00 4500.00 6.99
## 46 46 under 4988 2492 8.64 2200.00 4750.00 7.50
## 47 47 under 4988 2492 8.64 1500.00 2500.00 7.58
## 48 48 under 4988 2492 8.64 1900.00 4120.00 7.75
## 49 49 under 4988 2492 8.64 2200.00 4900.00 8.00
## 50 50 under 4988 2492 8.64 2000.00 4000.00 7.56
## 51 51 under 4988 2492 8.64 1990.00 3250.00 7.75
## 52 52 under 4988 2492 8.64 2000.00 4000.00 7.99
## 53 53 under 4988 2492 8.64 1750.00 3500.00 7.99
## 54 54 under 4988 2492 8.64 1790.00 4350.00 7.50
## 55 55 under 4988 2492 8.64 2000.00 3200.00 8.50
## 56 56 under 4988 2492 8.64 500.00 4500.00 7.99
## 57 57 under 4988 2492 8.64 2000.00 4800.00 8.00
## 58 58 under 4988 2492 8.64 2000.00 3500.00 7.69
## 59 59 rounded 5000 2500 9.00 2300.00 4500.00 8.00
## 60 60 rounded 5000 2500 9.00 2000.00 4500.00 8.49
## 61 61 rounded 5000 2500 9.00 2200.00 4500.00 8.00
## 62 62 rounded 5000 2500 9.00 1900.00 3500.00 7.50
## 63 63 rounded 5000 2500 9.00 1000.00 2500.00 6.95
## 64 64 rounded 5000 2500 9.00 1700.00 4495.00 7.50
## 65 65 rounded 5000 2500 9.00 2400.00 4849.00 8.69
## 66 66 rounded 5000 2500 9.00 1700.00 3500.00 8.00
## 67 67 rounded 5000 2500 9.00 2000.00 4000.00 8.00
## 68 68 rounded 5000 2500 9.00 1800.00 1500.00 8.00
## 69 69 rounded 5000 2500 9.00 2000.00 4200.00 8.00
## 70 70 rounded 5000 2500 9.00 2000.00 2999.00 7.00
## 71 71 rounded 5000 2500 9.00 2450.00 4995.00 8.95
## 72 72 rounded 5000 2500 9.00 2300.00 4700.00 7.50
## 73 73 rounded 5000 2500 9.00 2000.00 4300.00 8.25
## 74 74 rounded 5000 2500 9.00 1000.00 3500.00 8.00
## 75 75 rounded 5000 2500 9.00 1950.00 4675.00 7.89
## 76 76 rounded 5000 2500 9.00 2000.00 4000.00 7.75
## 77 77 rounded 5000 2500 9.00 2000.00 4500.00 6.50
## 78 78 rounded 5000 2500 9.00 500.00 4500.00 8.00
## 79 79 rounded 5000 2500 9.00 1500.00 4500.00 7.00
## 80 80 rounded 5000 2500 9.00 2000.00 4700.00 8.50
## 81 81 rounded 5000 2500 9.00 1000.00 2000.00 7.50
## 82 82 rounded 5000 2500 9.00 2200.00 4700.00 8.00
## 83 83 rounded 5000 2500 9.00 2000.00 4000.00 8.50
## 84 84 rounded 5000 2500 9.00 2350.00 4750.00 8.25
## 85 85 rounded 5000 2500 9.00 2000.00 4000.00 8.50
## 86 86 rounded 5000 2500 9.00 1900.00 4800.00 8.50
## 87 87 rounded 5000 2500 9.00 2499.99 4995.00 8.99d.gathered <- d.tidy %>%
gather(Type, Value, 3:8)
print(d.gathered)## id condition Type Value
## 1 1 over price1 5012.00
## 2 2 over price1 5012.00
## 3 3 over price1 5012.00
## 4 4 over price1 5012.00
## 5 5 over price1 5012.00
## 6 6 over price1 5012.00
## 7 7 over price1 5012.00
## 8 8 over price1 5012.00
## 9 9 over price1 5012.00
## 10 10 over price1 5012.00
## 11 11 over price1 5012.00
## 12 12 over price1 5012.00
## 13 13 over price1 5012.00
## 14 14 over price1 5012.00
## 15 15 over price1 5012.00
## 16 16 over price1 5012.00
## 17 17 over price1 5012.00
## 18 18 over price1 5012.00
## 19 19 over price1 5012.00
## 20 20 over price1 5012.00
## 21 21 over price1 5012.00
## 22 22 over price1 5012.00
## 23 23 over price1 5012.00
## 24 24 over price1 5012.00
## 25 25 over price1 5012.00
## 26 26 over price1 5012.00
## 27 27 over price1 5012.00
## 28 28 over price1 5012.00
## 29 29 over price1 5012.00
## 30 30 over price1 5012.00
## 31 31 under price1 4988.00
## 32 32 under price1 4988.00
## 33 33 under price1 4988.00
## 34 34 under price1 4988.00
## 35 35 under price1 4988.00
## 36 36 under price1 4988.00
## 37 37 under price1 4988.00
## 38 38 under price1 4988.00
## 39 39 under price1 4988.00
## 40 40 under price1 4988.00
## 41 41 under price1 4988.00
## 42 42 under price1 4988.00
## 43 43 under price1 4988.00
## 44 44 under price1 4988.00
## 45 45 under price1 4988.00
## 46 46 under price1 4988.00
## 47 47 under price1 4988.00
## 48 48 under price1 4988.00
## 49 49 under price1 4988.00
## 50 50 under price1 4988.00
## 51 51 under price1 4988.00
## 52 52 under price1 4988.00
## 53 53 under price1 4988.00
## 54 54 under price1 4988.00
## 55 55 under price1 4988.00
## 56 56 under price1 4988.00
## 57 57 under price1 4988.00
## 58 58 under price1 4988.00
## 59 59 rounded price1 5000.00
## 60 60 rounded price1 5000.00
## 61 61 rounded price1 5000.00
## 62 62 rounded price1 5000.00
## 63 63 rounded price1 5000.00
## 64 64 rounded price1 5000.00
## 65 65 rounded price1 5000.00
## 66 66 rounded price1 5000.00
## 67 67 rounded price1 5000.00
## 68 68 rounded price1 5000.00
## 69 69 rounded price1 5000.00
## 70 70 rounded price1 5000.00
## 71 71 rounded price1 5000.00
## 72 72 rounded price1 5000.00
## 73 73 rounded price1 5000.00
## 74 74 rounded price1 5000.00
## 75 75 rounded price1 5000.00
## 76 76 rounded price1 5000.00
## 77 77 rounded price1 5000.00
## 78 78 rounded price1 5000.00
## 79 79 rounded price1 5000.00
## 80 80 rounded price1 5000.00
## 81 81 rounded price1 5000.00
## 82 82 rounded price1 5000.00
## 83 83 rounded price1 5000.00
## 84 84 rounded price1 5000.00
## 85 85 rounded price1 5000.00
## 86 86 rounded price1 5000.00
## 87 87 rounded price1 5000.00
## 88 1 over price2 2508.00
## 89 2 over price2 2508.00
## 90 3 over price2 2508.00
## 91 4 over price2 2508.00
## 92 5 over price2 2508.00
## 93 6 over price2 2508.00
## 94 7 over price2 2508.00
## 95 8 over price2 2508.00
## 96 9 over price2 2508.00
## 97 10 over price2 2508.00
## 98 11 over price2 2508.00
## 99 12 over price2 2508.00
## 100 13 over price2 2508.00
## 101 14 over price2 2508.00
## 102 15 over price2 2508.00
## 103 16 over price2 2508.00
## 104 17 over price2 2508.00
## 105 18 over price2 2508.00
## 106 19 over price2 2508.00
## 107 20 over price2 2508.00
## 108 21 over price2 2508.00
## 109 22 over price2 2508.00
## 110 23 over price2 2508.00
## 111 24 over price2 2508.00
## 112 25 over price2 2508.00
## 113 26 over price2 2508.00
## 114 27 over price2 2508.00
## 115 28 over price2 2508.00
## 116 29 over price2 2508.00
## 117 30 over price2 2508.00
## 118 31 under price2 2492.00
## 119 32 under price2 2492.00
## 120 33 under price2 2492.00
## 121 34 under price2 2492.00
## 122 35 under price2 2492.00
## 123 36 under price2 2492.00
## 124 37 under price2 2492.00
## 125 38 under price2 2492.00
## 126 39 under price2 2492.00
## 127 40 under price2 2492.00
## 128 41 under price2 2492.00
## 129 42 under price2 2492.00
## 130 43 under price2 2492.00
## 131 44 under price2 2492.00
## 132 45 under price2 2492.00
## 133 46 under price2 2492.00
## 134 47 under price2 2492.00
## 135 48 under price2 2492.00
## 136 49 under price2 2492.00
## 137 50 under price2 2492.00
## 138 51 under price2 2492.00
## 139 52 under price2 2492.00
## 140 53 under price2 2492.00
## 141 54 under price2 2492.00
## 142 55 under price2 2492.00
## 143 56 under price2 2492.00
## 144 57 under price2 2492.00
## 145 58 under price2 2492.00
## 146 59 rounded price2 2500.00
## 147 60 rounded price2 2500.00
## 148 61 rounded price2 2500.00
## 149 62 rounded price2 2500.00
## 150 63 rounded price2 2500.00
## 151 64 rounded price2 2500.00
## 152 65 rounded price2 2500.00
## 153 66 rounded price2 2500.00
## 154 67 rounded price2 2500.00
## 155 68 rounded price2 2500.00
## 156 69 rounded price2 2500.00
## 157 70 rounded price2 2500.00
## 158 71 rounded price2 2500.00
## 159 72 rounded price2 2500.00
## 160 73 rounded price2 2500.00
## 161 74 rounded price2 2500.00
## 162 75 rounded price2 2500.00
## 163 76 rounded price2 2500.00
## 164 77 rounded price2 2500.00
## 165 78 rounded price2 2500.00
## 166 79 rounded price2 2500.00
## 167 80 rounded price2 2500.00
## 168 81 rounded price2 2500.00
## 169 82 rounded price2 2500.00
## 170 83 rounded price2 2500.00
## 171 84 rounded price2 2500.00
## 172 85 rounded price2 2500.00
## 173 86 rounded price2 2500.00
## 174 87 rounded price2 2500.00
## 175 1 over price3 9.36
## 176 2 over price3 9.36
## 177 3 over price3 9.36
## 178 4 over price3 9.36
## 179 5 over price3 9.36
## 180 6 over price3 9.36
## 181 7 over price3 9.36
## 182 8 over price3 9.36
## 183 9 over price3 9.36
## 184 10 over price3 9.36
## 185 11 over price3 9.36
## 186 12 over price3 9.36
## 187 13 over price3 9.36
## 188 14 over price3 9.36
## 189 15 over price3 9.36
## 190 16 over price3 9.36
## 191 17 over price3 9.36
## 192 18 over price3 9.36
## 193 19 over price3 9.36
## 194 20 over price3 9.36
## 195 21 over price3 9.36
## 196 22 over price3 9.36
## 197 23 over price3 9.36
## 198 24 over price3 9.36
## 199 25 over price3 9.36
## 200 26 over price3 9.36
## 201 27 over price3 9.36
## 202 28 over price3 9.36
## 203 29 over price3 9.36
## 204 30 over price3 9.36
## 205 31 under price3 8.64
## 206 32 under price3 8.64
## 207 33 under price3 8.64
## 208 34 under price3 8.64
## 209 35 under price3 8.64
## 210 36 under price3 8.64
## 211 37 under price3 8.64
## 212 38 under price3 8.64
## 213 39 under price3 8.64
## 214 40 under price3 8.64
## 215 41 under price3 8.64
## 216 42 under price3 8.64
## 217 43 under price3 8.64
## 218 44 under price3 8.64
## 219 45 under price3 8.64
## 220 46 under price3 8.64
## 221 47 under price3 8.64
## 222 48 under price3 8.64
## 223 49 under price3 8.64
## 224 50 under price3 8.64
## 225 51 under price3 8.64
## 226 52 under price3 8.64
## 227 53 under price3 8.64
## 228 54 under price3 8.64
## 229 55 under price3 8.64
## 230 56 under price3 8.64
## 231 57 under price3 8.64
## 232 58 under price3 8.64
## 233 59 rounded price3 9.00
## 234 60 rounded price3 9.00
## 235 61 rounded price3 9.00
## 236 62 rounded price3 9.00
## 237 63 rounded price3 9.00
## 238 64 rounded price3 9.00
## 239 65 rounded price3 9.00
## 240 66 rounded price3 9.00
## 241 67 rounded price3 9.00
## 242 68 rounded price3 9.00
## 243 69 rounded price3 9.00
## 244 70 rounded price3 9.00
## 245 71 rounded price3 9.00
## 246 72 rounded price3 9.00
## 247 73 rounded price3 9.00
## 248 74 rounded price3 9.00
## 249 75 rounded price3 9.00
## 250 76 rounded price3 9.00
## 251 77 rounded price3 9.00
## 252 78 rounded price3 9.00
## 253 79 rounded price3 9.00
## 254 80 rounded price3 9.00
## 255 81 rounded price3 9.00
## 256 82 rounded price3 9.00
## 257 83 rounded price3 9.00
## 258 84 rounded price3 9.00
## 259 85 rounded price3 9.00
## 260 86 rounded price3 9.00
## 261 87 rounded price3 9.00
## 262 1 over dogCost 2300.00
## 263 2 over dogCost 2450.00
## 264 3 over dogCost 800.00
## 265 4 over dogCost 2000.00
## 266 5 over dogCost 2000.00
## 267 6 over dogCost 1600.00
## 268 7 over dogCost 1750.00
## 269 8 over dogCost 2200.00
## 270 9 over dogCost 2000.00
## 271 10 over dogCost 1000.00
## 272 11 over dogCost 1600.00
## 273 12 over dogCost 2250.00
## 274 13 over dogCost 2000.00
## 275 14 over dogCost 2000.00
## 276 15 over dogCost 2200.00
## 277 16 over dogCost 2200.00
## 278 17 over dogCost 1000.00
## 279 18 over dogCost 2250.00
## 280 19 over dogCost 1749.00
## 281 20 over dogCost 1850.00
## 282 21 over dogCost 2500.00
## 283 22 over dogCost 2000.00
## 284 23 over dogCost 1500.00
## 285 24 over dogCost 2250.00
## 286 25 over dogCost 1500.00
## 287 26 over dogCost 1875.00
## 288 27 over dogCost 2000.00
## 289 28 over dogCost 1800.00
## 290 29 over dogCost 2000.00
## 291 30 over dogCost 2325.00
## 292 31 under dogCost 1000.00
## 293 32 under dogCost 2000.00
## 294 33 under dogCost 2192.00
## 295 34 under dogCost 2000.00
## 296 35 under dogCost 2000.00
## 297 36 under dogCost 2100.00
## 298 37 under dogCost 2299.00
## 299 38 under dogCost 2100.00
## 300 39 under dogCost 2292.00
## 301 40 under dogCost 2482.00
## 302 41 under dogCost 1500.00
## 303 42 under dogCost 2200.00
## 304 43 under dogCost 1500.00
## 305 44 under dogCost 1900.00
## 306 45 under dogCost 2000.00
## 307 46 under dogCost 2200.00
## 308 47 under dogCost 1500.00
## 309 48 under dogCost 1900.00
## 310 49 under dogCost 2200.00
## 311 50 under dogCost 2000.00
## 312 51 under dogCost 1990.00
## 313 52 under dogCost 2000.00
## 314 53 under dogCost 1750.00
## 315 54 under dogCost 1790.00
## 316 55 under dogCost 2000.00
## 317 56 under dogCost 500.00
## 318 57 under dogCost 2000.00
## 319 58 under dogCost 2000.00
## 320 59 rounded dogCost 2300.00
## 321 60 rounded dogCost 2000.00
## 322 61 rounded dogCost 2200.00
## 323 62 rounded dogCost 1900.00
## 324 63 rounded dogCost 1000.00
## 325 64 rounded dogCost 1700.00
## 326 65 rounded dogCost 2400.00
## 327 66 rounded dogCost 1700.00
## 328 67 rounded dogCost 2000.00
## 329 68 rounded dogCost 1800.00
## 330 69 rounded dogCost 2000.00
## 331 70 rounded dogCost 2000.00
## 332 71 rounded dogCost 2450.00
## 333 72 rounded dogCost 2300.00
## 334 73 rounded dogCost 2000.00
## 335 74 rounded dogCost 1000.00
## 336 75 rounded dogCost 1950.00
## 337 76 rounded dogCost 2000.00
## 338 77 rounded dogCost 2000.00
## 339 78 rounded dogCost 500.00
## 340 79 rounded dogCost 1500.00
## 341 80 rounded dogCost 2000.00
## 342 81 rounded dogCost 1000.00
## 343 82 rounded dogCost 2200.00
## 344 83 rounded dogCost 2000.00
## 345 84 rounded dogCost 2350.00
## 346 85 rounded dogCost 2000.00
## 347 86 rounded dogCost 1900.00
## 348 87 rounded dogCost 2499.99
## 349 1 over plasmaCost 4800.00
## 350 2 over plasmaCost 4850.00
## 351 3 over plasmaCost 1200.00
## 352 4 over plasmaCost 4200.00
## 353 5 over plasmaCost 4500.00
## 354 6 over plasmaCost 4600.00
## 355 7 over plasmaCost 4650.00
## 356 8 over plasmaCost 4800.00
## 357 9 over plasmaCost 4500.00
## 358 10 over plasmaCost 3000.00
## 359 11 over plasmaCost 4578.00
## 360 12 over plasmaCost 4999.00
## 361 13 over plasmaCost 4000.00
## 362 14 over plasmaCost 4500.00
## 363 15 over plasmaCost 4500.00
## 364 16 over plasmaCost 4700.00
## 365 17 over plasmaCost 5000.00
## 366 18 over plasmaCost 4899.00
## 367 19 over plasmaCost 3499.00
## 368 20 over plasmaCost 4999.99
## 369 21 over plasmaCost 4999.00
## 370 22 over plasmaCost 4500.00
## 371 23 over plasmaCost 3200.00
## 372 24 over plasmaCost 4500.00
## 373 25 over plasmaCost 3000.00
## 374 26 over plasmaCost 4699.00
## 375 27 over plasmaCost 4540.00
## 376 28 over plasmaCost 3800.00
## 377 29 over plasmaCost 4000.00
## 378 30 over plasmaCost 4997.00
## 379 31 under plasmaCost 2500.00
## 380 32 under plasmaCost 2500.00
## 381 33 under plasmaCost 4888.00
## 382 34 under plasmaCost 4400.00
## 383 35 under plasmaCost 4500.00
## 384 36 under plasmaCost 4300.00
## 385 37 under plasmaCost 4500.00
## 386 38 under plasmaCost 3500.00
## 387 39 under plasmaCost 4888.00
## 388 40 under plasmaCost 4968.00
## 389 41 under plasmaCost 3000.00
## 390 42 under plasmaCost 4000.00
## 391 43 under plasmaCost 4000.00
## 392 44 under plasmaCost 4700.00
## 393 45 under plasmaCost 4500.00
## 394 46 under plasmaCost 4750.00
## 395 47 under plasmaCost 2500.00
## 396 48 under plasmaCost 4120.00
## 397 49 under plasmaCost 4900.00
## 398 50 under plasmaCost 4000.00
## 399 51 under plasmaCost 3250.00
## 400 52 under plasmaCost 4000.00
## 401 53 under plasmaCost 3500.00
## 402 54 under plasmaCost 4350.00
## 403 55 under plasmaCost 3200.00
## 404 56 under plasmaCost 4500.00
## 405 57 under plasmaCost 4800.00
## 406 58 under plasmaCost 3500.00
## 407 59 rounded plasmaCost 4500.00
## 408 60 rounded plasmaCost 4500.00
## 409 61 rounded plasmaCost 4500.00
## 410 62 rounded plasmaCost 3500.00
## 411 63 rounded plasmaCost 2500.00
## 412 64 rounded plasmaCost 4495.00
## 413 65 rounded plasmaCost 4849.00
## 414 66 rounded plasmaCost 3500.00
## 415 67 rounded plasmaCost 4000.00
## 416 68 rounded plasmaCost 1500.00
## 417 69 rounded plasmaCost 4200.00
## 418 70 rounded plasmaCost 2999.00
## 419 71 rounded plasmaCost 4995.00
## 420 72 rounded plasmaCost 4700.00
## 421 73 rounded plasmaCost 4300.00
## 422 74 rounded plasmaCost 3500.00
## 423 75 rounded plasmaCost 4675.00
## 424 76 rounded plasmaCost 4000.00
## 425 77 rounded plasmaCost 4500.00
## 426 78 rounded plasmaCost 4500.00
## 427 79 rounded plasmaCost 4500.00
## 428 80 rounded plasmaCost 4700.00
## 429 81 rounded plasmaCost 2000.00
## 430 82 rounded plasmaCost 4700.00
## 431 83 rounded plasmaCost 4000.00
## 432 84 rounded plasmaCost 4750.00
## 433 85 rounded plasmaCost 4000.00
## 434 86 rounded plasmaCost 4800.00
## 435 87 rounded plasmaCost 4995.00
## 436 1 over sushiCost 8.70
## 437 2 over sushiCost 9.00
## 438 3 over sushiCost 8.00
## 439 4 over sushiCost 9.00
## 440 5 over sushiCost 8.50
## 441 6 over sushiCost 8.00
## 442 7 over sushiCost 6.95
## 443 8 over sushiCost 8.00
## 444 9 over sushiCost 8.99
## 445 10 over sushiCost 9.00
## 446 11 over sushiCost 8.50
## 447 12 over sushiCost 8.50
## 448 13 over sushiCost NA
## 449 14 over sushiCost 8.50
## 450 15 over sushiCost 8.00
## 451 16 over sushiCost 8.00
## 452 17 over sushiCost 7.75
## 453 18 over sushiCost 8.00
## 454 19 over sushiCost 8.99
## 455 20 over sushiCost 7.99
## 456 21 over sushiCost 9.30
## 457 22 over sushiCost 8.50
## 458 23 over sushiCost 7.35
## 459 24 over sushiCost 8.50
## 460 25 over sushiCost 8.00
## 461 26 over sushiCost 7.89
## 462 27 over sushiCost 8.95
## 463 28 over sushiCost 7.00
## 464 29 over sushiCost 8.50
## 465 30 over sushiCost 8.99
## 466 31 under sushiCost 7.50
## 467 32 under sushiCost 7.80
## 468 33 under sushiCost 7.50
## 469 34 under sushiCost 7.99
## 470 35 under sushiCost 8.00
## 471 36 under sushiCost 7.99
## 472 37 under sushiCost 7.80
## 473 38 under sushiCost 6.99
## 474 39 under sushiCost 7.50
## 475 40 under sushiCost 8.46
## 476 41 under sushiCost 7.50
## 477 42 under sushiCost 6.99
## 478 43 under sushiCost 7.99
## 479 44 under sushiCost 7.99
## 480 45 under sushiCost 6.99
## 481 46 under sushiCost 7.50
## 482 47 under sushiCost 7.58
## 483 48 under sushiCost 7.75
## 484 49 under sushiCost 8.00
## 485 50 under sushiCost 7.56
## 486 51 under sushiCost 7.75
## 487 52 under sushiCost 7.99
## 488 53 under sushiCost 7.99
## 489 54 under sushiCost 7.50
## 490 55 under sushiCost 8.50
## 491 56 under sushiCost 7.99
## 492 57 under sushiCost 8.00
## 493 58 under sushiCost 7.69
## 494 59 rounded sushiCost 8.00
## 495 60 rounded sushiCost 8.49
## 496 61 rounded sushiCost 8.00
## 497 62 rounded sushiCost 7.50
## 498 63 rounded sushiCost 6.95
## 499 64 rounded sushiCost 7.50
## 500 65 rounded sushiCost 8.69
## 501 66 rounded sushiCost 8.00
## 502 67 rounded sushiCost 8.00
## 503 68 rounded sushiCost 8.00
## 504 69 rounded sushiCost 8.00
## 505 70 rounded sushiCost 7.00
## 506 71 rounded sushiCost 8.95
## 507 72 rounded sushiCost 7.50
## 508 73 rounded sushiCost 8.25
## 509 74 rounded sushiCost 8.00
## 510 75 rounded sushiCost 7.89
## 511 76 rounded sushiCost 7.75
## 512 77 rounded sushiCost 6.50
## 513 78 rounded sushiCost 8.00
## 514 79 rounded sushiCost 7.00
## 515 80 rounded sushiCost 8.50
## 516 81 rounded sushiCost 7.50
## 517 82 rounded sushiCost 8.00
## 518 83 rounded sushiCost 8.50
## 519 84 rounded sushiCost 8.25
## 520 85 rounded sushiCost 8.50
## 521 86 rounded sushiCost 8.50
## 522 87 rounded sushiCost 8.99d.wide <- d.gathered %>%
spread(Type, Value)
d.wide <- d.wide[c(1:2, 5:7, 3:4, 8)]
print(d.wide)## id condition price1 price2 price3 dogCost plasmaCost sushiCost
## 1 1 over 5012 2508 9.36 2300.00 4800.00 8.70
## 2 2 over 5012 2508 9.36 2450.00 4850.00 9.00
## 3 3 over 5012 2508 9.36 800.00 1200.00 8.00
## 4 4 over 5012 2508 9.36 2000.00 4200.00 9.00
## 5 5 over 5012 2508 9.36 2000.00 4500.00 8.50
## 6 6 over 5012 2508 9.36 1600.00 4600.00 8.00
## 7 7 over 5012 2508 9.36 1750.00 4650.00 6.95
## 8 8 over 5012 2508 9.36 2200.00 4800.00 8.00
## 9 9 over 5012 2508 9.36 2000.00 4500.00 8.99
## 10 10 over 5012 2508 9.36 1000.00 3000.00 9.00
## 11 11 over 5012 2508 9.36 1600.00 4578.00 8.50
## 12 12 over 5012 2508 9.36 2250.00 4999.00 8.50
## 13 13 over 5012 2508 9.36 2000.00 4000.00 NA
## 14 14 over 5012 2508 9.36 2000.00 4500.00 8.50
## 15 15 over 5012 2508 9.36 2200.00 4500.00 8.00
## 16 16 over 5012 2508 9.36 2200.00 4700.00 8.00
## 17 17 over 5012 2508 9.36 1000.00 5000.00 7.75
## 18 18 over 5012 2508 9.36 2250.00 4899.00 8.00
## 19 19 over 5012 2508 9.36 1749.00 3499.00 8.99
## 20 20 over 5012 2508 9.36 1850.00 4999.99 7.99
## 21 21 over 5012 2508 9.36 2500.00 4999.00 9.30
## 22 22 over 5012 2508 9.36 2000.00 4500.00 8.50
## 23 23 over 5012 2508 9.36 1500.00 3200.00 7.35
## 24 24 over 5012 2508 9.36 2250.00 4500.00 8.50
## 25 25 over 5012 2508 9.36 1500.00 3000.00 8.00
## 26 26 over 5012 2508 9.36 1875.00 4699.00 7.89
## 27 27 over 5012 2508 9.36 2000.00 4540.00 8.95
## 28 28 over 5012 2508 9.36 1800.00 3800.00 7.00
## 29 29 over 5012 2508 9.36 2000.00 4000.00 8.50
## 30 30 over 5012 2508 9.36 2325.00 4997.00 8.99
## 31 31 under 4988 2492 8.64 1000.00 2500.00 7.50
## 32 32 under 4988 2492 8.64 2000.00 2500.00 7.80
## 33 33 under 4988 2492 8.64 2192.00 4888.00 7.50
## 34 34 under 4988 2492 8.64 2000.00 4400.00 7.99
## 35 35 under 4988 2492 8.64 2000.00 4500.00 8.00
## 36 36 under 4988 2492 8.64 2100.00 4300.00 7.99
## 37 37 under 4988 2492 8.64 2299.00 4500.00 7.80
## 38 38 under 4988 2492 8.64 2100.00 3500.00 6.99
## 39 39 under 4988 2492 8.64 2292.00 4888.00 7.50
## 40 40 under 4988 2492 8.64 2482.00 4968.00 8.46
## 41 41 under 4988 2492 8.64 1500.00 3000.00 7.50
## 42 42 under 4988 2492 8.64 2200.00 4000.00 6.99
## 43 43 under 4988 2492 8.64 1500.00 4000.00 7.99
## 44 44 under 4988 2492 8.64 1900.00 4700.00 7.99
## 45 45 under 4988 2492 8.64 2000.00 4500.00 6.99
## 46 46 under 4988 2492 8.64 2200.00 4750.00 7.50
## 47 47 under 4988 2492 8.64 1500.00 2500.00 7.58
## 48 48 under 4988 2492 8.64 1900.00 4120.00 7.75
## 49 49 under 4988 2492 8.64 2200.00 4900.00 8.00
## 50 50 under 4988 2492 8.64 2000.00 4000.00 7.56
## 51 51 under 4988 2492 8.64 1990.00 3250.00 7.75
## 52 52 under 4988 2492 8.64 2000.00 4000.00 7.99
## 53 53 under 4988 2492 8.64 1750.00 3500.00 7.99
## 54 54 under 4988 2492 8.64 1790.00 4350.00 7.50
## 55 55 under 4988 2492 8.64 2000.00 3200.00 8.50
## 56 56 under 4988 2492 8.64 500.00 4500.00 7.99
## 57 57 under 4988 2492 8.64 2000.00 4800.00 8.00
## 58 58 under 4988 2492 8.64 2000.00 3500.00 7.69
## 59 59 rounded 5000 2500 9.00 2300.00 4500.00 8.00
## 60 60 rounded 5000 2500 9.00 2000.00 4500.00 8.49
## 61 61 rounded 5000 2500 9.00 2200.00 4500.00 8.00
## 62 62 rounded 5000 2500 9.00 1900.00 3500.00 7.50
## 63 63 rounded 5000 2500 9.00 1000.00 2500.00 6.95
## 64 64 rounded 5000 2500 9.00 1700.00 4495.00 7.50
## 65 65 rounded 5000 2500 9.00 2400.00 4849.00 8.69
## 66 66 rounded 5000 2500 9.00 1700.00 3500.00 8.00
## 67 67 rounded 5000 2500 9.00 2000.00 4000.00 8.00
## 68 68 rounded 5000 2500 9.00 1800.00 1500.00 8.00
## 69 69 rounded 5000 2500 9.00 2000.00 4200.00 8.00
## 70 70 rounded 5000 2500 9.00 2000.00 2999.00 7.00
## 71 71 rounded 5000 2500 9.00 2450.00 4995.00 8.95
## 72 72 rounded 5000 2500 9.00 2300.00 4700.00 7.50
## 73 73 rounded 5000 2500 9.00 2000.00 4300.00 8.25
## 74 74 rounded 5000 2500 9.00 1000.00 3500.00 8.00
## 75 75 rounded 5000 2500 9.00 1950.00 4675.00 7.89
## 76 76 rounded 5000 2500 9.00 2000.00 4000.00 7.75
## 77 77 rounded 5000 2500 9.00 2000.00 4500.00 6.50
## 78 78 rounded 5000 2500 9.00 500.00 4500.00 8.00
## 79 79 rounded 5000 2500 9.00 1500.00 4500.00 7.00
## 80 80 rounded 5000 2500 9.00 2000.00 4700.00 8.50
## 81 81 rounded 5000 2500 9.00 1000.00 2000.00 7.50
## 82 82 rounded 5000 2500 9.00 2200.00 4700.00 8.00
## 83 83 rounded 5000 2500 9.00 2000.00 4000.00 8.50
## 84 84 rounded 5000 2500 9.00 2350.00 4750.00 8.25
## 85 85 rounded 5000 2500 9.00 2000.00 4000.00 8.50
## 86 86 rounded 5000 2500 9.00 1900.00 4800.00 8.50
## 87 87 rounded 5000 2500 9.00 2499.99 4995.00 8.99Part 3
summarise(d.tidy, mean = mean(dogCost, na.rm = TRUE))## mean
## 1 1896.483summarise(d.tidy, mean = mean(sushiCost, na.rm = TRUE))## mean
## 1 8.009884d.raw <- read.csv("janiszewski_rep_exercise.csv")
d.unique.subs <- distinct(d.raw, WorkerId)
d.tidy <- d %>%
select(WorkerId, Input.condition,
starts_with("Answer"),
starts_with("Input")) %>%
rename(workerid = WorkerId,
condition = Input.condition,
plasma_anchor = Input.price1,
dog_anchor = Input.price2,
sushi_anchor = Input.price3,
dog_cost = Answer.dog_cost,
plasma_cost = Answer.plasma_cost,
sushi_cost = Answer.sushi_cost) %>%
gather(name, cost,
dog_anchor, plasma_anchor, sushi_anchor,
dog_cost, plasma_cost, sushi_cost) %>%
separate(name, c("item", "type"), "_") %>%
spread(type, cost)
pcts <- d.tidy %>%
mutate(pct_change = abs((anchor-cost) / anchor)) %>%
group_by(condition) %>%
group_by(item, add = TRUE) %>%
summarize(pct_change=mean(pct_change, na.rm = TRUE))
z.scores <- d.tidy %>%
group_by(item) %>%
mutate(z=scale(cost)[,1]) %>%
group_by(condition, add = TRUE) %>%
summarize(z=mean(z, na.rm = TRUE))
qplot(item, pct_change, fill=condition,
position="dodge",
stat="identity", geom="bar",
data=pcts)
qplot(item, z, fill=condition,
position="dodge",
stat="identity", geom="bar",
data=z.scores)