¡Descarga r commander actividad 1 y más Apuntes en PDF de Estadística solo en Docsity!
1.Carregueu les dades del fitxer Activitat_1. Rdata a R-Commander
load("C:/Users/aules/Downloads/Activitat_1.RData")
2. Realitzeu la taula de freqüències.
a) Es recomana que comenceu llistant les variables de la base de dades activa amb la
instrucció Conjunto de datos activo.
summary(Activitat_1)
Desti Retras Vacants
Granada :15 Min. : 0.430 Min. : 0.
Palma :17 1st Qu.: 6.603 1st Qu.: 6.
Sevilla :24 Median : 9.195 Median : 8.
Valencia:23 Mean : 9.589 Mean : 7.
NA's : 1 3rd Qu.:12.900 3rd Qu.:10.
Max. :19.390 Max. :20.
NA's :
b) Per obtenir la taula de freqüències de Desti seleccioneu l’opció Distribución de
frecuencias,
local({
.Table <- with(Activitat_1, table(Desti))
cat("\ncounts:\n")
print(.Table)
cat("\npercentages:\n")
print(round(100*.Table/sum(.Table), 2))
})
counts:
Desti
Granada Palma Sevilla Valencia 15 17 24 23
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)
table(Activitat_1$Vacants)/sum(table(Activitat_1$Vacants))
- 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.
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.
(14,16] 10 0. (16,18] 3 0.
(18,20] 1 0.
e) Realitzeu de nou la taula de freqüències de Retras amb la instrucció
hist(Activitat_1$Retras, scale="frequency", breaks="Sturges", plot=F)
$breaks
[1] 0 2 4 6 8 10 12 14 16 18 20
$counts
[1] 3 4 7 11 21 10 8 10 3 1
$density
[1] 0.019230769 0.025641026 0.044871795 0.070512821 0.134615385 0.
[8] 0.064102564 0.019230769 0.
$mids
[1] 1 3 5 7 9 11 13 15 17 19
$xname
[1] "Activitat_1$Retras"
$equidist
[1] TRUE
attr(,"class")
[1] "histogram"
**- Recolliu els resultats en forma de taula i compareu-la amb l’anterior
- Realitzeu els següents gràfics seleccionant les respectives opcions al**
menú
a) Diagrama de barres i de sectors de Desti
with(Activitat_1, Barplot(Desti, xlab="Desti", ylab="Frequency"))
GRÁFICO 1: DIAGRAMA DE BARRAS
c) Histograma i diagrama Stem and leaf de Retras
with(Activitat_1, Hist(Retras, scale="frequency", breaks="Sturges", col="darkgray"))
DIAGRAMA 3: HISTOGRAMA
with(Activitat_1, stem.leaf(Retras, na.rm=TRUE))
4 s | 667 1 1. | 9
4. Obteniu el polígon de freqüències de Retras amb les instruccions:
tmp=hist(Activitat_1$Retras, breaks=c(0,2,4,6,8,10,12,14,16,18,20))
lines(c(min(tmp$breaks),tmp$mids,max(tmp$breaks)),c(0,tmp$counts,0),type="l")
DIAGRAMA 4: POLÍGONO
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)
-Calculeu les freqüències absolutes acumulades (pas.N i pas.F)
pas.N=c(cumsum(pas.n))
pas.F= pas.N/sum(pas.n)
- Visualitzeu conjuntament les freqüències simples i acumulades, absolutes i relatives en una única taula
-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) retard.n retard.f retard.N retard.F 3 0.03846154 0 0. (0,2] 4 0.05128205 3 0. (2,4] 7 0.08974359 7 0. (4,6] 11 0.14102564 14 0. (6,8] 21 0.26923077 25 0. (8,10] 10 0.12820513 46 0. (10,12] 8 0.10256410 56 0. (12,14] 10 0.12820513 64 0. (14,16] 3 0.03846154 74 0. (16,18] 1 0.01282051 77 1. (18,20] 3 0.03846154 78 0.
-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)
DIAGRAMA 5: POLÍGONO FRECUENCIAS ABSOLUTAS ACUMULADAS
-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)
DIAGRAMA 6: POLÍGONO FRECUENCIAS RELATIVAS ACUMULADAS
