activitat 1 r commander, Apuntes de Estadística

¡Descarga activitat 1 r commander y más Apuntes en PDF de Estadística solo en Docsity!

Descargado en:

patatabrava .com

ESTADISTICA 1 (UB)

ACTIVIDAD 1

JAVIER, FRANCISCO 17-

Descargado en:

patatabrava .com

ESTADISTICA 1 (UB)

ACTIVIDAD & R COMANDER

VILADOMIU, NURIA 16-

Percentages: Desti Granada Palma Sevilla Valencia 18.99 21.52 30.38 29.

c) Per obtenir la taula de freqüències de Vacants heu d'introduir les següents

instruccions:

table(Activitat_1$Vacants)

0 2 3 4 5 6 7 8 9 10 11 12 18 19 20 5 5 4 1 4 11 9 10 8 10 4 4 1 1 3

table(Activitat_1$Vacants)/sum(table(Activitat_1$Vacants))

0 2 3 4 5 6 7 8 9 10 11 12 18 19 20 0.0625 0.0625 0.0500 0.0125 0.0500 0.1375 0.1125 0.1250 0.1000 0.1250 0. 0.0500 0.0125 0.0125 0.

• Visualitzeu conjuntament les freqüències absolutes i relatives

cbind(table(Activitat_1$Vacants),

• table(Activitat_1$Vacants)/sum(table(Activitat_1$Vacants))) [,1] [,2] 0 5 0. 2 5 0. 3 4 0. 4 1 0. 5 4 0. 6 11 0. 7 9 0. 8 10 0. 9 8 0. 10 10 0. 11 4 0. 12 4 0. 18 1 0. 19 1 0. 20 3 0.

d) Per obtenir la taula de freqüències de Retras les instruccions són:

Activitat_1$T1=cut(Activitat_1$Retras,breaks=c (0,2,4,6,8,10,12,14,16,18,20)) table(Activitat_1$T1)

(0,2] (2,4] (4,6] (6,8] (8,10] (10,12] (12,14] (14,16] (16,18] (18,20] 3 4 7 11 21 10 8 10 3 1

• Canvieu els breaks i el nom de la variable que es crea amb cut

(Activitat_1$T2) i observeu com es modifica la taula de freqüències.

Activitat_1$T2=cut(Activitat_1$Retras, breaks=c(0,3,6,10,14,16,20)) table(Activitat_1$T2) (0,3] (3,6] (6,10] (10,14] (14,16] (16,20] 6 8 32 18 10 4 0

- Calculeu les freqüències relatives amb la instrucció:

table(Activitat_1$T1)/sum(table(Activitat_1$T1))

(0,2] (2,4] (4,6] (6,8] (8,10] (10,12] (12,14] (14,16] (16,18]

(18,20]

• Visualitzeu conjuntament les freqüències absolutes i relatives:

cbind(table(Activitat_1$T1),table(Activitat_1$T1)/sum(table(Activitat_1$T1))) [,1] [,2] (0,2] 3 0. (2,4] 4 0. (4,6] 7 0. (6,8] 11 0. (8,10] 21 0. (10,12] 10 0. (12,14] 8 0.

c) Histograma i diagrama Stem and leaf de Retras

with(Activitat_1, stem.leaf(Retras, na.rm=TRUE))

n: 78 2 0* | 01 6 t | 2222 14 f | 44455555 23 s | 666666677 (23) 0. | 88888888888888899999999 32 1* | 0000111111 22 t | 22233333 14 f | 4444444555 4 s | 667 1 1. | 9

5. Taula de freqüències absolutes i relatives, simples i acumulades

de Vacants

-Calculeu les freqüències absolutes i relatives simples de la variable Vacants

( pas.n i pas.f) amb les següents instruccions:

pas.n = table(Activitat_1$Vacants) pas.f= pas.n/sum(pas.n)

pas.N=c(cumsum(pas.n)) pas.F= pas.N/sum(pas.n) cbind(pas.N, pas.F) pas.N pas.F

6. Polígon de freqüències acumulades de Retras

-Definiu els intervals amb qualsevol de les següents instruccions

breaks=c(0,2,4,6,8,10,12,14,16,18,20)

breaks=seq(0,20, by=2)

breaks

-Calculeu les freqüències absolutes i relatives, retard.n i retard.f

retard.n = table(Activitat_1$T1)

retard.f = table(Activitat_1$T1)/sum(table(Activitat_1$T1))

-Calculeu les freqüències absolutes acumulades retard.N i retard.F

retard.N=c(cumsum(retard.n))

retard.F= retard.N/sum(retard.n)

-Recalculeu les freqüències absolutes acumulades retard.N

retard.N=c(0,cumsum(retard.n))

• Visualitzeu conjuntament les freqüències simples i acumulades, absolutes i

relatives

en una única taula

cbind(retard.n, retard.f, retard.N, retard.F)

breaks=c(0,2,4,6,8,10,12,14,16,18,20) breaks=seq(0,20, by=2) breaks

[1] 0 2 4 6 8 10 12 14 16 18 20

retard.n = table(Activitat_1$T1) retard.f = table(Activitat_1$T1)/sum(table(Activitat_1$T1))

retard.N=c(cumsum(retard.n)) retard.F= retard.N/sum(retard.n) retard.N=c(0,cumsum(retard.n)) cbind(retard.n, retard.f, retard.N, retard.F) retard.n retard.f retard.N retard.F 9 0.11538462 0 0. (0,5] 37 0.47435897 9 0. (5,10] 25 0.32051282 46 0. (10,15] 7 0.08974359 71 1. (15,20] 0 0.00000000 78 1. (20,25] 9 0.11538462 78 0. 1153846

-Realitzeu el polígon de freqüències absolutes acumulades

plot(breaks, retard.N, main="Polígon de freqüències acumulades",

xlab="Retard",

ylab="Freqüències absolutes acumulades")

lines(breaks, retard.N)

-Realitzeu el polígon de freqüències relatives acumulades

retard.F=c(0,cumsum(retard.f))

plot(breaks, retard.F, main="Polígon de freqüències acumulades",

xlab="Retard",

ylab="Freqüències relatives acumulades")

lines(breaks, retard.F)