La combinatoria es una rama de las matemáticas que estudia las
diferentes formas de organizar, ordenar y combinar elementos de un
conjunto. Su objetivo es calcular cuántas posibilidades existen al
realizar una elección o formar grupos. Se utiliza en situaciones
cotidianas, como organizar personas, escoger sabores o formar
equipos.
\[ \frac{n!}{(n-r)!r!} \]
*Donde cada variable es:
n: Es el total de elementos disponibles a elegir
k: Es el número
de elementos que quieres seleccionar
capturarn<-function(){
n<-as.integer(readline(prompt="Ingrese un n cualquiera"))
r<-as.integer(readline(prompt="Ingrese un r cualquiera"))
lista=c(n, r)
return(lista)
}
factorial<-function(x){
fact=1
for (i in 1:x)
fact=fact*i
return(fact)
}
#EJEMPLO N=5 Y R=4
combinatoria<-function(){
ejemplo=c(5, 4)
lista=ejemplo
superior=factorial(lista[1])
inferior1=factorial(lista[1]-lista[2])
inferior2=factorial(lista[2])
inferior=inferior1*inferior2
total=superior/inferior
cat("El resultado de la combinatoria es", total )
}
combinatoria()
## El resultado de la combinatoria es 5