> sort( lottery.payoff )  
  [1]  83.0  96.0 102.0 102.5 105.0 110.0 112.5 114.0 116.0 119.5 120.5 126.5 127.0 127.0 127.0 127.0 128.5 129.5 130.5 130.5 130.5 131.5 132.0
 [24] 137.0 142.0 142.0 143.0 143.5 146.0 146.5 147.5 151.5 154.0 154.5 159.0 159.0 159.5 162.5 163.5 164.5 166.5 167.0 167.5 167.5 170.0 170.5
 [47] 171.0 176.0 176.0 177.5 178.0 178.0 182.0 184.0 184.0 187.0 188.0 188.5 190.0 191.0 191.0 191.5 192.5 194.0 195.0 195.0 197.0 201.5 202.0
 [70] 203.5 203.5 204.0 205.0 206.0 206.5 207.5 209.5 210.5 211.0 211.5 212.0 212.0 214.0 214.5 215.0 215.5 216.5 218.0 219.0 220.0 221.0 221.0
 [93] 226.0 227.0 228.5 229.0 230.0 230.0 230.5 231.0 235.5 237.0 237.5 238.5 239.0 239.5 240.0 241.0 244.5 247.5 249.5 250.5 251.5 254.5 256.0
[116] 256.5 257.0 259.0 260.0 260.5 261.5 262.0 262.5 264.0 267.5 268.5 268.5 272.0 273.0 276.5 283.0 283.5 285.5 285.5 286.5 287.0 287.5 289.5
[139] 290.0 290.0 290.0 291.0 292.0 292.5 293.5 294.5 295.0 295.0 295.5 296.0 298.0 300.5 301.5 303.0 303.0 304.5 308.5 308.5 312.0 312.5 313.5
[162] 314.5 317.0 323.5 324.0 324.5 326.5 328.0 330.0 332.5 334.0 334.0 334.5 335.0 335.0 341.0 342.0 343.0 346.5 348.0 348.0 348.0 348.5 353.0
[185] 353.0 353.0 356.0 357.5 361.0 361.0 365.0 368.0 369.0 371.5 371.5 373.0 373.5 374.5 376.5 377.5 380.0 380.5 384.0 384.5 384.5 386.0 386.0
[208] 388.0 388.5 388.5 392.0 392.5 394.5 404.0 406.0 416.5 417.5 421.5 427.5 442.5 445.5 447.0 448.0 449.0 452.0 463.5 466.0 476.0 478.0 478.5
[231] 480.5 480.5 482.5 486.5 506.5 509.0 510.0 511.5 512.5 512.5 514.0 532.5 537.5 548.0 548.5 553.0 556.5 557.5 567.5 637.0 640.0 668.5 756.0
[254] 869.5
> sort(round(lottery.payoff/10)) *10
  [1]  80 100 100 100 100 110 110 110 120 120 120 130 130 130 130 130 130 130 130 130 130 130 130 140 140 140 140 140 150 150 150 150 150 150
 [35] 160 160 160 160 160 160 170 170 170 170 170 170 170 180 180 180 180 180 180 180 180 190 190 190 190 190 190 190 190 190 200 200 200 200
 [69] 200 200 200 200 200 210 210 210 210 210 210 210 210 210 210 210 220 220 220 220 220 220 220 220 230 230 230 230 230 230 230 230 240 240
[103] 240 240 240 240 240 240 240 250 250 250 250 250 260 260 260 260 260 260 260 260 260 260 270 270 270 270 270 280 280 280 290 290 290 290
[137] 290 290 290 290 290 290 290 290 290 290 300 300 300 300 300 300 300 300 300 300 310 310 310 310 310 310 320 320 320 320 330 330 330 330
[171] 330 330 330 340 340 340 340 340 350 350 350 350 350 350 350 350 360 360 360 360 360 370 370 370 370 370 370 370 380 380 380 380 380 380
[205] 380 390 390 390 390 390 390 390 390 400 410 420 420 420 430 440 450 450 450 450 450 460 470 480 480 480 480 480 480 490 510 510 510 510
[239] 510 510 510 530 540 550 550 550 560 560 570 640 640 670 760 870
> stem(lottery.payoff,head=T, depth=T) 

