Equipo 4 The Freak

library(readr)
datos=(alumnos_inscritos_ene_jun_2018_1_=read_csv("C:/Users/admin/Downloads/alumnos inscritos ene-jun 2018 (1).csv"))

## Parsed with column specification:
## cols(
##   no = col_integer(),
##   semetre = col_integer(),
##   promedio = col_double(),
##   carrera = col_character()
## )

PRACTICA 3: C O E F I C I E N T E S D E V A R I A C I O N

Determinar coeficiente de variación de los datos de los promedios de los alumnos que están inscritos y que cursaron materias el semestre inmediato anterior de las carreras del ITD.

Sistemas

sistemas<-(datos$promedio[which(datos$carrera == "SISTEMAS"& datos$promedio>0)])
sistemas

##   [1] 83.51 87.37 81.57 90.06 85.85 84.00 89.27 84.54 81.59 95.26 94.10
##  [12] 84.82 85.65 87.86 81.29 90.94 83.90 83.27 78.90 89.59 86.90 92.50
##  [23] 84.14 79.74 79.29 83.10 83.38 89.17 79.20 88.71 92.65 94.70 81.52
##  [34] 97.13 77.64 82.75 89.22 82.33 82.30 80.72 80.04 86.03 80.20 85.97
##  [45] 82.72 82.33 94.50 81.82 87.02 94.61 86.15 81.60 87.94 87.10 82.14
##  [56] 84.40 78.50 85.22 84.42 84.13 89.50 89.39 92.32 81.80 87.00 79.94
##  [67] 77.31 91.46 84.92 93.25 85.17 88.10 84.32 87.30 73.11 86.11 83.14
##  [78] 79.11 78.67 80.00 86.19 93.62 90.58 83.11 82.34 86.93 87.36 81.60
##  [89] 87.00 81.40 85.68 82.27 89.61 90.88 83.81 83.53 83.46 81.04 83.53
## [100] 82.56 91.11 80.14 86.23 79.68 81.19 83.83 84.50 79.46 81.59 84.11
## [111] 84.15 86.62 84.72 85.13 85.79 84.50 84.73 89.69 89.85 83.24 80.86
## [122] 79.32 83.73 93.39 84.44 84.54 91.82 90.87 85.81 85.17 84.58 79.21
## [133] 88.83 88.71 80.88 81.46 84.15 93.42 83.81 80.93 82.12 89.74 83.69
## [144] 83.43 82.50 89.00 93.18 90.31 85.95 83.97 90.94 91.94 81.56 79.70
## [155] 94.22 84.15 87.41 81.50 82.28 90.38 91.19 82.92 79.14 77.81 84.49
## [166] 76.50 85.87 86.91 79.64 85.19 85.70 87.61 80.52 78.25 80.43 80.87
## [177] 81.85 84.72 82.66 84.44 82.56 85.49 91.44 87.98 93.89 89.43 90.87
## [188] 81.03 82.33 84.63 82.16 87.73 86.66 91.39 84.89 86.64 83.38 89.93
## [199] 81.81 83.56 82.07 91.44 93.20 83.33 95.49 82.43 74.79 84.28 83.87
## [210] 83.16 87.00 84.43 82.92 87.40 86.33 86.61 81.54 77.42 87.22 86.28
## [221] 79.06 79.05 85.32 85.91 90.18 85.94 86.48 82.45 83.59 85.05 75.98
## [232] 82.69 84.13 77.88 83.79 81.82 81.11 89.03 91.83 83.41 92.02 84.37
## [243] 92.30 87.53 80.05 94.89 80.36 91.11 82.03 78.39 83.91 86.87 87.90
## [254] 84.04 82.85 91.83 89.53 85.77 87.30 80.26 82.55 93.50 85.70 79.83
## [265] 80.49 86.35 80.50 83.67 86.00 84.62 85.90 86.32 91.29 84.96 84.28
## [276] 82.21 77.54 79.05 87.50 79.61 81.54 89.28 90.78 85.35 81.38 77.67
## [287] 80.50 84.50 80.80 88.33 79.20 83.67 88.33 90.83 88.25 79.44 85.20
## [298] 81.11 86.67 94.83 82.60 76.67 89.83 77.67 83.20 92.00 84.09 89.50
## [309] 92.50 89.67 89.00 82.20 86.33 82.50 77.50 81.11 84.80 88.64 93.33
## [320] 86.09 80.30 90.67 81.50 81.78 93.00 86.82 81.33 78.40 85.80 87.40
## [331] 85.33 80.60 78.00 81.00 87.00 83.22 87.80 91.67 81.22 80.09 79.75
## [342] 82.17 79.60 83.82 78.56 83.33 87.36 89.00 87.00 87.83 84.09 85.67
## [353] 86.00 84.67 83.64 80.09 85.50 82.60 83.00 89.67 81.90 82.33 83.42
## [364] 86.33 84.73 84.10 88.50 81.20 77.00 82.25 77.00 82.80 80.50 92.50
## [375] 79.83 92.00 82.00 82.33 82.80 81.80 85.11 86.20 73.50 78.20 81.90
## [386] 82.25 84.60 85.25 80.45 82.09 88.33 87.00 81.00 85.33 88.20 81.33
## [397] 85.75 80.50 77.88 78.38 80.67 77.60 88.00 87.20 82.11 82.33 80.00
## [408] 83.00 88.50 84.00 85.10

