TALLER-APE 5: Ejercicio con Vectores en R

UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÓMICAS

INGENIERIA EN ESTADÍSTICA

GRUPO 2

APLICANDO LOS CONOCIMIENTOS DE RSTUDIO

En este documento se presentan los ejercicios resuletos del taller #5 haciendo uso de rmarkdown

AUTORES

• Aimacaña Génesis
• Guamán Cristhian
• Mosquera Israel
• Sampedro Jonathan
• Serrano Mayra

COLABORACIÓN

• Profesor: Francisco Valverde (PhD en informática)

EJERCICIOS 1

- EJERCICIO

• Escribe un programa que solicite los catetos de un triángulorectángulo y muestre su hipotenusa.

$$

(0,030,15)/0,030,15+0,20,8+0,50,12 , (5^6/6!)e-5 , (20/7)0,4^70,6^13

$$

#Calcula los valores num?ricos aproximados de
a<- 0.3*0.15
a

## [1] 0.045

b<-0.3*0.15+0.2*0.8+0.5*0.12
b

## [1] 0.265

c<-a/b
c

## [1] 0.1698113

d<-5^6
d

## [1] 15625

e<-factorial(6)
e

## [1] 720

f<-exp(-5)
f

## [1] 0.006737947

g<-(d/e)*f
g

## [1] 0.1462228

h<-factorial(20)/(factorial(7)*factorial(20-7))
h

## [1] 77520

i<-(2/5)^7*(3/5)^13 
i

## [1] 2.139864e-06

j<-h*i
j

## [1] 0.1658823

v<-c(c,g,j)
v

## [1] 0.1698113 0.1462228 0.1658823

- EJERCICIO 2

• Realiza las siguientes sumas:

$$ 1+2+3+⋯+10001+2+3+⋯+1000 Sol.: 50050050050

1+2+4+8+16+⋯+10241+2+4+8+16+⋯+1024 Sol.: 20472047 $$

### PRIMER EJERCICIO
s<-1:1000
totals<-sum(s)
totals2<-sum(s)
cat(totals,totals2)

## 500500 500500

#SEGUNDO EJERCICIO
z<-c(0:10)
z1<-c(2^z)
total<-sum(z1)
cat(total,total)

## 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 ‘A’?

####                      EJERCICIO 3                 ####
#El vector alumnos representa los nombres de una serie de alumnos.
# crear el vector alumnos  con 20 nombres
alumnos1<-c("Alex","Juan","Elsa","Karen","Patricio","Mateo","Daniel","Luis","Maria",
            "Jennifer","Mario","Daniela","Yolanda","A","Mishell","Diego","Jose",
            "Mercedes","Naomi","Marilu")
# ¿Cuántas componentes tiene el vector alumnos?
is.vector(alumnos1)

## [1] TRUE

length(alumnos1)

## [1] 20

# ¿En qué posiciones del vector alumnos está la letra ‘A’?
alumnos1["A"]

## [1] NA

alumnos1[length(alumnos1)]

## [1] "Marilu"

which( alumnos1== "A" )

## [1] 14

#
alumnos1

##  [1] "Alex"     "Juan"     "Elsa"     "Karen"    "Patricio" "Mateo"   
##  [7] "Daniel"   "Luis"     "Maria"    "Jennifer" "Mario"    "Daniela" 
## [13] "Yolanda"  "A"        "Mishell"  "Diego"    "Jose"     "Mercedes"
## [19] "Naomi"    "Marilu"

length(alumnos1)

## [1] 20

posicion<-which(alumnos1=="A")
posicion

## [1] 14

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

crear el vector notas

#1. VISUALIZALO EN LA PANTALLA
notas<-c(6,10,9,7,5,4,6,9,8,5,6,7,4,8,9,5,10,5,8,7)
notas

##  [1]  6 10  9  7  5  4  6  9  8  5  6  7  4  8  9  5 10  5  8  7

#2. CUANTOS COMPONENTES TIENE EL VECTOR 
length(notas)

## [1] 20

#3. CUANTO SUMAN TOMAS LAS NOTAS
sum(notas)

## [1] 138

#4.CUAL ES LA MEDIA ARITMETICA DE TODAS LAS NOTAS
mean(notas)

## [1] 6.9

#5.EN QUE POSICION ESTAN LAS NOTAS MAYORES A 7
which(notas>7)

## [1]  2  3  8  9 14 15 17 19

#6. VISUALIZA LAS NOTAS ORDENADAS DE MENOR A MAYOR
sort(notas)

##  [1]  4  4  5  5  5  5  6  6  6  7  7  7  8  8  8  9  9  9 10 10

#7. VISUALIZA LAS NOTAS ORDENADAS DE MAYOR A MENOR
sort(notas,decreasing = TRUE)

##  [1] 10 10  9  9  9  8  8  8  7  7  7  6  6  6  5  5  5  5  4  4

#8. CUAL HA SIDO LA NOTA MAXIMA
max(notas)

## [1] 10

#9. EN QUE POSICION DEL VECTOR ESTA ESA NOTA MAXIMA
which.max(notas)

## [1] 2

- EJERCICIO 5

• A partir de los vectores alumnos y notas definidos: -Visualiza las notas de los 10 primeros alumnos -Suma las notas de los 10 primeros alumnos del vector -¿Cuántos alumnos hay en total? -Suma las notas de los alumnos -¿Cuántos alumnos han aprobado? -¿Qué porcentaje de alumnos han aprobado? -¿Cuáles han sido las notas máxima y mínima? -¿De qué alumnos son la máxima y mínima notas? -Nota media de alumnos, teniendo en cuenta sólo a los que han aprobado.

# 1. Visualiza las notas de los 10 primeros alumnos
head(notas,n=10)

##  [1]  6 10  9  7  5  4  6  9  8  5

##  [1]  6 10  9  7  5  4  6  9  8  5

#2. Suma las notas de los 10 primeros alumnos del vector
sum(head(notas,n=10))

## [1] 69

## [1] 69

#3. ¿Cuántos alumnos hay en total?
length(alumnos1)

## [1] 20

## [1] 20

#4. Suma las notas de los alumnos
sum(notas)

## [1] 138

## [1] 138

#5. ¿Cuántos alumnos han aprobado?
aprobados<-which(notas>=7)
aprobados

##  [1]  2  3  4  8  9 12 14 15 17 19 20

## [1]  2  3  4  8  9 12 14 15 17 19 20
length(aprobados)

## [1] 11

## [1] 11
sum(aprobados)

## [1] 123

## [1] 123

#6. ¿Qué porcentaje de alumnos han aprobado?
Porcentajes<-c(length(aprobados)/length(alumnos1)) 
Porcentajes

## [1] 0.55

## [1] 0.55
Total<-(Porcentajes*100)
cat(Total,"%")

## 55 %

## 55 %

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

## [1] 4

## [1] 4
max(notas)

## [1] 10

## [1] 10

#8. ¿De qué alumnos son la máxima y mínima notas?
nota_max<-c(max(alumnos1),max(notas))
nota_max

## [1] "Yolanda" "10"

## [1] "Yolanda" "10"
nota_min<-c(min(alumnos1),min(notas))
nota_min

## [1] "A" "4"

## [1] "A" "4"

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

## [1] 11.18182

## [1] 11.18182

EL CONOCIMIENTO ES LA GUÍA PARA FORJAR UN FUTURO MEJOR