TALLER-APE 5: Ejercicio con Vectores en R
GRUPO 6
2023-12-01
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD CIENCIAS ECONÓMICAS
CARRERA DE ESTADÍSTICA
INTEGRANTES:
- Diana Farinango
- Katty Guailla
- Daibeth Manguay
- Nicole Morocho
TALLER-APE 5: Ejercicio con Vectores en R
EJERCICIO 1
CALCULA LOS VALORES NUMERICOS APROXIMADOS DE: 0.30.15 / 0.30.15 + 0.20.8 + 0.50.12
SOL:0.1698113
a<- ((0.3*0.15) )/ ((0.3*0.15)+(0.2*0.8)+(0.5*0.12))
cat("El resultado es:", a)## El resultado es: 0.1698113EJERCICIO 1.2
CALCULA LOS VALORES NUMERICOS APROXIMADOS DE: (5^6/6!) e^-5
SOL:1462228
b<- 5^6/ factorial(6) * exp(1)^-5
cat("El resultado es:", b)## El resultado es: 0.1462228EJERCICIO 1.3.
CALCULA LOS VALORES NUMERICOS APROXIMADOS DE: (20/7) 0.4^7 0.6^13
SOL: 0.1658823
a<-(factorial(20))/(factorial(7)*factorial(20-7))
b<-(0.4^7*0.6^13)
c<-(a*b)
cat("El resultado final:", c) ## El resultado final: 0.1658823EJERCICIO 2
REALIZAR LAS SIGUENTES SUMAS: 1+2+3+⋯+10001+2+3+⋯+1000
SOL:500500 500500
d<-c(1:1000)
total<-sum(d)
total1<-sum(d)
cat("El resultado de la suma es:",total,total1)## El resultado de la suma es: 500500 500500REALIZAR LAS SIGUENTES SUMAS:1+2+4+8+16+⋯+10241+2+4+8+16+⋯+1024
SOL: 2047 2047
e<-c(0:10)
e1<-c(2^e)
total<-sum(e1)
cat("El resultado es:", total,total)## El resultado es: 2047 2047EJERCICIO 3
El vector alumnos representa los nombres de una serie de alumnos.
Crear un vector llamado alumnos con 20 nombres
alumnos <- c("Maria", "Juan","Ana", "Julian","Sofía", "Miguel", "Lucía",
"Isabel", "Fernando", "Elena","Anddy", "Carlos", "Dario","Natalia",
"Paola", "Andres","Kevin","Jhon","David","Alejandra")1.-Visualízalo en pantalla el vector alumnos
alumnos## [1] "Maria" "Juan" "Ana" "Julian" "Sofía" "Miguel"
## [7] "Lucía" "Isabel" "Fernando" "Elena" "Anddy" "Carlos"
## [13] "Dario" "Natalia" "Paola" "Andres" "Kevin" "Jhon"
## [19] "David" "Alejandra"2.-¿Cuántas componentes tiene el vector alumnos?
Utilizamos la función length() para visualizar cuantos componenstes tiene el vector alumnos
length(alumnos)## [1] 203.-¿En qué posiciones del vector alumnos está la letra ‘A’?
Utilizamos la función grep() buscar los nombres que empiezen con A y su posición
grep("A",alumnos)## [1] 3 11 16 20EJERCICIO 4:
El vector notas representa la nota de un examen, de los mismos alumnos cuyo lista se ha guardado en el vector alumnos y en el mismo orden.
Creamos el vector llamado notas
notas <- c(20,19,7,11,15,10,11,19,17,10,5,15.6,9, 14, 15, 16, 13, 18, 7, 19)1.-Visualízalo en pantalla el vector notas
notas ## [1] 20.0 19.0 7.0 11.0 15.0 10.0 11.0 19.0 17.0 10.0 5.0 15.6 9.0 14.0 15.0
## [16] 16.0 13.0 18.0 7.0 19.02.-¿Cuántas componentes tiene?
Se utiliza la función length() para visualzar los componenetes que tiene el vector
length(notas)## [1] 203.-¿Cuánto suman todas las notas?
Se utliza la funcion sum() para visualizar la suma total de las notas
sum(notas)## [1] 270.64.-¿Cuál es la media aritmética de todas las notas?
Se utiliza la función mean() para sacar la media aritmética
mean(notas )## [1] 13.535.-¿En qué posiciones están las notas mayores de 7?
Para visualizar la posición de una nota se utiliza la función which() y dentro el dato que se va a buscar
which(notas>7)## [1] 1 2 4 5 6 7 8 9 10 12 13 14 15 16 17 18 206.-Visualiza las notas ordenadas de menor a mayor
Para ordenar dato de forma ascendente se utiliza la función sort().
sort(notas)## [1] 5.0 7.0 7.0 9.0 10.0 10.0 11.0 11.0 13.0 14.0 15.0 15.0 15.6 16.0 17.0
## [16] 18.0 19.0 19.0 19.0 20.07.-Visualiza las notas ordenadas de mayor a menor
Para datos de forma descendente se utiliza la función sort( ,decreasing=TRUE).
sort(notas, decreasing = TRUE)## [1] 20.0 19.0 19.0 19.0 18.0 17.0 16.0 15.6 15.0 15.0 14.0 13.0 11.0 11.0 10.0
## [16] 10.0 9.0 7.0 7.0 5.08.-¿Cuál ha sido la nota máxima?
Se utiliza la funcion max() para visulalizar la nota máxima.
max(notas)## [1] 209.-¿En qué posición del vector está esa nota máxima?
Se utiliza la which.max() para visulalizar posición de la nota máxima.
which.max(notas)## [1] 1##EJERCICIO 5:
A partir de los vectores alumnos y notas definidos:
Creamos dos vectores llamados alumnos y notas
alumnos <- c("Maria", "Juan","Ana", "Julian","Sofía", "Miguel", "Lucía",
"Isabel", "Fernando", "Elena","Anddy", "Carlos", "Dario","Natalia",
"Paola", "Andres","Kevin","Jhon","David","Alejandra")notas <- c(20,19,7,11,15,10,11,19,17,10,5,15.6,9, 14, 15, 16, 13, 18, 7, 19)Llamamos a los dos vectores para vizuarlos en la pantalla
alumnos ## [1] "Maria" "Juan" "Ana" "Julian" "Sofía" "Miguel"
## [7] "Lucía" "Isabel" "Fernando" "Elena" "Anddy" "Carlos"
## [13] "Dario" "Natalia" "Paola" "Andres" "Kevin" "Jhon"
## [19] "David" "Alejandra"notas## [1] 20.0 19.0 7.0 11.0 15.0 10.0 11.0 19.0 17.0 10.0 5.0 15.6 9.0 14.0 15.0
## [16] 16.0 13.0 18.0 7.0 19.01.-Visualiza las notas de los 10 primeros alumnos
notas[1:10]## [1] 20 19 7 11 15 10 11 19 17 102.-Suma las notas de los 10 primeros alumnos del vector
sum(notas[1:10])## [1] 1393.-¿Cuántos alumnos hay en total?
Se utiliza la función lengthpara visualzar los componenetes que tiene el vector.
total_alum<-length(alumnos)
total_alum## [1] 204.-Suma las notas de los alumnos
Se utliza la función sum() para visualizar la suma total de las notas.
sum(notas)## [1] 270.65.-¿Cuántos alumnos han aprobado?
Estas dos función length(which()) nos permiten ver cuantos alumnos son aprobados.
aprobados<-length(which(notas >= 15))
aprobados## [1] 106.-¿Qué porcentaje de alumnos han aprobado?
porc_aprob <- (aprobados/total_alum)*100
porc_aprob## [1] 507.-¿Cuáles han sido las notas máxima y mínima?
Para visulizar las notas máxima y mínima utilizamos la función max() y min().
Nota máxima
max(notas)## [1] 20Nota mínima
min(notas)## [1] 58.-¿De qué alumnos son la máxima y mínima notas?
Se utiliza la which.max() para visulalizar posición de la nota máxima
Se utiliza la which.min() para visulalizar posición de la nota minima
alumnos[which.max(notas)]## [1] "Maria"alumnos[which.min(notas)]## [1] "Anddy"9.-Nota media de alumnos, teniendo en cuenta sólo a los que han aprobado.
Se utiliza la función mean() para calcular la media
mean(notas[notas >= 15])## [1] 17.36