###Media
sis<-mean(sistemas)
sis

## [1] 84.73406

###Varianza
var(sistemas)

## [1] 18.9757

###Desviación estandar
sd(sistemas)

## [1] 4.356111

###Coeficiente de variación
sist<-(sd(sistemas)/mean(sistemas))*100
sist

## [1] 5.140921

Electrica

electrica<-(datos$promedio[which(datos$carrera == "ELECTRICA" & datos$promedio>0)])
electrica

##   [1] 84.84 83.19 89.59 83.94 80.56 81.16 82.09 78.88 87.84 89.62 84.69
##  [12] 80.52 83.61 82.28 83.88 80.88 78.97 82.63 83.27 84.06 82.48 90.26
##  [23] 91.17 81.59 81.61 85.83 80.92 84.65 81.62 86.85 85.15 88.25 86.00
##  [34] 83.07 84.44 84.70 89.44 84.70 84.00 82.35 91.26 83.18 90.70 80.94
##  [45] 82.60 81.81 82.70 85.33 81.13 83.25 89.02 86.67 83.21 83.93 82.82
##  [56] 82.52 83.78 90.10 89.57 94.44 82.38 82.83 86.29 84.04 83.71 87.50
##  [67] 80.33 80.92 82.45 85.06 80.71 82.14 80.05 83.07 81.13 82.54 82.95
##  [78] 80.07 88.81 86.83 79.50 85.76 82.08 89.13 79.35 90.83 84.14 80.88
##  [89] 83.67 90.28 81.27 86.17 77.61 83.81 79.71 90.72 90.23 85.57 86.81
## [100] 84.09 84.83 78.75 83.33 85.12 82.48 88.37 82.81 88.81 88.16 84.65
## [111] 89.48 85.29 81.44 80.61 88.96 87.93 90.11 85.46 82.86 83.15 80.47
## [122] 93.23 85.02 89.00 91.47 91.95 91.16 83.19 80.69 86.84 79.92 85.32
## [133] 81.77 80.59 86.35 81.00 88.07 82.72 84.06 82.43 80.65 85.16 88.14
## [144] 82.89 81.75 81.23 82.45 81.73 80.47 84.59 86.90 85.46 81.39 84.16
## [155] 81.49 83.33 93.33 90.37 82.54 82.70 81.42 83.25 85.63 82.25 86.22
## [166] 85.22 84.71 83.75 85.14 82.90 86.28 80.55 79.59 83.31 81.82 82.76
## [177] 86.17 88.09 81.96 88.78 81.31 82.82 81.94 88.22 82.00 83.33 80.62
## [188] 80.86 80.77 84.71 82.13 82.68 86.50 91.00 88.75 85.38 88.33 90.83
## [199] 88.83 86.67 87.00 83.50 89.00 86.00 85.67 83.17 87.25 89.75 83.00
## [210] 85.60 88.00 84.67 87.25 92.83 87.50 84.67 88.33 86.67 87.80 82.33
## [221] 89.00 86.89 94.17 87.00 85.83 85.27 83.00 86.67 85.00 78.67 85.83
## [232] 90.17 86.22 87.50 86.50 85.50

