\[\frac{0.3*0.15}{(0.3*0.15)+(0.2*0.8)+(0.5*0.12)}\]
a<-0.3*0.15
a
## [1] 0.045
b<-0.3*0.15+0.2*0.8+0.5*0.15
b
## [1] 0.28
c<-a/b
c
## [1] 0.1607143
\[\frac{5^6}{6!}*e^{-5}\]
f<-((5**6)/(factorial(6)))*exp(-5)
f
## [1] 0.1462228
\[\left(\begin{array}{c} {20}\\ {7} \end{array}\right)0.4^7*0.6^{13}\]
\[\left(\begin{array}{c} {n}\\ {k} \end{array}\right) = \frac {n!}{k!(n-k)!}\]
j<-combn(20,7,FUN = NULL,simplify = FALSE)
j<-length(j)
j<- j*(0.4**7)*(0.6**13)
j
## [1] 0.1658823
a<- rep(1:1000)
a<-sum(a)
a<-(rep(a,time=2))
cat("El resultado es", a)
## El resultado es 500500 500500
s<-rep(0:10)
s<-c(2^s)
s<-sum(s)
s<-rep(s,time=2)
s
## [1] 2047 2047
#1.
nombres<-c( "Juan","Camila","Jerson","Miguel"," Alan","Stiven","Kimi","Daniela","Anita","Katia","Pricila","Melany",
"Karol","Yuli","Maria","Francisco","Jhony","Karen","David","Antonela")
nombres
## [1] "Juan" "Camila" "Jerson" "Miguel" " Alan" "Stiven"
## [7] "Kimi" "Daniela" "Anita" "Katia" "Pricila" "Melany"
## [13] "Karol" "Yuli" "Maria" "Francisco" "Jhony" "Karen"
## [19] "David" "Antonela"
#2.
length(nombres)
## [1] 20
#3.
posicion<-which(grepl("A", nombres))
posicion
## [1] 5 9 20
notas<-c(sample(1:10, 20,replace = T))
notas
## [1] 7 4 10 8 1 2 6 8 9 2 4 9 2 10 2 5 5 8 7 7
length(notas)
## [1] 20
sum(notas)
## [1] 116
mean(notas)
## [1] 5.8
which(notas>7)
## [1] 3 4 8 9 12 14 18
sort(notas)
## [1] 1 2 2 2 2 4 4 5 5 6 7 7 7 8 8 8 9 9 10 10
sort(notas,decreasing = T)
## [1] 10 10 9 9 8 8 8 7 7 7 6 5 5 4 4 2 2 2 2 1
max(notas)
## [1] 10
which.max(notas)
## [1] 3
head(notas,10)
## [1] 7 4 10 8 1 2 6 8 9 2
sum(head(notas,10))
## [1] 57
cat("Total de alumnos selecionado los 10 primeros",length(head(nombres,10)))
## Total de alumnos selecionado los 10 primeros 10
cat("Total de alumnos en general ",length(nombres))
## Total de alumnos en general 20
sum(notas)
## [1] 116
cat("Alumnos aprobados",length(which(notas>6)))
## Alumnos aprobados 10
j<-(length(which(notas>6))/length(notas))*100
cat("El Porcentaje de alumnos aprobados es ",j,"%")
## El Porcentaje de alumnos aprobados es 50 %
x<-data.frame(Estudiantes=nombres,NOTAS=notas)
x
## Estudiantes NOTAS
## 1 Juan 7
## 2 Camila 4
## 3 Jerson 10
## 4 Miguel 8
## 5 Alan 1
## 6 Stiven 2
## 7 Kimi 6
## 8 Daniela 8
## 9 Anita 9
## 10 Katia 2
## 11 Pricila 4
## 12 Melany 9
## 13 Karol 2
## 14 Yuli 10
## 15 Maria 2
## 16 Francisco 5
## 17 Jhony 5
## 18 Karen 8
## 19 David 7
## 20 Antonela 7
summary(x)
## Estudiantes NOTAS
## Length:20 Min. : 1.0
## Class :character 1st Qu.: 3.5
## Mode :character Median : 6.5
## Mean : 5.8
## 3rd Qu.: 8.0
## Max. :10.0
notaalta<-subset(x,notas>6)
notaalta
## Estudiantes NOTAS
## 1 Juan 7
## 3 Jerson 10
## 4 Miguel 8
## 8 Daniela 8
## 9 Anita 9
## 12 Melany 9
## 14 Yuli 10
## 18 Karen 8
## 19 David 7
## 20 Antonela 7
notaminima<-subset(x,notas<6)
notaminima
## Estudiantes NOTAS
## 2 Camila 4
## 5 Alan 1
## 6 Stiven 2
## 10 Katia 2
## 11 Pricila 4
## 13 Karol 2
## 15 Maria 2
## 16 Francisco 5
## 17 Jhony 5
notaalta[,2]
## [1] 7 10 8 8 9 9 10 8 7 7
mean(notaalta[,2])
## [1] 8.3