Question

Finish times (to the nearest hour) for 59 dogsled teams are shown below. Draw a histogram. Use five classes.

261 269 236 244 280 296 284 299 288 288 249 256 338 360 341 333 261 266 287 296 313 311 306 306 299 303 277 283 304 305 288 290 288 289 297 299 332 330 309 327 306 327 285 291 295 298 306 315 310 318 318 320 333 321 323 324 327 239 358

Answer 1

The sorted data is

236 239 244 249 256 261 261 266 269 277 280 283 284 285 287 288 288 288 288 289 290 291
295 296 296 297 298 299 299 299 303 304 305 306 306 306 306 309 310 311 313 315 318 318
320 321 323 324 327 327 327 330 332 333 333 338 341 358 360

The histogram of the given dataset is plotted below.

There are 5 classes of equal width . The R code for the above plot is

X <- c(261, 269 ,236 ,244 ,280 ,296, 284, 299 ,288, 288, 249, 256, 338, 360, 341, 333 ,261,
266, 287, 296, 313 ,311 ,306 ,306 ,299, 303, 277, 283, 304 ,305 ,288 ,290, 288, 289, 297,
299, 332,330, 309 ,327 ,306 ,327, 285 ,291, 295, 298, 306, 315, 310 ,318, 318 ,320, 333,
321, 323, 324, 327, 239 ,358)
length(X)
plot(1:1)
dev.new()
hist(X,col = "sky blue",breaks=c(220,248,276,304,332,360),main="Histogram",xlab = "X")