Estadistica

> #
>no_fumadores=c(17.2,16.2,19.8,21.2,21.1,21.8,19.5,19.7,19.9,22.6,18.9,16.9,22.1,18.8,18.1,19.8,20.0,22.1,23.0,21.1,19.2,15.1,23.6,24.1,20.6,20.1,20.5,22.4,18.3,24.9,25.0,23.3,17.5,20.4,19.3,17.6,20.1,21.4,20.2,21.3,20.7,17.4)
>fumadores=c(15.1,16.9,22.8,25.8,24.3,23.2,15.8,20.5,21.2,22.4,24.1,25.7,25.1,15.3,17.7,18.1,19.4,15.0,15.2,16.1,19.9,21.3,22.1,25.2,24.1,18.0,17.2,23.3,16.0,15.9,18.3,21.6,23.8,24.9,23.0,24.8,25.2,25.0,16.3,17.9,19.9,25.1)
> length(fumadores)
[1] 42
> length(no_fumadores)
[1] 42
>fivenum(fumadores)
[1] 15.00 17.20 21.25 24.10 25.80
> summary(fumadores)
Min. 1st Qu. Median Mean 3rd Qu. Max.
15.00 17.32 21.25 20.68 24.10 25.80> fivenum(no_fumadores)
[1] 15.10 18.90 20.15 21.80 25.00
> summary(no_fumadores)
Min. 1st Qu. Median Mean 3rd Qu. Max.
15.10 18.97 20.15 20.30 21.7025.00
> library(agricolae)
> histo1=graph.freq(fumadores,plot=TRUE, col="blue")
> table.freq(histo1)
Lower Upper Main freq relative CF RCF
15.0 16.815.9 9 0.21428571 9 0.2142857
16.8 18.6 17.7 7 0.16666667 16 0.3809524
18.6 20.4 19.5 3 0.07142857 19 0.4523810
20.4 22.2 21.3 5 0.11904762 24 0.571428622.2 24.0 23.1 6 0.14285714 30 0.7142857
24.0 25.8 24.9 12 0.28571429 42 1.0000000
> histo1=graph.freq(no_fumadores,plot=TRUE, col="blue")
> table.freq(histo1)Lower Upper Main freq relative CF RCF
15.0 16.7 15.85 2 0.04761905 2 0.04761905
16.7 18.4 17.55 7 0.16666667 9 0.21428571
18.4 20.1 19.25 100.23809524 19 0.45238095
20.1 21.8 20.95 12 0.28571429 31 0.73809524
21.8 23.5 22.65 7 0.16666667 38 0.90476190
23.5 25.2 24.35 4 0.09523810 42 1.00000000