Tarea 3 - Axel

Vista previa del material en texto

Universidad Nacional Autónoma de México 
Facultad de Ingeniería 
 
 
 
 
 
 
 
 
 
 
 
 
División de Ciencias básicas 
 
Estadística (1569) 
 
Tarea 3: Calificaciones física 
 
 
 
• Profesor: MC. Amanda L. Pineda Norman 
• Grupo: 09
• Alumno: Sánchez Nazario Axel 
• N. Lista: 43 
 
Semestre 2021-1 
> cal 
 [1] 30 88 96 100 45 38 78 89 68 88 98 90 100 100 68 70 83 
85 68 
[20] 56 68 100 100 68 69 79 98 94 30 46 30 67 78 98 100 86 
69 79 
[39] 52 45 30 86 85 89 94 99 100 45 30 35 89 78 65 60 69 
69 76 
[58] 78 77 89 98 36 76 78 81 80 40 67 58 89 58 99 91 100 
48 68 
[77] 84 67 69 46 79 
> mean(cal) 
[1] 73.44444 
> median(cal) 
[1] 78 
> local({pkg <- select.list(sort(.packages(all.available = 
TRUE)),graphics=TRUE) 
+ if(nchar(pkg)) library(pkg, character.only=TRUE)}) 
> modes(cal) 
 [,1] 
Value 100 
Length 8 
> quantile(cal,c(0.25,0.65,0.87)) 
25% 65% 87% 
 65 85 98 
> 
> max(cal)-min(cal) 
[1] 70 
> var(cal) 
[1] 440.2 
> sd(cal) 
[1] 20.98094 
> 
> local({pkg <- select.list(sort(.packages(all.available = 
TRUE)),graphics=TRUE) 
+ if(nchar(pkg)) library(pkg, character.only=TRUE)}) 
 
Attaching package: ‘moments’ 
 
The following objects are masked from ‘package:modes’: 
 
 kurtosis, skewness 
 
> skewness(cal) 
[1] -0.5976547 
> kurtosis(cal) 
[1] 2.374029 
> 
> cal 
 [1] 30 88 96 100 45 38 78 89 68 88 98 90 100 100 68 70 83 
85 68 
[20] 56 68 100 100 68 69 79 98 94 30 46 30 67 78 98 100 86 
69 79 
[39] 52 45 30 86 85 89 94 99 100 45 30 35 89 78 65 60 69 
69 76 
[58] 78 77 89 98 36 76 78 81 80 40 67 58 89 58 99 91 100 
48 68 
[77] 84 67 69 46 79 
> 
hist(cal,main="Frecuencia",xlab="Calificaciones",ylab="Frecuencia",col="B
lue") 
> agrupados<-hist(cal,plot=F) 
> agrupados 
$breaks 
[1] 30 40 50 60 70 80 90 100 
 
$counts 
[1] 9 6 5 16 12 15 18 
 
$density 
[1] 0.011111111 0.007407407 0.006172840 0.019753086 0.014814815 
0.018518519 
[7] 0.022222222 
 
$mids 
[1] 35 45 55 65 75 85 95 
 
$xname 
[1] "cal" 
 
$equidist 
[1] TRUE 
 
attr(,"class") 
[1] "histogram" 
> LI<-c(30,40,50,60,70,80,90) 
> LS<-LI+10 
> f<-agrupados$counts 
> m<-agrupados$mids 
> fa<-cumsum(f) 
> fr<-f/sum(f) 
> far<-fa/sum(f) 
> mf<-m*f 
> Tabla=data.frame(cbind(LI,LS,f,m,fa,fr,far,mf)) 
> Tabla 
 LI LS f m fa fr far mf 
1 30 40 9 35 9 0.11111111 0.1111111 315 
2 40 50 6 45 15 0.07407407 0.1851852 270 
3 50 60 5 55 20 0.06172840 0.2469136 275 
4 60 70 16 65 36 0.19753086 0.4444444 1040 
5 70 80 12 75 48 0.14814815 0.5925926 900 
6 80 90 15 85 63 0.18518519 0.7777778 1275 
7 90 100 18 95 81 0.22222222 1.0000000 1710 
> View(Tabla) 
> plot(m,f,type="b",main="Polígono de 
frecuencias",xlab="Calificaciones",ylab="Frecuencias") 
> plot(LS,fa,type="b",main="Ojiva",xlab="Calificaciones",ylab="Frecuencia 
acumulada") 
> stem(cal) 
 
 The decimal point is 1 digit(s) to the right of the | 
 
 3 | 00000568 
 4 | 0555668 
 5 | 2688 
 6 | 0577788888899999 
 7 | 066788888999 
 8 | 013455668899999 
 9 | 01446888899 
 10 | 00000000 
 
> boxplot(cal,horizontal=TRUE,main="Diagrama de 
caja",xlab="Calificaciones",ylab="Alumnos",col="red") 
> 
 
●
●
●
●
●
●
●
40 50 60 70 80 90
6
8
10
12
14
16
18
Polígono de frecuencias
Calificaciones
F
re
cu
en
ci
as
●
●
●
●
●
●
●
40 50 60 70 80 90 100
10
20
30
40
50
60
70
80
Ojiva
Calificaciones
F
re
cu
en
ci
a 
ac
um
ul
ad
a
30 40 50 60 70 80 90 100
Diagrama de caja
Calificaciones
A
lu
m
no
s