SOLUCIÓN COMPENDIO EJERCICIO 6

>datos=c(200,190,150,148,152,158,100,174,187,188,160,178,153,151,128,137,174,199,103,168,188,127,150,130,175)

> datos

[1] 200 190 150 148 152 158 100 174 187 188 160 178 153 151 128 137 174 199 103

[20] 168 188 127 150 130 175

> Rango=max(datos)-min(datos)

> Rango

[1] 100

> min(datos)

[1] 100

> max(datos)

[1] 200

> m=round(1+3.3*log10(25))

> m

[1] 6

> C=Rango/m

> C

[1] 16.66667

> C=17

> intervalos=cut(datos, breaks=c(99,116,133,150,167,184,201))

> intervalos

[1] (184,201] (184,201] (133,150] (133,150] (150,167] (150,167] (99,116]

[8] (167,184] (184,201] (184,201] (150,167] (167,184] (150,167] (150,167]

[15] (116,133] (133,150] (167,184] (184,201] (99,116] (167,184] (184,201]

[22] (116,133] (133,150] (116,133] (167,184]

Levels: (99,116] (116,133] (133,150] (150,167] (167,184] (184,201]

> f=table(intervalos)

> f

intervalos

(99,116] (116,133] (133,150] (150,167] (167,184] (184,201]

2 3 4 5 5 6

> n=sum(f)

> n

[1] 25

> h=(f/n)*100

> h

intervalos

(99,116] (116,133] (133,150] (150,167] (167,184] (184,201]

8 12 16 20 20 24

> F=cumsum(f)

> F

(99,116] (116,133] (133,150] (150,167] (167,184] (184,201]

2 5 9 14 19 25

> H=cumsum(h)

> H

(99,116] (116,133] (133,150] (150,167] (167,184] (184,201]

8 20 36 56 76 100

> cbind(f,h,F,H)

f h F H

(99,116] 2 8 2 8

(116,133] 3 12 5 20

(133,150] 4 16 9 36

(150,167] 5 20 14 56

(167,184] 5 20 19 76

(184,201] 6 24 25 100

> LimSup=c(116,133,150,167,184,201)

> LimInf=c(99,116,133,150,167,184)

> Marca=(LimSup+LimInf)/2

> Marca

[1] 107.5 124.5 141.5 158.5 175.5 192.5

> cbind(f,Marca,h,F,H)

F Marca h F H

(99,116] 2 107.5 8 2 8

(116,133] 3 124.5 12 5 20

(133,150] 4 141.5 16 9 36

(150,167] 5 158.5 20 14 56

(167,184] 5 175.5 20 19 76

(184,201] 6 192.5 24 25 100

> x=Marca*f

> x

intervalos

(99,116] (116,133] (133,150] (150,167] (167,184] (184,201]

215.0 373.5 566.0 792.5 877.5 1155.0

> Media=sum(x)/n

> Media

[1] 159.18

> hist(datos, col = "green", border = 1, main = "Ahorros Voluntarios", xlab = "Ahorro" , ylab = "frecuencia")

> plot(LimInf, F) lines(c(min(LimInf), LimInf,max(LimSup)),c(0,F,0),type="l