DESARROLO DE LOS SIGUIENTES EJERCICIOS
PRIMER EJERCICIO
1._CALCULA LOS VALORES NUMERICOS APROXIMADOS DE
(O.3*0.15)/(0.3*0.15+0.2*0.8+0.5*0.12)
SOL:0.1698113
Tnum <- 0.3*0.15
tdom1 <- 0.3*0.15
tdom2 <- 0.2*0.8
tdom3 <- 0.5*0.12
total <- Tnum/(tdom1+tdom2+tdom3)
total
## [1] 0.1698113
2._CALCULA LOS VALORES NUMERICOS APROXIMADOS DE (5^6/6!)e^-5
SOL:0.1462228
TDIV <- (5^6)/(factorial(6))
TMUL <- exp(-5)
total2 <- TDIV*TMUL
total2
## [1] 0.1462228
3._CALCULA LOS VALORES NUMERICOS APROXIMADOS DE (20 7)*0.4^7*0.6^13
SOL:0.1658823
tdivi <- factorial(20) / (factorial(7) * (factorial(20-7)))
texp <- (0.4^7)*(0.6^13)
total3 <- tdivi*texp
total3
## [1] 0.1658823
SEGUNDO EJERCICIO
REALIZA LAS SIGUIENTES SUMAS:
1._1+2+3+???+10001+2+3+???+1000
SOL.: 500500500500
vector1 <- (1000*(1000+1))/2
vector1
## [1] 500500
vector2 <- rep(vector1, time=2)
vector2
## [1] 500500 500500
2._1+2+4+8+16+???+1024
SOL.: 20472047
vector4 <- 1
vector5 <- 2
for(i in 1:10)
{
vector4<-vector4+(vector5^i)
}
vector6 <- rep(vector4, time=2)
vector6
## [1] 2047 2047
TERCER EJERCICIO
EL VECTOR ALUMNOS REPRESENTA LOS NOMBRES DE UNA SERIE DE ALUMNOS
CREAR EL VECTOR ALUMNOS CON 20 NOMBRES
CREAR EL VECTOR ALUMNOS CON 20 NOMBRES
1._VISUALÍZALO EN PANTALLA
nombres <- c("PAULA","PABLO","DILAN","DAVID","PEDRO","SOFIA","SARA","MIGUEL",
"CARLA","DANIELA","LUIS","JONATHAN","PAMELA","CARLOS","FATIMA",
"ALEJANDRO","SEBASTIAN","MARIA","JUAN","RAQUEL")
nombres
## [1] "PAULA" "PABLO" "DILAN" "DAVID" "PEDRO" "SOFIA"
## [7] "SARA" "MIGUEL" "CARLA" "DANIELA" "LUIS" "JONATHAN"
## [13] "PAMELA" "CARLOS" "FATIMA" "ALEJANDRO" "SEBASTIAN" "MARIA"
## [19] "JUAN" "RAQUEL"
2._¿CUÁNTAS COMPONENTES TIENE EL VECTOR ALUMNOS?
length(nombres)
## [1] 20
3._¿EN QUÉ POSICIONES DEL VECTOR ALUMNOS ESTÁ LA LETRA 'A'?
which(nombres=="ALEJANDRO",arr.ind=TRUE )
## [1] 16
letra <- substr(nombres,1,1)
letra
## [1] "P" "P" "D" "D" "P" "S" "S" "M" "C" "D" "L" "J" "P" "C" "F" "A" "S" "M" "J"
## [20] "R"
which(letra=="A")
## [1] 16
CUARTO EJERCICIO
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.
1._VISUALÍZALO EN PANTALLA
nexamen <- c(4,6,3,8,10,7,4,8,9,10,10,5,8,7,4,1,2,5,8,9)
nexamen
## [1] 4 6 3 8 10 7 4 8 9 10 10 5 8 7 4 1 2 5 8 9
2._¿CUÁNTAS COMPONENTES TIENE?
length(nexamen)
## [1] 20
3._¿CUÁNTO SUMAN TODAS LAS NOTAS?
sum(nexamen)
## [1] 128
4._¿CUÁL ES LA MEDIA ARITMÉTICA DE TODAS LAS NOTAS?
mean(nexamen)
## [1] 6.4
5._¿EN QUÉ POSICIONES ESTÁN LAS NOTAS MAYORES DE 7?
which(nexamen >=7)
## [1] 4 5 6 8 9 10 11 13 14 19 20
which(nexamen ==10)
## [1] 5 10 11
6._VISUALIZA LAS NOTAS ORDENADAS DE MENOR A MAYOR
sort(nexamen)
## [1] 1 2 3 4 4 4 5 5 6 7 7 8 8 8 8 9 9 10 10 10
7._VISUALIZA LAS NOTAS ORDENADAS DE MAYOR A MENOR
sort(nexamen,decreasing = T)
## [1] 10 10 10 9 9 8 8 8 8 7 7 6 5 5 4 4 4 3 2 1
8._¿CUÁL HA SIDO LA NOTA MÁXIMA?
max(nexamen)
## [1] 10
9._¿EN QUÉ POSICIÓN DEL VECTOR ESTÁ ESA NOTA MÁXIMA?
maxi <- max(nexamen)
maxi
## [1] 10
which(nexamen %in% c(maxi))
## [1] 5 10 11
QUINTO EJERCICIO
A PARTIR DE LOS VECTORES ALUMNOS Y NOTAS DEFINIDOS:
1._VISUALIZA LAS NOTAS DE LOS 10 PRIMEROS ALUMNOS
nexamen[1:10]
## [1] 4 6 3 8 10 7 4 8 9 10
2._SUMA LAS NOTAS DE LOS 10 PRIMEROS ALUMNOS DEL VECTOR
sum(nexamen[1:10])
## [1] 69
3._¿CUÁNTOS ALUMNOS HAY EN TOTAL?
length(nombres)
## [1] 20
4._SUMA LAS NOTAS DE LOS ALUMNOS
sum(nexamen)
## [1] 128
5._¿CUÁNTOS ALUMNOS HAN APROBADO?
posición <- which(nexamen>=7)
posición
## [1] 4 5 6 8 9 10 11 13 14 19 20
totalp <- length(posición)
totalp
## [1] 11
6._¿QUÉ PORCENTAJE DE ALUMNOS HAN APROBADO?
porcentaje<-(totalp*100)/length(nombres)
porcentaje
## [1] 55
7._¿CUÁLES HAN SIDO LAS NOTAS MÁXIMA Y MÍNIMA?
max(nexamen)
## [1] 10
min(nexamen)
## [1] 1
8._¿DE QUÉ ALUMNOS SON LA MÁXIMA Y MÍNIMA NOTAS?
m <- data.frame(nombres = c("PAULA","PABLO","DILAN","DAVID","PEDRO","SOFIA","SARA","MIGUEL",
"CARLA","DANIELA","LUIS","JONATHAN","PAMELA","CARLOS","FATIMA",
"ALEJANDRO","SEBASTIAN","MARIA","JUAN","RAQUEL"), nexamen = c(4,6,3,8,10,7,4,8,9,10,10,5,8,7,4,1,2,5,8,9) )
m
## nombres nexamen
## 1 PAULA 4
## 2 PABLO 6
## 3 DILAN 3
## 4 DAVID 8
## 5 PEDRO 10
## 6 SOFIA 7
## 7 SARA 4
## 8 MIGUEL 8
## 9 CARLA 9
## 10 DANIELA 10
## 11 LUIS 10
## 12 JONATHAN 5
## 13 PAMELA 8
## 14 CARLOS 7
## 15 FATIMA 4
## 16 ALEJANDRO 1
## 17 SEBASTIAN 2
## 18 MARIA 5
## 19 JUAN 8
## 20 RAQUEL 9
which(nexamen ==10)
## [1] 5 10 11
m[10,]
## nombres nexamen
## 10 DANIELA 10
9._NOTA MEDIA DE ALUMNOS, TENIENDO EN CUENTA SÓLO A LOS QUE HAN APROBADO.
aprobados <- c(8,10,7,8,9,10,10,8,7,8,9)
aprobados
## [1] 8 10 7 8 9 10 10 8 7 8 9
mean(aprobados)
## [1] 8.545455