N = 254   Median = 270.25
Quartiles = 194, 365

Decimal point is 2 places to the right of the colon

    1    1   0 : 8
   28   27   1 : 000011122233333333333344444
   66   38   1 : 55555566666677777778888888899999999999
  109   43   2 : 0000000111111111111222222233333333444444444
        39   2 : 555556666666666777778889999999999999999
  106   30   3 : 000000001111112222333333333444
   76   35   3 : 55555555666667777777888888899999999
   41    7   4 : 0122234
   34   14   4 : 55555678888889
   20    9   5 : 111111134
   11    6   5 : 555667
    5    2   6 : 44
    3    1   6 : 7

High: 756.0 869.5
son tres observaciones las del extremo superior y arriba "van" 28 que son las más pequeñas
> 
> stem(irises$Petal.L,head=T, depth=T)

N = 150   Median = 4.35
Quartiles = 1.6, 5.1

Decimal point is at the colon

   24   24   1 : 012233333334444444444444
   50   26   1 : 55555555555556666666777799
   50    0   2 :
   50    0   2 :
   53    3   3 : 033
   61    8   3 : 55678999
        18   4 : 000001112222334444
   71   25   4 : 5555555566677777888899999
   46   18   5 : 000011111111223344
   28   17   5 : 55566666677788899
   11    7   6 : 0011134
    4    4   6 : 6779

> sort(irises$Petal.L)
  [1] 1.0 1.1 1.2 1.2 1.3 1.3 1.3 1.3 1.3 1.3 1.3 1.4 1.4 1.4 1.4
 [16] 1.4 1.4 1.4 1.4 1.4 1.4 1.4 1.4 1.4 1.5 1.5 1.5 1.5 1.5 1.5
 [31] 1.5 1.5 1.5 1.5 1.5 1.5 1.5 1.6 1.6 1.6 1.6 1.6 1.6 1.6 1.7
 [46] 1.7 1.7 1.7 1.9 1.9 3.0 3.3 3.3 3.5 3.5 3.6 3.7 3.8 3.9 3.9
 [61] 3.9 4.0 4.0 4.0 4.0 4.0 4.1 4.1 4.1 4.2 4.2 4.2 4.2 4.3 4.3
 [76] 4.4 4.4 4.4 4.4 4.5 4.5 4.5 4.5 4.5 4.5 4.5 4.5 4.6 4.6 4.6
 [91] 4.7 4.7 4.7 4.7 4.7 4.8 4.8 4.8 4.8 4.9 4.9 4.9 4.9 4.9 5.0
[106] 5.0 5.0 5.0 5.1 5.1 5.1 5.1 5.1 5.1 5.1 5.1 5.2 5.2 5.3 5.3
[121] 5.4 5.4 5.5 5.5 5.5 5.6 5.6 5.6 5.6 5.6 5.6 5.7 5.7 5.7 5.8
[136] 5.8 5.8 5.9 5.9 6.0 6.0 6.1 6.1 6.1 6.3 6.4 6.6 6.7 6.7 6.9
 
> hist(irises$Petal.L,nclass=12)
> hist(irises$Petal.L,nclass=20)
> hist(irises$Petal.L,nclass=30)
> hist(irises$Petal.L,nclass=5)
> hist(irises$Petal.L,nclass=4)
> hist(irises$Petal.w,nclass=4)
Problem in pretty(x, nclass): vector of all NAs/Infs 
Use traceback() to see the call stack
> hist(irises$Petal.W,nclass=4)
> hist(irises$Petal.W,nclass=12)
>