#### Colaborador: PhD.Fracisco Valverde

APRENDIENDO RMARKDOWN

Mis ejercicios en clase

Ejercicio 1

  # EJERCICIO 1: Calcula los valores numéricos 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^7*0.6^{13}\]

Paso 1.a: Definimos 2 variables y en esta ponemos las respectivas operaciones

Paso 2.a: Definimos una variable donde dividiremos las 2 variables con su resultado

Paso 3.a: Reflejamos el resultado

Código en Rstudio

a<-(0.3*0.15)
b<-(0.3*0.15+0.2*0.8+0.5*0.12)
respuesta_1<-(a/b)
respuesta_1
## [1] 0.1698113

Paso 1.b: Definimos 3 a, b, c, donde elevaremos cinco a la sexta otra sacar el factorial de 6 y la exp de -5

Paso 2.b: Definimos 1 variable del resultado

Paso 3.b: Reflejamos el resultado

Código en Rstudio

a<-5^6
b<-factorial(6)
c<-exp(-5)
respuesta_2<-(a/b*c)
respuesta_2
## [1] 0.1462228

Paso 1.c: Definimos 3 variables donde sacaremos el factorial de 20, 7 y de 20-7 todos estos los dividiremos

Paso 2.c: Definimos una variable resultado en donde multiplicaremos las variables anteriores

Paso 3.c: Reflejamos el resultado

Código en Rstudio

a<-factorial(20)/(factorial(7)*factorial(20-7))
b<-0.4^7
c<-0.6^13
respuesta_3<-a*b*c
respuesta_3
## [1] 0.1658823

Ejercicio 2.1

  Realiza las siguientes sumas:

Fórmula

\[1+2+3+...+10001+1+2+3+...+1000\]

Paso 1: Definiremos 2 variables donde concatenen valores del 1 al 1000

Paso 2: Creamos 2 variables donde con la función sum que nos sirve para sumas números que están en un grupo para obtener el resultado que queremos

Paso 3: Creamos una última variable donde están los resultados de sum y reflejamos el resultado

Código en Rstudio

v1<-c(1:1000)
v2<-c(1:1000)
v3<-sum(v1)
v4<-sum(v2)
v5<-c(v3,v4)
v5
## [1] 500500 500500

Ejercicio 2.2

\[1+2+4+8+16+...+10241+2+4+8+16+...+1024\]

Paso 1: Definimos 2 variables donde daremos los resultados de a y b

Paso 2: Con la funci?n for crearemos una variable que vaya del 1 al 10 y definiremos el resultado con la letra a

Paso 3: Reflejamos el resultado

Código en Rstudio

a<-0
b<-2
for(i in 0:10)
{
  a<-a+(b^i)
}
cat(a,a)
## 2047 2047

Ejercicio 3

  EJERCICIO 3: El vector alumnos representa los nombres de una serie de alumnos. ####
crear el vector alumnos  con 20 nombres
alumnos<-data.frame(
"NOMBRE"=c("Adrian","Brandon","Lisbeth","Santiago","Javier","Alisson","Alejandro",
           "Josselyn","Dayana","Jaime","Sam","Kevin","Jhonatan","Axel","Jesus",
           "Bryan","Luis","Rafael","Andres","Ricardo")
)
#1. Visual?zalo en pantalla
View(alumnos)
#2. ?Cu?ntas componentes tiene el vector alumnos?.
length(alumnos$NOMBRE)
## [1] 20
#3. ?En qu? posiciones del vector alumnos est? la letra 'A'?
alumnos_orden<-order(alumnos$NOMBRE)
alumnos_orden
##  [1]  1  7  6 19 14  2 16  9 10  5 15 13  8 12  3 17 18 20 11  4
alumnos$NOMBRE[alumnos_orden]
##  [1] "Adrian"    "Alejandro" "Alisson"   "Andres"    "Axel"      "Brandon"  
##  [7] "Bryan"     "Dayana"    "Jaime"     "Javier"    "Jesus"     "Jhonatan" 
## [13] "Josselyn"  "Kevin"     "Lisbeth"   "Luis"      "Rafael"    "Ricardo"  
## [19] "Sam"       "Santiago"

Ejercicio 4

  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
notas<-data.frame(
"NOTAS"=c(as.integer(sample(1:10, 20, replace=TRUE))))
#1. Visual?zalo en pantalla
View(notas)
#2. ?Cu?ntas componentes tiene?
length(notas$NOTAS)
## [1] 20
#3. ?Cu?nto suman todas las notas? 
sum(notas)
## [1] 125
#4. ?Cu?l es la media aritm?tica de todas las notas?
mean(notas$NOTAS)
## [1] 6.25
#5. ?En qu? posiciones est?n las notas mayores de 7?
notas[notas$NOTAS>=7:10,]
## [1]  9 10 10  8 10 10 10 10
#6. Visualiza las notas ordenadas de menor a mayor
notas_ordenada<-sort(notas$NOTAS)
notas_ordenada
##  [1]  1  1  1  2  2  4  4  5  6  6  8  8  8  9 10 10 10 10 10 10
#7. Visualiza las notas ordenadas de mayor a menor
notas_ordenada2<-sort(notas$NOTAS, decreasing = TRUE)
notas_ordenada2
##  [1] 10 10 10 10 10 10  9  8  8  8  6  6  5  4  4  2  2  1  1  1
#8. ?Cu?l ha sido la nota m?xima? 
max(notas)
## [1] 10
#9. ?En qu? posici?n del vector est? esa nota m?xima? 
notas[notas$NOTAS==10,]
## [1] 10 10 10 10 10 10
tabla<-data.frame(
alumnos,
notas
)
View(tabla)

Ejercicio 5

  EJERCICIO 5: A partir de los vectores alumnos y notas definidos:
#1. Visualiza las notas de los 10 primeros alumnos
head(notas,n=10)
##    NOTAS
## 1      1
## 2      9
## 3      6
## 4     10
## 5     10
## 6      8
## 7      4
## 8      8
## 9     10
## 10     1
#2. Suma las notas de los 10 primeros alumnos del vector
sum(head(notas,n=10))
## [1] 67
#3. ?Cu?ntos alumnos hay en total?
length(alumnos$NOMBRE)
## [1] 20
#4. Suma las notas de los alumnos
sum(notas)
## [1] 125
#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
#8. ¿De qué alumnos son la máxima y mínima notas?

posmax<-which.max(notas$NOTAS)
posmax
## [1] 4
posmin<-which.min(notas$NOTAS)
posmin
## [1] 1
alumax<-alumnos$NOMBRE[posmax]
alumin<-alumnos$NOMBRE[posmin]
cat("El alumno con la maxima nota es",alumax)
## El alumno con la maxima nota es Santiago
cat("El alumno con la minima nota es",alumin)
## El alumno con la minima nota es Adrian
#9. Nota media de alumnos, teniendo en cuenta sólo a los que han aprobado.
median(notas$NOTAS)
## [1] 7