ESTADISTICA

coches =read.table('coches.txt', header = T)
> coches$consumo
[1] 11 11 13 11 17 15 13 14 13 16 17 16 16 16 17 16 17 24 21 17 24 9 10 8 11 12 13 13 12 13 12 14 15
[34] 17 17 17 17 18 20 189 8 11 11 12 14 16 17 18 17 16 18 18 17 18 20 18 21 12 11 11 13 10 13 13 13
[67] 15 16 21 17 16 18 18 17 16 18 17 15 18 18 20 18 18 20 20 20 21 8 9 9 12 12 16 13 15 15 15 17 17
[100] 17 18 1010 12 13 11 16 18 12 12 12 16 13 16 13 15 14 16 15 17 15 8 10 9 9 9 10 10 13 11 11 13
[133] 13 12 18 18 18 15 18 15 13 16 14 8 7 8 9 10 9 12 13 13 12 13 14 15 15 15 16 15 15 7 8 8 9[166] 10 10 12 11 12 13 12 12 11 13 12 12 13 12 12 13 12 13 7 7 7 7 8 8 9 9 11 12 11 12 11 10 12
[199] 13 13 14 10 13 14 15 14 7 8 8 9 10 12 6 7 7 8 8 9 9 9 10 12 11 13 9 6 77 7 7 8
[232] 8 9 8 8 9 8 9 9 11 10 9 9 6 9 9 9 10 9 9 8 8 8 9 10 11 13 11 8 9 10 9 12 10
[265] 12 9 8 10 8 9 9 8 9 9 10 11 10 8 8 9 9 8 12 12 14 7 8 8 115 7 11 12 14 15 7 6
[298] 9 9 8 5 6 7 5 7 6 8 7 8 8 7 5 9 10 7 8 9 9 9 10 8 12 10 13 12 11 12 8 7 8
[331] 7 9 10 7 8 10 10 7 7 8 12 7 8 7 9 11 11 7 7 6 89 10 11 9 7 7 5 6 6 5 6 7
[364] 7 7 10 6 8 8 7 6 7 6 7 6 7 7 7 7 7 9 10 6 7 8 6 6 7 7 7 7 7 7
> attach(coches)
> consumo[1:5]
[1] 11 11 13 11 17

>summary(consumo)
Min. 1st Qu. Median Mean 3rd Qu. Max.
5.00 8.00 10.00 11.21 13.00 24.00
> quantile(consumo, 0.10)
10%
7
> var(consumo)
[1] 15.16915
> sd(consumo)
[1] 3.894759hist(consumo, col = 'green')
> hist(consumo, col = 'green', freq = F)

> boxplot(consumo[cilindros ==4])
> steam(peso)
Error: could not find function "steam"
> stem(peso)

The decimal point is 2digit(s) to the right of the |

5 | 45999
6 | 0000111112223445555555566666666666667777788888899999
7 | 00000111111111111122222222223333334444444444455555566666667777788899
8 |...