ylevaade1

Autode läbisõit miili galloni kohta

  mtcars[ , c("mpg", "cyl")]

##                      mpg cyl
## Mazda RX4           21.0   6
## Mazda RX4 Wag       21.0   6
## Datsun 710          22.8   4
## Hornet 4 Drive      21.4   6
## Hornet Sportabout   18.7   8
## Valiant             18.1   6
## Duster 360          14.3   8
## Merc 240D           24.4   4
## Merc 230            22.8   4
## Merc 280            19.2   6
## Merc 280C           17.8   6
## Merc 450SE          16.4   8
## Merc 450SL          17.3   8
## Merc 450SLC         15.2   8
## Cadillac Fleetwood  10.4   8
## Lincoln Continental 10.4   8
## Chrysler Imperial   14.7   8
## Fiat 128            32.4   4
## Honda Civic         30.4   4
## Toyota Corolla      33.9   4
## Toyota Corona       21.5   4
## Dodge Challenger    15.5   8
## AMC Javelin         15.2   8
## Camaro Z28          13.3   8
## Pontiac Firebird    19.2   8
## Fiat X1-9           27.3   4
## Porsche 914-2       26.0   4
## Lotus Europa        30.4   4
## Ford Pantera L      15.8   8
## Ferrari Dino        19.7   6
## Maserati Bora       15.0   8
## Volvo 142E          21.4   4

  mtcars$liitreidsajale=100/(mtcars$mpg*1.6/3.8)
  mtcars[, c("mpg", "liitreidsajale")]

##                      mpg liitreidsajale
## Mazda RX4           21.0      11.309524
## Mazda RX4 Wag       21.0      11.309524
## Datsun 710          22.8      10.416667
## Hornet 4 Drive      21.4      11.098131
## Hornet Sportabout   18.7      12.700535
## Valiant             18.1      13.121547
## Duster 360          14.3      16.608392
## Merc 240D           24.4       9.733607
## Merc 230            22.8      10.416667
## Merc 280            19.2      12.369792
## Merc 280C           17.8      13.342697
## Merc 450SE          16.4      14.481707
## Merc 450SL          17.3      13.728324
## Merc 450SLC         15.2      15.625000
## Cadillac Fleetwood  10.4      22.836538
## Lincoln Continental 10.4      22.836538
## Chrysler Imperial   14.7      16.156463
## Fiat 128            32.4       7.330247
## Honda Civic         30.4       7.812500
## Toyota Corolla      33.9       7.005900
## Toyota Corona       21.5      11.046512
## Dodge Challenger    15.5      15.322581
## AMC Javelin         15.2      15.625000
## Camaro Z28          13.3      17.857143
## Pontiac Firebird    19.2      12.369792
## Fiat X1-9           27.3       8.699634
## Porsche 914-2       26.0       9.134615
## Lotus Europa        30.4       7.812500
## Ford Pantera L      15.8      15.031646
## Ferrari Dino        19.7      12.055838
## Maserati Bora       15.0      15.833333
## Volvo 142E          21.4      11.098131

Keskmine, suurim ja vähim kütusekulu ning mediaan

  tulemused=c(
     keskmine=mean(mtcars$liitreidsajale),
     suurim=max(mtcars$liitreidsajale),
     vahim=min(mtcars$liitreidsajale),
     mediaan=median(mtcars$liitreidsajale),
     standardhälve=sd(mtcars$liitreidsajale))
  tulemused

##      keskmine        suurim         vahim       mediaan standardhälve 
##      12.87897      22.83654       7.00590      12.36979       3.90078

Keskmine eraldi: 12.8789694

Suurimad:

  mtcars[mtcars$liitreidsajale==max(mtcars$liitreidsajale), 
          c("mpg", "liitreidsajale")]

##                      mpg liitreidsajale
## Cadillac Fleetwood  10.4       22.83654
## Lincoln Continental 10.4       22.83654

Üle keskmise kulutajad:

  mtcars[mtcars$liitreidsajale>mean(mtcars$liitreidsajale), 
          c("mpg", "liitreidsajale")]

##                      mpg liitreidsajale
## Valiant             18.1       13.12155
## Duster 360          14.3       16.60839
## Merc 280C           17.8       13.34270
## Merc 450SE          16.4       14.48171
## Merc 450SL          17.3       13.72832
## Merc 450SLC         15.2       15.62500
## Cadillac Fleetwood  10.4       22.83654
## Lincoln Continental 10.4       22.83654
## Chrysler Imperial   14.7       16.15646
## Dodge Challenger    15.5       15.32258
## AMC Javelin         15.2       15.62500
## Camaro Z28          13.3       17.85714
## Ford Pantera L      15.8       15.03165
## Maserati Bora       15.0       15.83333

Kütusekulu jaotus:

  hist(mtcars$liitreidsajale)

  hist(mtcars$liitreidsajale, xlim=c(5, 25), main="Sagedusjaotus",
        ylab="kogus vahemikus", xlab="Liitreid saja kilomeetri kohta")