R Markdown

Actividad 2: permutacion y combinacion.

Permutacion: corresponde a diferentes agrupaciones de elementos donde el orden si importa.

Combinacion: Agrupacion con todos los elementos donde el orden no importa.

  1. n = 14 r = 4
library('gtools')


ma<-combinations(14,4, v= 1:14,repeats= FALSE)
NROW(ma)
## [1] 1001
print('Combinacion con repeticion')
## [1] "Combinacion con repeticion"
ma<-combinations(14,4, v= 1:14,repeats= TRUE)
nrow(ma)
## [1] 2380
  1. Combinacion largo 3 con letras A,B,C con y sin repeticion.
## [1] 10
##       [,1] [,2] [,3]
##  [1,] "a"  "a"  "a" 
##  [2,] "a"  "a"  "b" 
##  [3,] "a"  "a"  "c" 
##  [4,] "a"  "b"  "b" 
##  [5,] "a"  "b"  "c" 
##  [6,] "a"  "c"  "c" 
##  [7,] "b"  "b"  "b" 
##  [8,] "b"  "b"  "c" 
##  [9,] "b"  "c"  "c" 
## [10,] "c"  "c"  "c"
##      [,1] [,2] [,3]
## [1,] "a"  "b"  "c"
  1. Combinacion n = 30 y r = 2
## [1] 435
## [1] "Combinacion con repeticion"
## [1] 465

TITANIC

##        Survived
## Age       No Yes
##   Child   52  57
##   Adult 1438 654
##         Survived
## Sex        No Yes
##   Male   1364 367
##   Female  126 344
##       Survived
## Class   No Yes
##   1st  122 203
##   2nd  167 118
##   3rd  528 178
##   Crew 673 212
## [1] "Probabilidad de supervivencia tripulacion"
## [1] 76.0452
## [1] "Probabilidad de sobrevivencia pasajeros"
## [1] 62.08207

El mayor porcentaje de sobrevivencia es de los tripulantes con un 76%.

## , , Survived = No
## 
##         Class
## Sex      1st 2nd 3rd Crew
##   Male   118 154 422  670
##   Female   4  13 106    3
## 
## , , Survived = Yes
## 
##         Class
## Sex      1st 2nd 3rd Crew
##   Male    62  25  88  192
##   Female 141  93  90   20
## [1] "La probabilidad de que una mujer de la tripulacion sobreviva es"
## [1] 86.95652

Nino de la tercera clase sobrevia

## , , Survived = No
## 
##        Class
## Age     1st 2nd 3rd Crew
##   Child   0   0  52    0
##   Adult 122 167 476  673
## 
## , , Survived = Yes
## 
##        Class
## Age     1st 2nd 3rd Crew
##   Child   6  24  27    0
##   Adult 197  94 151  212
## [1] "La probabilidad de que un nino de la tercera clase sobreviva es"
## [1] 34.17722

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.