###Media
ele<-mean(electrica)
ele

## [1] 84.78487

###Varianza
var(electrica)

## [1] 11.64047

###Desviación estandar
sd(electrica)

## [1] 3.411814

###Coeficiente de variación
elec<-(sd(electrica)/mean(electrica))*100
elec

## [1] 4.024083

Bioquímica

bioquimica<-(datos$promedio[which(datos$carrera == "BIOQUIMICA"& datos$promedio>0)])
bioquimica

##   [1] 78.95 77.68 83.82 87.18 78.84 84.94 95.27 77.47 80.65 82.77 78.90
##  [12] 90.37 83.53 85.08 85.83 84.25 86.71 86.92 90.50 89.61 81.40 81.94
##  [23] 82.64 86.56 84.47 85.68 94.27 80.80 85.04 88.61 84.41 95.81 92.10
##  [34] 79.52 82.29 80.77 95.07 83.39 85.63 79.75 87.16 78.82 81.00 83.03
##  [45] 79.30 89.40 81.43 90.30 80.35 83.89 84.37 82.81 84.58 86.10 85.38
##  [56] 81.70 82.51 82.40 82.25 83.83 91.58 87.50 80.76 83.93 82.25 84.39
##  [67] 84.30 85.34 84.27 82.83 84.36 92.70 83.65 83.54 82.24 78.85 84.36
##  [78] 84.71 82.81 88.92 92.94 76.13 77.90 79.61 79.00 80.14 74.29 87.06
##  [89] 89.30 86.90 89.92 80.74 85.79 81.55 88.46 85.83 76.72 86.06 82.74
## [100] 86.97 87.18 88.49 80.08 88.28 76.45 79.33 83.67 79.58 81.07 92.17
## [111] 91.40 80.44 83.13 79.83 82.90 87.50 84.34 79.68 80.67 90.78 91.27
## [122] 86.06 79.70 82.00 84.55 82.30 84.04 82.86 83.20 92.53 77.88 80.19
## [133] 90.12 82.21 79.77 83.20 80.47 85.93 81.64 89.12 78.08 84.26 95.37
## [144] 81.54 85.42 84.97 80.92 77.41 80.74 81.63 84.33 92.33 81.03 83.08
## [155] 77.80 85.34 79.00 80.95 86.38 90.14 81.29 78.95 81.43 85.73 79.06
## [166] 78.12 79.27 81.74 82.43 80.83 90.17 82.00 86.54 77.85 89.45 81.04
## [177] 83.07 78.45 81.56 84.33 84.04 90.03 78.22 89.60 80.09 87.34 79.71
## [188] 79.06 86.74 84.27 83.76 82.79 82.60 84.06 79.22 92.75 81.40 81.27
## [199] 86.00 86.65 87.58 82.50 77.06 91.18 79.00 90.24 88.33 81.91 88.33
## [210] 81.04 83.81 83.61 85.98 80.38 83.35 85.86 82.43 84.36 80.87 77.18
## [221] 84.83 83.51 80.69 97.67 92.81 91.25 81.00 81.95 85.09 82.50 92.19
## [232] 78.82 91.56 89.53 81.86 84.00 82.84 80.14 78.39 79.93 81.17 89.50
## [243] 81.75 83.60 88.17 87.75 85.83 91.67 87.50 84.20 83.80 83.90 90.25
## [254] 83.67 81.36 77.57 88.40 84.83 90.00 77.50 84.33 88.00 83.75 83.00
## [265] 94.67 87.00 83.17 79.67 90.00 92.17 79.86 93.17 84.67 84.00 85.40
## [276] 88.20 89.00 88.33 86.80 94.00 93.17 84.00 91.20 79.75 85.00 79.00
## [287] 85.40 93.33 88.33 89.17 83.80 81.00 82.33 81.40 79.50 80.00 84.83
## [298] 83.40 79.40 82.50 90.83 88.17 88.00 89.42 84.40 81.20 83.00 81.80
## [309] 82.20 83.08 87.83 86.33 85.33 83.91 83.50 89.00 88.18 81.67 90.50
## [320] 81.00 85.33 89.50 85.25 95.17

