UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD CIENCIAS ECONÓMICAS

INGENIERIA EN ESTADISTICA

PROGRAMACIÓN

Sello UCE
Sello UCE

Integrantes

  • Hinojosa Pedro

  • Mendez Alisson

  • Nenger Jhostin

  • Piedra Natasha

  • Yar Nicole

TALLER-APE 5: Ejercicio con Vectores en R

Ejercicio N°1

Calculo los valores númericos aproximados de

\[ \frac{0.3*0.15}{0.3*0.15+0.2*0.8+0.5*0.12}, \frac{5^6}{6!} * e^-5,\ y\frac{20}{7} 0.4^70.6^1^3\]

Sol: 0.1698113, 0.1462228 y 0.1658823

x<-((0.3*0.15)/(0.3*0.15+0.2*0.8+0.5*0.12))
cat("La solución es:", x )
## La solución es: 0.1698113
y<-((5^6/factorial(6))*exp(1)^-5)
cat("La solución es: ", y )
## La solución es:  0.1462228
z1<-(factorial(20))/(factorial(7)*factorial(20-7))
z2<-(0.4**7*0.6**13)
z<-(z1*z2)
cat("La solución es: ", z )
## La solución es:  0.1658823

EJERCICIO 2

Realiza las siguientes sumas:

1+2+3+⋯+1000 1+2+3+⋯+1000

v1 <- 1:1000

v2 <- 1:1000

v3 <- c(sum(v1),sum(v2))
v3
## [1] 500500 500500

1+2+4+8+16+⋯+1024 1+2+4+8+16+⋯+1024

a <- 1
a1 <- 0

while (a<=1024) {
  a1 <- a1+a
  a <- a*2
}

tot <- c(a1,a1)
tot
## [1] 2047 2047

EJERCICIO 3: El vector alumnos representa los nombres de una serie de alumnos.

crear el vector alumnos con 20 nombres. Visualízalo en pantalla. Cuántas componentes tiene el vector alumnos? ¿En qué posiciones del vector alumnos está la letra ‘Victor’?

Alumnos<-c("Arianna","Marco","Juan","Carolina","Andres",
           "Maria","Carolina","Pedro","Mirian","Zulema",
           "Erick","Victor","Milena","David","Frixon",
           "Carlos","Byron","Irma","Aldemar","Luis")

## Visualízalo en pantalla

Alumnos
##  [1] "Arianna"  "Marco"    "Juan"     "Carolina" "Andres"   "Maria"   
##  [7] "Carolina" "Pedro"    "Mirian"   "Zulema"   "Erick"    "Victor"  
## [13] "Milena"   "David"    "Frixon"   "Carlos"   "Byron"    "Irma"    
## [19] "Aldemar"  "Luis"
## Cuántas componentes tiene el vector alumnos?

length(Alumnos)
## [1] 20
## ¿En qué posiciones del vector alumnos está la letra ‘Victor’?

posicion<-which(Alumnos=="Victor")
posicion
## [1] 12
(Alumnos=="Irma")
##  [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [13] FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE

EJERCICIO 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.

Visualízalo en pantalla
¿Cuántas componentes tiene?
¿Cuánto suman todas las notas?
¿Cuál es la media aritmética de todas las notas?
¿En qué posiciones están las notas mayores de 7?
Visualiza las notas ordenadas de menor a mayor
Visualiza las notas ordenadas de mayor a menor
¿Cuál ha sido la nota máxima?
¿En qué posición del vector está esa nota máxima?



```r
notas<-c(10,1,2,3,4,5,6,7,8,9,
         10,9,3,5,7,8,10,3,4,9)

notas
##  [1] 10  1  2  3  4  5  6  7  8  9 10  9  3  5  7  8 10  3  4  9
length(notas)
## [1] 20
sum(notas)
## [1] 123
mean(notas)
## [1] 6.15
which(notas>7)
## [1]  1  9 10 11 12 16 17 20
sort(notas)
##  [1]  1  2  3  3  3  4  4  5  5  6  7  7  8  8  9  9  9 10 10 10
sort(notas,decreasing = T)
##  [1] 10 10 10  9  9  9  8  8  7  7  6  5  5  4  4  3  3  3  2  1
max(notas)
## [1] 10
which(notas==10)
## [1]  1 11 17

EJERCICIO 5: A partir de los vectores alumnos y notas definidos:

#1. Visualiza las notas de los 10 primeros alumnos

head(notas,n=10)
##  [1] 10  1  2  3  4  5  6  7  8  9

#2. Suma las notas de los 10 primeros alumnos del vector

sum(head(notas,n=10))
## [1] 55

#3. ¿Cuántos alumnos hay en total?

length(Alumnos)
## [1] 20

#4. Suma las notas de los alumnos

sum(notas)
## [1] 123

#5. ¿Cuántos alumnos han aprobado?

a<-length(which(notas>=7))
a
## [1] 10

#6. ¿Qué porcentaje de alumnos han aprobado?

porcentaje<-(a/20)
porcentaje
## [1] 0.5

#7. ¿Cuáles han sido las notas máxima y mínima?

min(notas)
## [1] 1
max(notas)
## [1] 10
posmax<-which.max(notas)
posmax
## [1] 1
posmin<-which.min(notas)
posmin
## [1] 2
alumax<-Alumnos[posmax]
alumin<-Alumnos[posmin]
cat("El alumno con la maxima nota es",alumax)
## El alumno con la maxima nota es Arianna
cat("El alumno con la minima nota es",alumin)
## El alumno con la minima nota es Marco

#9. Nota media de alumnos, teniendo en cuenta sólo a los que han aprobado.

median(notas)
## [1] 6.5