###Media
bio<-mean(bioquimica)
bio

## [1] 84.41139

###Varianza
var(bioquimica)

## [1] 19.23151

###Desviación estandar
sd(bioquimica)

## [1] 4.385375

####Coeficiente de variación
qui<-(sd(bioquimica)/mean(bioquimica))*100
qui

## [1] 5.195241

Mecatronica

mecatronica<-(datos$promedio[which(datos$carrera == "MECATRONICA" & datos$promedio>0)])
mecatronica

##   [1] 79.38 77.55 86.42 82.39 80.33 91.60 88.75 81.15 91.57 76.00 81.77
##  [12] 85.39 85.22 88.12 89.10 81.23 85.93 81.95 75.83 79.50 83.36 89.83
##  [23] 91.58 89.08 76.50 84.52 88.76 87.38 81.70 79.65 80.65 98.17 98.59
##  [34] 87.00 85.19 84.41 84.17 81.76 85.82 93.11 79.06 86.09 91.48 80.44
##  [45] 79.75 93.24 85.23 83.08 81.70 81.24 82.82 83.72 91.72 77.38 82.07
##  [56] 81.50 81.10 84.55 80.63 86.47 86.17 78.38 80.25 79.10 85.91 82.39
##  [67] 77.89 77.29 89.59 83.97 85.59 89.17 81.33 84.14 79.92 88.15 80.83
##  [78] 86.96 82.97 81.42 85.67 84.89 86.06 85.07 79.00 87.50 75.74 88.33
##  [89] 81.63 84.92 76.75 91.60 76.96 80.12 79.41 82.15 83.50 77.22 86.72
## [100] 80.53 81.82 81.09 81.00 84.46 78.14 77.89 83.85 79.67 81.39 92.10
## [111] 86.46 83.90 81.96 82.30 83.49 83.36 81.37 86.28 84.03 80.11 81.94
## [122] 82.53 80.76 84.17 86.14 89.52 86.02 82.95 83.94 84.00 79.54 82.36
## [133] 87.90 82.48 82.08 82.19 88.85 82.14 84.92 81.92 85.35 78.63 86.32
## [144] 79.53 86.90 81.63 82.68 94.90 85.38 85.30 88.90 80.04 91.10 82.58
## [155] 85.04 87.72 91.63 87.17 83.19 81.98 89.39 80.47 79.90 82.88 81.44
## [166] 90.68 82.75 80.34 78.07 87.90 81.94 78.60 83.85 82.79 80.48 78.38
## [177] 81.34 86.76 90.69 77.89 80.73 81.97 86.89 82.36 87.41 84.63 81.00
## [188] 92.11 81.07 82.47 82.09 91.59 90.49 84.00 80.41 80.19 84.91 81.52
## [199] 83.42 80.15 81.57 82.89 85.63 85.64 80.74 83.82 85.61 80.54 91.88
## [210] 78.53 88.52 84.56 82.74 82.55 81.43 89.48 79.94 89.19 80.70 86.83
## [221] 78.25 80.35 87.83 81.11 76.11 83.71 89.47 86.47 84.06 79.50 82.88
## [232] 95.50 81.86 79.90 87.39 80.27 77.80 89.36 86.04 87.17 83.38 84.97
## [243] 84.62 84.15 86.06 83.60 83.25 80.40 78.83 75.76 77.43 85.00 81.70
## [254] 78.10 87.89 85.00 86.56 81.02 82.47 90.22 77.11 82.52 95.75 84.15
## [265] 87.11 84.21 83.79 83.00 82.39 81.59 83.41 82.70 80.88 82.79 78.93
## [276] 81.19 85.86 92.68 81.96 78.17 83.00 88.52 81.31 80.43 78.54 83.31
## [287] 81.00 81.41 81.74 78.76 86.36 92.00 82.61 86.87 78.88 84.61 81.76
## [298] 79.13 87.02 81.47 86.29 87.67 79.58 81.97 80.80 81.60 86.69 80.68
## [309] 86.15 79.57 80.74 87.63 80.85 84.63 83.50 78.39 82.13 84.34 87.79
## [320] 78.45 81.21 80.13 88.47 81.05 96.00 79.51 92.17 79.54 80.08 85.43
## [331] 85.50 80.52 81.94 78.50 78.40 78.00 77.21 80.78 83.64 79.92 81.43
## [342] 94.14 80.20 79.33 87.15 80.92 80.56 81.00 78.77 81.86 76.56 83.67
## [353] 87.34 82.20 80.35 88.42 88.83 85.67 84.67 83.67 83.71 85.83 81.60
## [364] 86.92 82.20 83.60 90.00 92.20 85.00 88.00 87.33 81.40 80.88 93.17
## [375] 90.67 82.40 81.50 88.00 84.00 86.75 86.67 83.42 81.43 81.00 81.00
## [386] 80.10 84.17 88.17 87.33 84.83 82.09 86.17 88.75 85.80 82.17 84.00
## [397] 81.50 84.67 88.00 82.33 89.67 89.50 86.00 83.44 84.80 82.73 87.50
## [408] 89.67 85.83 83.50 80.25 94.67 83.17 89.50 82.40 83.40 83.17 91.17
## [419] 86.00 85.00 85.92 97.33 80.33 84.83 81.60 89.33 81.00 83.50 88.17
## [430] 86.50 86.75 83.73 88.33 92.00 81.50 89.33 79.56 84.17 82.25 84.83
## [441] 78.80 80.00 87.33 86.00 82.70 81.86 87.17 86.40 79.18 84.33 78.50
## [452] 92.17 83.67 88.18 84.33 85.20 86.33 86.92 92.83 94.60 87.00 82.64
## [463] 89.00 90.50 84.27 91.33 82.80

###Media
meca<-mean(mecatronica)
meca

## [1] 84.0006

###Varianza
var(mecatronica)

## [1] 17.35334

###Desviación estandar
sd(mecatronica)

## [1] 4.165734

###Coeficiente de variación
mec<-(sd(mecatronica)/mean(mecatronica))*100
mec

## [1] 4.959172

Data frame

###Medias
df<-data.frame(sis,ele,meca,bio)
df

##        sis      ele    meca      bio
## 1 84.73406 84.78487 84.0006 84.41139

barplot(as.matrix(df), col="red" ,main="Medias")

###Coeficientes
dr<-data.frame(sist,elec,mec,qui)
dr

##       sist     elec      mec      qui
## 1 5.140921 4.024083 4.959172 5.195241

barplot(as.matrix(dr), col ="yellow",main="Coeficientes")

### Como podemos observar en la grafica que la carrera de SISTEMAS tiene mayor variabilidad de datos, le sigue MECATRONICA, luego QUIMICA, y como la menor variabilidad de datos esta ELECTRICA.