Determinar probabilidades para eventos independientes.
Realizar y determinar probabilidades a partir de la probabilidad que se tienen en eventos independientes.
Cargar Librerias
library(knitr)
library(gtools)En una caja ponemos las 10 canicas, de las cuales 2 son verdes, 4 azules y 4 blancas. Se van a escoger dos canicas al azar, una primero y otra después. Se pide hallar la probabilidad de que ninguna de ellas sea azul, bajo la siguients condicione:
p.canicas.verdes <- 4
p.canicas.azules <- 4
paste("La probabilidad de que salga una canica verde: ", round(p.canicas.verdes * p.canicas.azules * 1), "%" )## [1] "La probabilidad de que salga una canica verde: 16 %"Una tienda dispone de 15 camisas en tres tamaños: 3 pequeñas, 6 medianas y 6 grandes.
camisas <- c("c1","c2", "c3")
espacio.muestral <- permutations(n = 3, r = 6 , camisas, repeats.allowed = TRUE)
espacio.muestral## [,1] [,2] [,3] [,4] [,5] [,6]
## [1,] "c1" "c1" "c1" "c1" "c1" "c1"
## [2,] "c1" "c1" "c1" "c1" "c1" "c2"
## [3,] "c1" "c1" "c1" "c1" "c1" "c3"
## [4,] "c1" "c1" "c1" "c1" "c2" "c1"
## [5,] "c1" "c1" "c1" "c1" "c2" "c2"
## [6,] "c1" "c1" "c1" "c1" "c2" "c3"
## [7,] "c1" "c1" "c1" "c1" "c3" "c1"
## [8,] "c1" "c1" "c1" "c1" "c3" "c2"
## [9,] "c1" "c1" "c1" "c1" "c3" "c3"
## [10,] "c1" "c1" "c1" "c2" "c1" "c1"
## [11,] "c1" "c1" "c1" "c2" "c1" "c2"
## [12,] "c1" "c1" "c1" "c2" "c1" "c3"
## [13,] "c1" "c1" "c1" "c2" "c2" "c1"
## [14,] "c1" "c1" "c1" "c2" "c2" "c2"
## [15,] "c1" "c1" "c1" "c2" "c2" "c3"
## [16,] "c1" "c1" "c1" "c2" "c3" "c1"
## [17,] "c1" "c1" "c1" "c2" "c3" "c2"
## [18,] "c1" "c1" "c1" "c2" "c3" "c3"
## [19,] "c1" "c1" "c1" "c3" "c1" "c1"
## [20,] "c1" "c1" "c1" "c3" "c1" "c2"
## [21,] "c1" "c1" "c1" "c3" "c1" "c3"
## [22,] "c1" "c1" "c1" "c3" "c2" "c1"
## [23,] "c1" "c1" "c1" "c3" "c2" "c2"
## [24,] "c1" "c1" "c1" "c3" "c2" "c3"
## [25,] "c1" "c1" "c1" "c3" "c3" "c1"
## [26,] "c1" "c1" "c1" "c3" "c3" "c2"
## [27,] "c1" "c1" "c1" "c3" "c3" "c3"
## [28,] "c1" "c1" "c2" "c1" "c1" "c1"
## [29,] "c1" "c1" "c2" "c1" "c1" "c2"
## [30,] "c1" "c1" "c2" "c1" "c1" "c3"
## [31,] "c1" "c1" "c2" "c1" "c2" "c1"
## [32,] "c1" "c1" "c2" "c1" "c2" "c2"
## [33,] "c1" "c1" "c2" "c1" "c2" "c3"
## [34,] "c1" "c1" "c2" "c1" "c3" "c1"
## [35,] "c1" "c1" "c2" "c1" "c3" "c2"
## [36,] "c1" "c1" "c2" "c1" "c3" "c3"
## [37,] "c1" "c1" "c2" "c2" "c1" "c1"
## [38,] "c1" "c1" "c2" "c2" "c1" "c2"
## [39,] "c1" "c1" "c2" "c2" "c1" "c3"
## [40,] "c1" "c1" "c2" "c2" "c2" "c1"
## [41,] "c1" "c1" "c2" "c2" "c2" "c2"
## [42,] "c1" "c1" "c2" "c2" "c2" "c3"
## [43,] "c1" "c1" "c2" "c2" "c3" "c1"
## [44,] "c1" "c1" "c2" "c2" "c3" "c2"
## [45,] "c1" "c1" "c2" "c2" "c3" "c3"
## [46,] "c1" "c1" "c2" "c3" "c1" "c1"
## [47,] "c1" "c1" "c2" "c3" "c1" "c2"
## [48,] "c1" "c1" "c2" "c3" "c1" "c3"
## [49,] "c1" "c1" "c2" "c3" "c2" "c1"
## [50,] "c1" "c1" "c2" "c3" "c2" "c2"
## [51,] "c1" "c1" "c2" "c3" "c2" "c3"
## [52,] "c1" "c1" "c2" "c3" "c3" "c1"
## [53,] "c1" "c1" "c2" "c3" "c3" "c2"
## [54,] "c1" "c1" "c2" "c3" "c3" "c3"
## [55,] "c1" "c1" "c3" "c1" "c1" "c1"
## [56,] "c1" "c1" "c3" "c1" "c1" "c2"
## [57,] "c1" "c1" "c3" "c1" "c1" "c3"
## [58,] "c1" "c1" "c3" "c1" "c2" "c1"
## [59,] "c1" "c1" "c3" "c1" "c2" "c2"
## [60,] "c1" "c1" "c3" "c1" "c2" "c3"
## [61,] "c1" "c1" "c3" "c1" "c3" "c1"
## [62,] "c1" "c1" "c3" "c1" "c3" "c2"
## [63,] "c1" "c1" "c3" "c1" "c3" "c3"
## [64,] "c1" "c1" "c3" "c2" "c1" "c1"
## [65,] "c1" "c1" "c3" "c2" "c1" "c2"
## [66,] "c1" "c1" "c3" "c2" "c1" "c3"
## [67,] "c1" "c1" "c3" "c2" "c2" "c1"
## [68,] "c1" "c1" "c3" "c2" "c2" "c2"
## [69,] "c1" "c1" "c3" "c2" "c2" "c3"
## [70,] "c1" "c1" "c3" "c2" "c3" "c1"
## [71,] "c1" "c1" "c3" "c2" "c3" "c2"
## [72,] "c1" "c1" "c3" "c2" "c3" "c3"
## [73,] "c1" "c1" "c3" "c3" "c1" "c1"
## [74,] "c1" "c1" "c3" "c3" "c1" "c2"
## [75,] "c1" "c1" "c3" "c3" "c1" "c3"
## [76,] "c1" "c1" "c3" "c3" "c2" "c1"
## [77,] "c1" "c1" "c3" "c3" "c2" "c2"
## [78,] "c1" "c1" "c3" "c3" "c2" "c3"
## [79,] "c1" "c1" "c3" "c3" "c3" "c1"
## [80,] "c1" "c1" "c3" "c3" "c3" "c2"
## [81,] "c1" "c1" "c3" "c3" "c3" "c3"
## [82,] "c1" "c2" "c1" "c1" "c1" "c1"
## [83,] "c1" "c2" "c1" "c1" "c1" "c2"
## [84,] "c1" "c2" "c1" "c1" "c1" "c3"
## [85,] "c1" "c2" "c1" "c1" "c2" "c1"
## [86,] "c1" "c2" "c1" "c1" "c2" "c2"
## [87,] "c1" "c2" "c1" "c1" "c2" "c3"
## [88,] "c1" "c2" "c1" "c1" "c3" "c1"
## [89,] "c1" "c2" "c1" "c1" "c3" "c2"
## [90,] "c1" "c2" "c1" "c1" "c3" "c3"
## [91,] "c1" "c2" "c1" "c2" "c1" "c1"
## [92,] "c1" "c2" "c1" "c2" "c1" "c2"
## [93,] "c1" "c2" "c1" "c2" "c1" "c3"
## [94,] "c1" "c2" "c1" "c2" "c2" "c1"
## [95,] "c1" "c2" "c1" "c2" "c2" "c2"
## [96,] "c1" "c2" "c1" "c2" "c2" "c3"
## [97,] "c1" "c2" "c1" "c2" "c3" "c1"
## [98,] "c1" "c2" "c1" "c2" "c3" "c2"
## [99,] "c1" "c2" "c1" "c2" "c3" "c3"
## [100,] "c1" "c2" "c1" "c3" "c1" "c1"
## [101,] "c1" "c2" "c1" "c3" "c1" "c2"
## [102,] "c1" "c2" "c1" "c3" "c1" "c3"
## [103,] "c1" "c2" "c1" "c3" "c2" "c1"
## [104,] "c1" "c2" "c1" "c3" "c2" "c2"
## [105,] "c1" "c2" "c1" "c3" "c2" "c3"
## [106,] "c1" "c2" "c1" "c3" "c3" "c1"
## [107,] "c1" "c2" "c1" "c3" "c3" "c2"
## [108,] "c1" "c2" "c1" "c3" "c3" "c3"
## [109,] "c1" "c2" "c2" "c1" "c1" "c1"
## [110,] "c1" "c2" "c2" "c1" "c1" "c2"
## [111,] "c1" "c2" "c2" "c1" "c1" "c3"
## [112,] "c1" "c2" "c2" "c1" "c2" "c1"
## [113,] "c1" "c2" "c2" "c1" "c2" "c2"
## [114,] "c1" "c2" "c2" "c1" "c2" "c3"
## [115,] "c1" "c2" "c2" "c1" "c3" "c1"
## [116,] "c1" "c2" "c2" "c1" "c3" "c2"
## [117,] "c1" "c2" "c2" "c1" "c3" "c3"
## [118,] "c1" "c2" "c2" "c2" "c1" "c1"
## [119,] "c1" "c2" "c2" "c2" "c1" "c2"
## [120,] "c1" "c2" "c2" "c2" "c1" "c3"
## [121,] "c1" "c2" "c2" "c2" "c2" "c1"
## [122,] "c1" "c2" "c2" "c2" "c2" "c2"
## [123,] "c1" "c2" "c2" "c2" "c2" "c3"
## [124,] "c1" "c2" "c2" "c2" "c3" "c1"
## [125,] "c1" "c2" "c2" "c2" "c3" "c2"
## [126,] "c1" "c2" "c2" "c2" "c3" "c3"
## [127,] "c1" "c2" "c2" "c3" "c1" "c1"
## [128,] "c1" "c2" "c2" "c3" "c1" "c2"
## [129,] "c1" "c2" "c2" "c3" "c1" "c3"
## [130,] "c1" "c2" "c2" "c3" "c2" "c1"
## [131,] "c1" "c2" "c2" "c3" "c2" "c2"
## [132,] "c1" "c2" "c2" "c3" "c2" "c3"
## [133,] "c1" "c2" "c2" "c3" "c3" "c1"
## [134,] "c1" "c2" "c2" "c3" "c3" "c2"
## [135,] "c1" "c2" "c2" "c3" "c3" "c3"
## [136,] "c1" "c2" "c3" "c1" "c1" "c1"
## [137,] "c1" "c2" "c3" "c1" "c1" "c2"
## [138,] "c1" "c2" "c3" "c1" "c1" "c3"
## [139,] "c1" "c2" "c3" "c1" "c2" "c1"
## [140,] "c1" "c2" "c3" "c1" "c2" "c2"
## [141,] "c1" "c2" "c3" "c1" "c2" "c3"
## [142,] "c1" "c2" "c3" "c1" "c3" "c1"
## [143,] "c1" "c2" "c3" "c1" "c3" "c2"
## [144,] "c1" "c2" "c3" "c1" "c3" "c3"
## [145,] "c1" "c2" "c3" "c2" "c1" "c1"
## [146,] "c1" "c2" "c3" "c2" "c1" "c2"
## [147,] "c1" "c2" "c3" "c2" "c1" "c3"
## [148,] "c1" "c2" "c3" "c2" "c2" "c1"
## [149,] "c1" "c2" "c3" "c2" "c2" "c2"
## [150,] "c1" "c2" "c3" "c2" "c2" "c3"
## [151,] "c1" "c2" "c3" "c2" "c3" "c1"
## [152,] "c1" "c2" "c3" "c2" "c3" "c2"
## [153,] "c1" "c2" "c3" "c2" "c3" "c3"
## [154,] "c1" "c2" "c3" "c3" "c1" "c1"
## [155,] "c1" "c2" "c3" "c3" "c1" "c2"
## [156,] "c1" "c2" "c3" "c3" "c1" "c3"
## [157,] "c1" "c2" "c3" "c3" "c2" "c1"
## [158,] "c1" "c2" "c3" "c3" "c2" "c2"
## [159,] "c1" "c2" "c3" "c3" "c2" "c3"
## [160,] "c1" "c2" "c3" "c3" "c3" "c1"
## [161,] "c1" "c2" "c3" "c3" "c3" "c2"
## [162,] "c1" "c2" "c3" "c3" "c3" "c3"
## [163,] "c1" "c3" "c1" "c1" "c1" "c1"
## [164,] "c1" "c3" "c1" "c1" "c1" "c2"
## [165,] "c1" "c3" "c1" "c1" "c1" "c3"
## [166,] "c1" "c3" "c1" "c1" "c2" "c1"
## [167,] "c1" "c3" "c1" "c1" "c2" "c2"
## [168,] "c1" "c3" "c1" "c1" "c2" "c3"
## [169,] "c1" "c3" "c1" "c1" "c3" "c1"
## [170,] "c1" "c3" "c1" "c1" "c3" "c2"
## [171,] "c1" "c3" "c1" "c1" "c3" "c3"
## [172,] "c1" "c3" "c1" "c2" "c1" "c1"
## [173,] "c1" "c3" "c1" "c2" "c1" "c2"
## [174,] "c1" "c3" "c1" "c2" "c1" "c3"
## [175,] "c1" "c3" "c1" "c2" "c2" "c1"
## [176,] "c1" "c3" "c1" "c2" "c2" "c2"
## [177,] "c1" "c3" "c1" "c2" "c2" "c3"
## [178,] "c1" "c3" "c1" "c2" "c3" "c1"
## [179,] "c1" "c3" "c1" "c2" "c3" "c2"
## [180,] "c1" "c3" "c1" "c2" "c3" "c3"
## [181,] "c1" "c3" "c1" "c3" "c1" "c1"
## [182,] "c1" "c3" "c1" "c3" "c1" "c2"
## [183,] "c1" "c3" "c1" "c3" "c1" "c3"
## [184,] "c1" "c3" "c1" "c3" "c2" "c1"
## [185,] "c1" "c3" "c1" "c3" "c2" "c2"
## [186,] "c1" "c3" "c1" "c3" "c2" "c3"
## [187,] "c1" "c3" "c1" "c3" "c3" "c1"
## [188,] "c1" "c3" "c1" "c3" "c3" "c2"
## [189,] "c1" "c3" "c1" "c3" "c3" "c3"
## [190,] "c1" "c3" "c2" "c1" "c1" "c1"
## [191,] "c1" "c3" "c2" "c1" "c1" "c2"
## [192,] "c1" "c3" "c2" "c1" "c1" "c3"
## [193,] "c1" "c3" "c2" "c1" "c2" "c1"
## [194,] "c1" "c3" "c2" "c1" "c2" "c2"
## [195,] "c1" "c3" "c2" "c1" "c2" "c3"
## [196,] "c1" "c3" "c2" "c1" "c3" "c1"
## [197,] "c1" "c3" "c2" "c1" "c3" "c2"
## [198,] "c1" "c3" "c2" "c1" "c3" "c3"
## [199,] "c1" "c3" "c2" "c2" "c1" "c1"
## [200,] "c1" "c3" "c2" "c2" "c1" "c2"
## [201,] "c1" "c3" "c2" "c2" "c1" "c3"
## [202,] "c1" "c3" "c2" "c2" "c2" "c1"
## [203,] "c1" "c3" "c2" "c2" "c2" "c2"
## [204,] "c1" "c3" "c2" "c2" "c2" "c3"
## [205,] "c1" "c3" "c2" "c2" "c3" "c1"
## [206,] "c1" "c3" "c2" "c2" "c3" "c2"
## [207,] "c1" "c3" "c2" "c2" "c3" "c3"
## [208,] "c1" "c3" "c2" "c3" "c1" "c1"
## [209,] "c1" "c3" "c2" "c3" "c1" "c2"
## [210,] "c1" "c3" "c2" "c3" "c1" "c3"
## [211,] "c1" "c3" "c2" "c3" "c2" "c1"
## [212,] "c1" "c3" "c2" "c3" "c2" "c2"
## [213,] "c1" "c3" "c2" "c3" "c2" "c3"
## [214,] "c1" "c3" "c2" "c3" "c3" "c1"
## [215,] "c1" "c3" "c2" "c3" "c3" "c2"
## [216,] "c1" "c3" "c2" "c3" "c3" "c3"
## [217,] "c1" "c3" "c3" "c1" "c1" "c1"
## [218,] "c1" "c3" "c3" "c1" "c1" "c2"
## [219,] "c1" "c3" "c3" "c1" "c1" "c3"
## [220,] "c1" "c3" "c3" "c1" "c2" "c1"
## [221,] "c1" "c3" "c3" "c1" "c2" "c2"
## [222,] "c1" "c3" "c3" "c1" "c2" "c3"
## [223,] "c1" "c3" "c3" "c1" "c3" "c1"
## [224,] "c1" "c3" "c3" "c1" "c3" "c2"
## [225,] "c1" "c3" "c3" "c1" "c3" "c3"
## [226,] "c1" "c3" "c3" "c2" "c1" "c1"
## [227,] "c1" "c3" "c3" "c2" "c1" "c2"
## [228,] "c1" "c3" "c3" "c2" "c1" "c3"
## [229,] "c1" "c3" "c3" "c2" "c2" "c1"
## [230,] "c1" "c3" "c3" "c2" "c2" "c2"
## [231,] "c1" "c3" "c3" "c2" "c2" "c3"
## [232,] "c1" "c3" "c3" "c2" "c3" "c1"
## [233,] "c1" "c3" "c3" "c2" "c3" "c2"
## [234,] "c1" "c3" "c3" "c2" "c3" "c3"
## [235,] "c1" "c3" "c3" "c3" "c1" "c1"
## [236,] "c1" "c3" "c3" "c3" "c1" "c2"
## [237,] "c1" "c3" "c3" "c3" "c1" "c3"
## [238,] "c1" "c3" "c3" "c3" "c2" "c1"
## [239,] "c1" "c3" "c3" "c3" "c2" "c2"
## [240,] "c1" "c3" "c3" "c3" "c2" "c3"
## [241,] "c1" "c3" "c3" "c3" "c3" "c1"
## [242,] "c1" "c3" "c3" "c3" "c3" "c2"
## [243,] "c1" "c3" "c3" "c3" "c3" "c3"
## [244,] "c2" "c1" "c1" "c1" "c1" "c1"
## [245,] "c2" "c1" "c1" "c1" "c1" "c2"
## [246,] "c2" "c1" "c1" "c1" "c1" "c3"
## [247,] "c2" "c1" "c1" "c1" "c2" "c1"
## [248,] "c2" "c1" "c1" "c1" "c2" "c2"
## [249,] "c2" "c1" "c1" "c1" "c2" "c3"
## [250,] "c2" "c1" "c1" "c1" "c3" "c1"
## [251,] "c2" "c1" "c1" "c1" "c3" "c2"
## [252,] "c2" "c1" "c1" "c1" "c3" "c3"
## [253,] "c2" "c1" "c1" "c2" "c1" "c1"
## [254,] "c2" "c1" "c1" "c2" "c1" "c2"
## [255,] "c2" "c1" "c1" "c2" "c1" "c3"
## [256,] "c2" "c1" "c1" "c2" "c2" "c1"
## [257,] "c2" "c1" "c1" "c2" "c2" "c2"
## [258,] "c2" "c1" "c1" "c2" "c2" "c3"
## [259,] "c2" "c1" "c1" "c2" "c3" "c1"
## [260,] "c2" "c1" "c1" "c2" "c3" "c2"
## [261,] "c2" "c1" "c1" "c2" "c3" "c3"
## [262,] "c2" "c1" "c1" "c3" "c1" "c1"
## [263,] "c2" "c1" "c1" "c3" "c1" "c2"
## [264,] "c2" "c1" "c1" "c3" "c1" "c3"
## [265,] "c2" "c1" "c1" "c3" "c2" "c1"
## [266,] "c2" "c1" "c1" "c3" "c2" "c2"
## [267,] "c2" "c1" "c1" "c3" "c2" "c3"
## [268,] "c2" "c1" "c1" "c3" "c3" "c1"
## [269,] "c2" "c1" "c1" "c3" "c3" "c2"
## [270,] "c2" "c1" "c1" "c3" "c3" "c3"
## [271,] "c2" "c1" "c2" "c1" "c1" "c1"
## [272,] "c2" "c1" "c2" "c1" "c1" "c2"
## [273,] "c2" "c1" "c2" "c1" "c1" "c3"
## [274,] "c2" "c1" "c2" "c1" "c2" "c1"
## [275,] "c2" "c1" "c2" "c1" "c2" "c2"
## [276,] "c2" "c1" "c2" "c1" "c2" "c3"
## [277,] "c2" "c1" "c2" "c1" "c3" "c1"
## [278,] "c2" "c1" "c2" "c1" "c3" "c2"
## [279,] "c2" "c1" "c2" "c1" "c3" "c3"
## [280,] "c2" "c1" "c2" "c2" "c1" "c1"
## [281,] "c2" "c1" "c2" "c2" "c1" "c2"
## [282,] "c2" "c1" "c2" "c2" "c1" "c3"
## [283,] "c2" "c1" "c2" "c2" "c2" "c1"
## [284,] "c2" "c1" "c2" "c2" "c2" "c2"
## [285,] "c2" "c1" "c2" "c2" "c2" "c3"
## [286,] "c2" "c1" "c2" "c2" "c3" "c1"
## [287,] "c2" "c1" "c2" "c2" "c3" "c2"
## [288,] "c2" "c1" "c2" "c2" "c3" "c3"
## [289,] "c2" "c1" "c2" "c3" "c1" "c1"
## [290,] "c2" "c1" "c2" "c3" "c1" "c2"
## [291,] "c2" "c1" "c2" "c3" "c1" "c3"
## [292,] "c2" "c1" "c2" "c3" "c2" "c1"
## [293,] "c2" "c1" "c2" "c3" "c2" "c2"
## [294,] "c2" "c1" "c2" "c3" "c2" "c3"
## [295,] "c2" "c1" "c2" "c3" "c3" "c1"
## [296,] "c2" "c1" "c2" "c3" "c3" "c2"
## [297,] "c2" "c1" "c2" "c3" "c3" "c3"
## [298,] "c2" "c1" "c3" "c1" "c1" "c1"
## [299,] "c2" "c1" "c3" "c1" "c1" "c2"
## [300,] "c2" "c1" "c3" "c1" "c1" "c3"
## [301,] "c2" "c1" "c3" "c1" "c2" "c1"
## [302,] "c2" "c1" "c3" "c1" "c2" "c2"
## [303,] "c2" "c1" "c3" "c1" "c2" "c3"
## [304,] "c2" "c1" "c3" "c1" "c3" "c1"
## [305,] "c2" "c1" "c3" "c1" "c3" "c2"
## [306,] "c2" "c1" "c3" "c1" "c3" "c3"
## [307,] "c2" "c1" "c3" "c2" "c1" "c1"
## [308,] "c2" "c1" "c3" "c2" "c1" "c2"
## [309,] "c2" "c1" "c3" "c2" "c1" "c3"
## [310,] "c2" "c1" "c3" "c2" "c2" "c1"
## [311,] "c2" "c1" "c3" "c2" "c2" "c2"
## [312,] "c2" "c1" "c3" "c2" "c2" "c3"
## [313,] "c2" "c1" "c3" "c2" "c3" "c1"
## [314,] "c2" "c1" "c3" "c2" "c3" "c2"
## [315,] "c2" "c1" "c3" "c2" "c3" "c3"
## [316,] "c2" "c1" "c3" "c3" "c1" "c1"
## [317,] "c2" "c1" "c3" "c3" "c1" "c2"
## [318,] "c2" "c1" "c3" "c3" "c1" "c3"
## [319,] "c2" "c1" "c3" "c3" "c2" "c1"
## [320,] "c2" "c1" "c3" "c3" "c2" "c2"
## [321,] "c2" "c1" "c3" "c3" "c2" "c3"
## [322,] "c2" "c1" "c3" "c3" "c3" "c1"
## [323,] "c2" "c1" "c3" "c3" "c3" "c2"
## [324,] "c2" "c1" "c3" "c3" "c3" "c3"
## [325,] "c2" "c2" "c1" "c1" "c1" "c1"
## [326,] "c2" "c2" "c1" "c1" "c1" "c2"
## [327,] "c2" "c2" "c1" "c1" "c1" "c3"
## [328,] "c2" "c2" "c1" "c1" "c2" "c1"
## [329,] "c2" "c2" "c1" "c1" "c2" "c2"
## [330,] "c2" "c2" "c1" "c1" "c2" "c3"
## [331,] "c2" "c2" "c1" "c1" "c3" "c1"
## [332,] "c2" "c2" "c1" "c1" "c3" "c2"
## [333,] "c2" "c2" "c1" "c1" "c3" "c3"
## [334,] "c2" "c2" "c1" "c2" "c1" "c1"
## [335,] "c2" "c2" "c1" "c2" "c1" "c2"
## [336,] "c2" "c2" "c1" "c2" "c1" "c3"
## [337,] "c2" "c2" "c1" "c2" "c2" "c1"
## [338,] "c2" "c2" "c1" "c2" "c2" "c2"
## [339,] "c2" "c2" "c1" "c2" "c2" "c3"
## [340,] "c2" "c2" "c1" "c2" "c3" "c1"
## [341,] "c2" "c2" "c1" "c2" "c3" "c2"
## [342,] "c2" "c2" "c1" "c2" "c3" "c3"
## [343,] "c2" "c2" "c1" "c3" "c1" "c1"
## [344,] "c2" "c2" "c1" "c3" "c1" "c2"
## [345,] "c2" "c2" "c1" "c3" "c1" "c3"
## [346,] "c2" "c2" "c1" "c3" "c2" "c1"
## [347,] "c2" "c2" "c1" "c3" "c2" "c2"
## [348,] "c2" "c2" "c1" "c3" "c2" "c3"
## [349,] "c2" "c2" "c1" "c3" "c3" "c1"
## [350,] "c2" "c2" "c1" "c3" "c3" "c2"
## [351,] "c2" "c2" "c1" "c3" "c3" "c3"
## [352,] "c2" "c2" "c2" "c1" "c1" "c1"
## [353,] "c2" "c2" "c2" "c1" "c1" "c2"
## [354,] "c2" "c2" "c2" "c1" "c1" "c3"
## [355,] "c2" "c2" "c2" "c1" "c2" "c1"
## [356,] "c2" "c2" "c2" "c1" "c2" "c2"
## [357,] "c2" "c2" "c2" "c1" "c2" "c3"
## [358,] "c2" "c2" "c2" "c1" "c3" "c1"
## [359,] "c2" "c2" "c2" "c1" "c3" "c2"
## [360,] "c2" "c2" "c2" "c1" "c3" "c3"
## [361,] "c2" "c2" "c2" "c2" "c1" "c1"
## [362,] "c2" "c2" "c2" "c2" "c1" "c2"
## [363,] "c2" "c2" "c2" "c2" "c1" "c3"
## [364,] "c2" "c2" "c2" "c2" "c2" "c1"
## [365,] "c2" "c2" "c2" "c2" "c2" "c2"
## [366,] "c2" "c2" "c2" "c2" "c2" "c3"
## [367,] "c2" "c2" "c2" "c2" "c3" "c1"
## [368,] "c2" "c2" "c2" "c2" "c3" "c2"
## [369,] "c2" "c2" "c2" "c2" "c3" "c3"
## [370,] "c2" "c2" "c2" "c3" "c1" "c1"
## [371,] "c2" "c2" "c2" "c3" "c1" "c2"
## [372,] "c2" "c2" "c2" "c3" "c1" "c3"
## [373,] "c2" "c2" "c2" "c3" "c2" "c1"
## [374,] "c2" "c2" "c2" "c3" "c2" "c2"
## [375,] "c2" "c2" "c2" "c3" "c2" "c3"
## [376,] "c2" "c2" "c2" "c3" "c3" "c1"
## [377,] "c2" "c2" "c2" "c3" "c3" "c2"
## [378,] "c2" "c2" "c2" "c3" "c3" "c3"
## [379,] "c2" "c2" "c3" "c1" "c1" "c1"
## [380,] "c2" "c2" "c3" "c1" "c1" "c2"
## [381,] "c2" "c2" "c3" "c1" "c1" "c3"
## [382,] "c2" "c2" "c3" "c1" "c2" "c1"
## [383,] "c2" "c2" "c3" "c1" "c2" "c2"
## [384,] "c2" "c2" "c3" "c1" "c2" "c3"
## [385,] "c2" "c2" "c3" "c1" "c3" "c1"
## [386,] "c2" "c2" "c3" "c1" "c3" "c2"
## [387,] "c2" "c2" "c3" "c1" "c3" "c3"
## [388,] "c2" "c2" "c3" "c2" "c1" "c1"
## [389,] "c2" "c2" "c3" "c2" "c1" "c2"
## [390,] "c2" "c2" "c3" "c2" "c1" "c3"
## [391,] "c2" "c2" "c3" "c2" "c2" "c1"
## [392,] "c2" "c2" "c3" "c2" "c2" "c2"
## [393,] "c2" "c2" "c3" "c2" "c2" "c3"
## [394,] "c2" "c2" "c3" "c2" "c3" "c1"
## [395,] "c2" "c2" "c3" "c2" "c3" "c2"
## [396,] "c2" "c2" "c3" "c2" "c3" "c3"
## [397,] "c2" "c2" "c3" "c3" "c1" "c1"
## [398,] "c2" "c2" "c3" "c3" "c1" "c2"
## [399,] "c2" "c2" "c3" "c3" "c1" "c3"
## [400,] "c2" "c2" "c3" "c3" "c2" "c1"
## [401,] "c2" "c2" "c3" "c3" "c2" "c2"
## [402,] "c2" "c2" "c3" "c3" "c2" "c3"
## [403,] "c2" "c2" "c3" "c3" "c3" "c1"
## [404,] "c2" "c2" "c3" "c3" "c3" "c2"
## [405,] "c2" "c2" "c3" "c3" "c3" "c3"
## [406,] "c2" "c3" "c1" "c1" "c1" "c1"
## [407,] "c2" "c3" "c1" "c1" "c1" "c2"
## [408,] "c2" "c3" "c1" "c1" "c1" "c3"
## [409,] "c2" "c3" "c1" "c1" "c2" "c1"
## [410,] "c2" "c3" "c1" "c1" "c2" "c2"
## [411,] "c2" "c3" "c1" "c1" "c2" "c3"
## [412,] "c2" "c3" "c1" "c1" "c3" "c1"
## [413,] "c2" "c3" "c1" "c1" "c3" "c2"
## [414,] "c2" "c3" "c1" "c1" "c3" "c3"
## [415,] "c2" "c3" "c1" "c2" "c1" "c1"
## [416,] "c2" "c3" "c1" "c2" "c1" "c2"
## [417,] "c2" "c3" "c1" "c2" "c1" "c3"
## [418,] "c2" "c3" "c1" "c2" "c2" "c1"
## [419,] "c2" "c3" "c1" "c2" "c2" "c2"
## [420,] "c2" "c3" "c1" "c2" "c2" "c3"
## [421,] "c2" "c3" "c1" "c2" "c3" "c1"
## [422,] "c2" "c3" "c1" "c2" "c3" "c2"
## [423,] "c2" "c3" "c1" "c2" "c3" "c3"
## [424,] "c2" "c3" "c1" "c3" "c1" "c1"
## [425,] "c2" "c3" "c1" "c3" "c1" "c2"
## [426,] "c2" "c3" "c1" "c3" "c1" "c3"
## [427,] "c2" "c3" "c1" "c3" "c2" "c1"
## [428,] "c2" "c3" "c1" "c3" "c2" "c2"
## [429,] "c2" "c3" "c1" "c3" "c2" "c3"
## [430,] "c2" "c3" "c1" "c3" "c3" "c1"
## [431,] "c2" "c3" "c1" "c3" "c3" "c2"
## [432,] "c2" "c3" "c1" "c3" "c3" "c3"
## [433,] "c2" "c3" "c2" "c1" "c1" "c1"
## [434,] "c2" "c3" "c2" "c1" "c1" "c2"
## [435,] "c2" "c3" "c2" "c1" "c1" "c3"
## [436,] "c2" "c3" "c2" "c1" "c2" "c1"
## [437,] "c2" "c3" "c2" "c1" "c2" "c2"
## [438,] "c2" "c3" "c2" "c1" "c2" "c3"
## [439,] "c2" "c3" "c2" "c1" "c3" "c1"
## [440,] "c2" "c3" "c2" "c1" "c3" "c2"
## [441,] "c2" "c3" "c2" "c1" "c3" "c3"
## [442,] "c2" "c3" "c2" "c2" "c1" "c1"
## [443,] "c2" "c3" "c2" "c2" "c1" "c2"
## [444,] "c2" "c3" "c2" "c2" "c1" "c3"
## [445,] "c2" "c3" "c2" "c2" "c2" "c1"
## [446,] "c2" "c3" "c2" "c2" "c2" "c2"
## [447,] "c2" "c3" "c2" "c2" "c2" "c3"
## [448,] "c2" "c3" "c2" "c2" "c3" "c1"
## [449,] "c2" "c3" "c2" "c2" "c3" "c2"
## [450,] "c2" "c3" "c2" "c2" "c3" "c3"
## [451,] "c2" "c3" "c2" "c3" "c1" "c1"
## [452,] "c2" "c3" "c2" "c3" "c1" "c2"
## [453,] "c2" "c3" "c2" "c3" "c1" "c3"
## [454,] "c2" "c3" "c2" "c3" "c2" "c1"
## [455,] "c2" "c3" "c2" "c3" "c2" "c2"
## [456,] "c2" "c3" "c2" "c3" "c2" "c3"
## [457,] "c2" "c3" "c2" "c3" "c3" "c1"
## [458,] "c2" "c3" "c2" "c3" "c3" "c2"
## [459,] "c2" "c3" "c2" "c3" "c3" "c3"
## [460,] "c2" "c3" "c3" "c1" "c1" "c1"
## [461,] "c2" "c3" "c3" "c1" "c1" "c2"
## [462,] "c2" "c3" "c3" "c1" "c1" "c3"
## [463,] "c2" "c3" "c3" "c1" "c2" "c1"
## [464,] "c2" "c3" "c3" "c1" "c2" "c2"
## [465,] "c2" "c3" "c3" "c1" "c2" "c3"
## [466,] "c2" "c3" "c3" "c1" "c3" "c1"
## [467,] "c2" "c3" "c3" "c1" "c3" "c2"
## [468,] "c2" "c3" "c3" "c1" "c3" "c3"
## [469,] "c2" "c3" "c3" "c2" "c1" "c1"
## [470,] "c2" "c3" "c3" "c2" "c1" "c2"
## [471,] "c2" "c3" "c3" "c2" "c1" "c3"
## [472,] "c2" "c3" "c3" "c2" "c2" "c1"
## [473,] "c2" "c3" "c3" "c2" "c2" "c2"
## [474,] "c2" "c3" "c3" "c2" "c2" "c3"
## [475,] "c2" "c3" "c3" "c2" "c3" "c1"
## [476,] "c2" "c3" "c3" "c2" "c3" "c2"
## [477,] "c2" "c3" "c3" "c2" "c3" "c3"
## [478,] "c2" "c3" "c3" "c3" "c1" "c1"
## [479,] "c2" "c3" "c3" "c3" "c1" "c2"
## [480,] "c2" "c3" "c3" "c3" "c1" "c3"
## [481,] "c2" "c3" "c3" "c3" "c2" "c1"
## [482,] "c2" "c3" "c3" "c3" "c2" "c2"
## [483,] "c2" "c3" "c3" "c3" "c2" "c3"
## [484,] "c2" "c3" "c3" "c3" "c3" "c1"
## [485,] "c2" "c3" "c3" "c3" "c3" "c2"
## [486,] "c2" "c3" "c3" "c3" "c3" "c3"
## [487,] "c3" "c1" "c1" "c1" "c1" "c1"
## [488,] "c3" "c1" "c1" "c1" "c1" "c2"
## [489,] "c3" "c1" "c1" "c1" "c1" "c3"
## [490,] "c3" "c1" "c1" "c1" "c2" "c1"
## [491,] "c3" "c1" "c1" "c1" "c2" "c2"
## [492,] "c3" "c1" "c1" "c1" "c2" "c3"
## [493,] "c3" "c1" "c1" "c1" "c3" "c1"
## [494,] "c3" "c1" "c1" "c1" "c3" "c2"
## [495,] "c3" "c1" "c1" "c1" "c3" "c3"
## [496,] "c3" "c1" "c1" "c2" "c1" "c1"
## [497,] "c3" "c1" "c1" "c2" "c1" "c2"
## [498,] "c3" "c1" "c1" "c2" "c1" "c3"
## [499,] "c3" "c1" "c1" "c2" "c2" "c1"
## [500,] "c3" "c1" "c1" "c2" "c2" "c2"
## [501,] "c3" "c1" "c1" "c2" "c2" "c3"
## [502,] "c3" "c1" "c1" "c2" "c3" "c1"
## [503,] "c3" "c1" "c1" "c2" "c3" "c2"
## [504,] "c3" "c1" "c1" "c2" "c3" "c3"
## [505,] "c3" "c1" "c1" "c3" "c1" "c1"
## [506,] "c3" "c1" "c1" "c3" "c1" "c2"
## [507,] "c3" "c1" "c1" "c3" "c1" "c3"
## [508,] "c3" "c1" "c1" "c3" "c2" "c1"
## [509,] "c3" "c1" "c1" "c3" "c2" "c2"
## [510,] "c3" "c1" "c1" "c3" "c2" "c3"
## [511,] "c3" "c1" "c1" "c3" "c3" "c1"
## [512,] "c3" "c1" "c1" "c3" "c3" "c2"
## [513,] "c3" "c1" "c1" "c3" "c3" "c3"
## [514,] "c3" "c1" "c2" "c1" "c1" "c1"
## [515,] "c3" "c1" "c2" "c1" "c1" "c2"
## [516,] "c3" "c1" "c2" "c1" "c1" "c3"
## [517,] "c3" "c1" "c2" "c1" "c2" "c1"
## [518,] "c3" "c1" "c2" "c1" "c2" "c2"
## [519,] "c3" "c1" "c2" "c1" "c2" "c3"
## [520,] "c3" "c1" "c2" "c1" "c3" "c1"
## [521,] "c3" "c1" "c2" "c1" "c3" "c2"
## [522,] "c3" "c1" "c2" "c1" "c3" "c3"
## [523,] "c3" "c1" "c2" "c2" "c1" "c1"
## [524,] "c3" "c1" "c2" "c2" "c1" "c2"
## [525,] "c3" "c1" "c2" "c2" "c1" "c3"
## [526,] "c3" "c1" "c2" "c2" "c2" "c1"
## [527,] "c3" "c1" "c2" "c2" "c2" "c2"
## [528,] "c3" "c1" "c2" "c2" "c2" "c3"
## [529,] "c3" "c1" "c2" "c2" "c3" "c1"
## [530,] "c3" "c1" "c2" "c2" "c3" "c2"
## [531,] "c3" "c1" "c2" "c2" "c3" "c3"
## [532,] "c3" "c1" "c2" "c3" "c1" "c1"
## [533,] "c3" "c1" "c2" "c3" "c1" "c2"
## [534,] "c3" "c1" "c2" "c3" "c1" "c3"
## [535,] "c3" "c1" "c2" "c3" "c2" "c1"
## [536,] "c3" "c1" "c2" "c3" "c2" "c2"
## [537,] "c3" "c1" "c2" "c3" "c2" "c3"
## [538,] "c3" "c1" "c2" "c3" "c3" "c1"
## [539,] "c3" "c1" "c2" "c3" "c3" "c2"
## [540,] "c3" "c1" "c2" "c3" "c3" "c3"
## [541,] "c3" "c1" "c3" "c1" "c1" "c1"
## [542,] "c3" "c1" "c3" "c1" "c1" "c2"
## [543,] "c3" "c1" "c3" "c1" "c1" "c3"
## [544,] "c3" "c1" "c3" "c1" "c2" "c1"
## [545,] "c3" "c1" "c3" "c1" "c2" "c2"
## [546,] "c3" "c1" "c3" "c1" "c2" "c3"
## [547,] "c3" "c1" "c3" "c1" "c3" "c1"
## [548,] "c3" "c1" "c3" "c1" "c3" "c2"
## [549,] "c3" "c1" "c3" "c1" "c3" "c3"
## [550,] "c3" "c1" "c3" "c2" "c1" "c1"
## [551,] "c3" "c1" "c3" "c2" "c1" "c2"
## [552,] "c3" "c1" "c3" "c2" "c1" "c3"
## [553,] "c3" "c1" "c3" "c2" "c2" "c1"
## [554,] "c3" "c1" "c3" "c2" "c2" "c2"
## [555,] "c3" "c1" "c3" "c2" "c2" "c3"
## [556,] "c3" "c1" "c3" "c2" "c3" "c1"
## [557,] "c3" "c1" "c3" "c2" "c3" "c2"
## [558,] "c3" "c1" "c3" "c2" "c3" "c3"
## [559,] "c3" "c1" "c3" "c3" "c1" "c1"
## [560,] "c3" "c1" "c3" "c3" "c1" "c2"
## [561,] "c3" "c1" "c3" "c3" "c1" "c3"
## [562,] "c3" "c1" "c3" "c3" "c2" "c1"
## [563,] "c3" "c1" "c3" "c3" "c2" "c2"
## [564,] "c3" "c1" "c3" "c3" "c2" "c3"
## [565,] "c3" "c1" "c3" "c3" "c3" "c1"
## [566,] "c3" "c1" "c3" "c3" "c3" "c2"
## [567,] "c3" "c1" "c3" "c3" "c3" "c3"
## [568,] "c3" "c2" "c1" "c1" "c1" "c1"
## [569,] "c3" "c2" "c1" "c1" "c1" "c2"
## [570,] "c3" "c2" "c1" "c1" "c1" "c3"
## [571,] "c3" "c2" "c1" "c1" "c2" "c1"
## [572,] "c3" "c2" "c1" "c1" "c2" "c2"
## [573,] "c3" "c2" "c1" "c1" "c2" "c3"
## [574,] "c3" "c2" "c1" "c1" "c3" "c1"
## [575,] "c3" "c2" "c1" "c1" "c3" "c2"
## [576,] "c3" "c2" "c1" "c1" "c3" "c3"
## [577,] "c3" "c2" "c1" "c2" "c1" "c1"
## [578,] "c3" "c2" "c1" "c2" "c1" "c2"
## [579,] "c3" "c2" "c1" "c2" "c1" "c3"
## [580,] "c3" "c2" "c1" "c2" "c2" "c1"
## [581,] "c3" "c2" "c1" "c2" "c2" "c2"
## [582,] "c3" "c2" "c1" "c2" "c2" "c3"
## [583,] "c3" "c2" "c1" "c2" "c3" "c1"
## [584,] "c3" "c2" "c1" "c2" "c3" "c2"
## [585,] "c3" "c2" "c1" "c2" "c3" "c3"
## [586,] "c3" "c2" "c1" "c3" "c1" "c1"
## [587,] "c3" "c2" "c1" "c3" "c1" "c2"
## [588,] "c3" "c2" "c1" "c3" "c1" "c3"
## [589,] "c3" "c2" "c1" "c3" "c2" "c1"
## [590,] "c3" "c2" "c1" "c3" "c2" "c2"
## [591,] "c3" "c2" "c1" "c3" "c2" "c3"
## [592,] "c3" "c2" "c1" "c3" "c3" "c1"
## [593,] "c3" "c2" "c1" "c3" "c3" "c2"
## [594,] "c3" "c2" "c1" "c3" "c3" "c3"
## [595,] "c3" "c2" "c2" "c1" "c1" "c1"
## [596,] "c3" "c2" "c2" "c1" "c1" "c2"
## [597,] "c3" "c2" "c2" "c1" "c1" "c3"
## [598,] "c3" "c2" "c2" "c1" "c2" "c1"
## [599,] "c3" "c2" "c2" "c1" "c2" "c2"
## [600,] "c3" "c2" "c2" "c1" "c2" "c3"
## [601,] "c3" "c2" "c2" "c1" "c3" "c1"
## [602,] "c3" "c2" "c2" "c1" "c3" "c2"
## [603,] "c3" "c2" "c2" "c1" "c3" "c3"
## [604,] "c3" "c2" "c2" "c2" "c1" "c1"
## [605,] "c3" "c2" "c2" "c2" "c1" "c2"
## [606,] "c3" "c2" "c2" "c2" "c1" "c3"
## [607,] "c3" "c2" "c2" "c2" "c2" "c1"
## [608,] "c3" "c2" "c2" "c2" "c2" "c2"
## [609,] "c3" "c2" "c2" "c2" "c2" "c3"
## [610,] "c3" "c2" "c2" "c2" "c3" "c1"
## [611,] "c3" "c2" "c2" "c2" "c3" "c2"
## [612,] "c3" "c2" "c2" "c2" "c3" "c3"
## [613,] "c3" "c2" "c2" "c3" "c1" "c1"
## [614,] "c3" "c2" "c2" "c3" "c1" "c2"
## [615,] "c3" "c2" "c2" "c3" "c1" "c3"
## [616,] "c3" "c2" "c2" "c3" "c2" "c1"
## [617,] "c3" "c2" "c2" "c3" "c2" "c2"
## [618,] "c3" "c2" "c2" "c3" "c2" "c3"
## [619,] "c3" "c2" "c2" "c3" "c3" "c1"
## [620,] "c3" "c2" "c2" "c3" "c3" "c2"
## [621,] "c3" "c2" "c2" "c3" "c3" "c3"
## [622,] "c3" "c2" "c3" "c1" "c1" "c1"
## [623,] "c3" "c2" "c3" "c1" "c1" "c2"
## [624,] "c3" "c2" "c3" "c1" "c1" "c3"
## [625,] "c3" "c2" "c3" "c1" "c2" "c1"
## [626,] "c3" "c2" "c3" "c1" "c2" "c2"
## [627,] "c3" "c2" "c3" "c1" "c2" "c3"
## [628,] "c3" "c2" "c3" "c1" "c3" "c1"
## [629,] "c3" "c2" "c3" "c1" "c3" "c2"
## [630,] "c3" "c2" "c3" "c1" "c3" "c3"
## [631,] "c3" "c2" "c3" "c2" "c1" "c1"
## [632,] "c3" "c2" "c3" "c2" "c1" "c2"
## [633,] "c3" "c2" "c3" "c2" "c1" "c3"
## [634,] "c3" "c2" "c3" "c2" "c2" "c1"
## [635,] "c3" "c2" "c3" "c2" "c2" "c2"
## [636,] "c3" "c2" "c3" "c2" "c2" "c3"
## [637,] "c3" "c2" "c3" "c2" "c3" "c1"
## [638,] "c3" "c2" "c3" "c2" "c3" "c2"
## [639,] "c3" "c2" "c3" "c2" "c3" "c3"
## [640,] "c3" "c2" "c3" "c3" "c1" "c1"
## [641,] "c3" "c2" "c3" "c3" "c1" "c2"
## [642,] "c3" "c2" "c3" "c3" "c1" "c3"
## [643,] "c3" "c2" "c3" "c3" "c2" "c1"
## [644,] "c3" "c2" "c3" "c3" "c2" "c2"
## [645,] "c3" "c2" "c3" "c3" "c2" "c3"
## [646,] "c3" "c2" "c3" "c3" "c3" "c1"
## [647,] "c3" "c2" "c3" "c3" "c3" "c2"
## [648,] "c3" "c2" "c3" "c3" "c3" "c3"
## [649,] "c3" "c3" "c1" "c1" "c1" "c1"
## [650,] "c3" "c3" "c1" "c1" "c1" "c2"
## [651,] "c3" "c3" "c1" "c1" "c1" "c3"
## [652,] "c3" "c3" "c1" "c1" "c2" "c1"
## [653,] "c3" "c3" "c1" "c1" "c2" "c2"
## [654,] "c3" "c3" "c1" "c1" "c2" "c3"
## [655,] "c3" "c3" "c1" "c1" "c3" "c1"
## [656,] "c3" "c3" "c1" "c1" "c3" "c2"
## [657,] "c3" "c3" "c1" "c1" "c3" "c3"
## [658,] "c3" "c3" "c1" "c2" "c1" "c1"
## [659,] "c3" "c3" "c1" "c2" "c1" "c2"
## [660,] "c3" "c3" "c1" "c2" "c1" "c3"
## [661,] "c3" "c3" "c1" "c2" "c2" "c1"
## [662,] "c3" "c3" "c1" "c2" "c2" "c2"
## [663,] "c3" "c3" "c1" "c2" "c2" "c3"
## [664,] "c3" "c3" "c1" "c2" "c3" "c1"
## [665,] "c3" "c3" "c1" "c2" "c3" "c2"
## [666,] "c3" "c3" "c1" "c2" "c3" "c3"
## [667,] "c3" "c3" "c1" "c3" "c1" "c1"
## [668,] "c3" "c3" "c1" "c3" "c1" "c2"
## [669,] "c3" "c3" "c1" "c3" "c1" "c3"
## [670,] "c3" "c3" "c1" "c3" "c2" "c1"
## [671,] "c3" "c3" "c1" "c3" "c2" "c2"
## [672,] "c3" "c3" "c1" "c3" "c2" "c3"
## [673,] "c3" "c3" "c1" "c3" "c3" "c1"
## [674,] "c3" "c3" "c1" "c3" "c3" "c2"
## [675,] "c3" "c3" "c1" "c3" "c3" "c3"
## [676,] "c3" "c3" "c2" "c1" "c1" "c1"
## [677,] "c3" "c3" "c2" "c1" "c1" "c2"
## [678,] "c3" "c3" "c2" "c1" "c1" "c3"
## [679,] "c3" "c3" "c2" "c1" "c2" "c1"
## [680,] "c3" "c3" "c2" "c1" "c2" "c2"
## [681,] "c3" "c3" "c2" "c1" "c2" "c3"
## [682,] "c3" "c3" "c2" "c1" "c3" "c1"
## [683,] "c3" "c3" "c2" "c1" "c3" "c2"
## [684,] "c3" "c3" "c2" "c1" "c3" "c3"
## [685,] "c3" "c3" "c2" "c2" "c1" "c1"
## [686,] "c3" "c3" "c2" "c2" "c1" "c2"
## [687,] "c3" "c3" "c2" "c2" "c1" "c3"
## [688,] "c3" "c3" "c2" "c2" "c2" "c1"
## [689,] "c3" "c3" "c2" "c2" "c2" "c2"
## [690,] "c3" "c3" "c2" "c2" "c2" "c3"
## [691,] "c3" "c3" "c2" "c2" "c3" "c1"
## [692,] "c3" "c3" "c2" "c2" "c3" "c2"
## [693,] "c3" "c3" "c2" "c2" "c3" "c3"
## [694,] "c3" "c3" "c2" "c3" "c1" "c1"
## [695,] "c3" "c3" "c2" "c3" "c1" "c2"
## [696,] "c3" "c3" "c2" "c3" "c1" "c3"
## [697,] "c3" "c3" "c2" "c3" "c2" "c1"
## [698,] "c3" "c3" "c2" "c3" "c2" "c2"
## [699,] "c3" "c3" "c2" "c3" "c2" "c3"
## [700,] "c3" "c3" "c2" "c3" "c3" "c1"
## [701,] "c3" "c3" "c2" "c3" "c3" "c2"
## [702,] "c3" "c3" "c2" "c3" "c3" "c3"
## [703,] "c3" "c3" "c3" "c1" "c1" "c1"
## [704,] "c3" "c3" "c3" "c1" "c1" "c2"
## [705,] "c3" "c3" "c3" "c1" "c1" "c3"
## [706,] "c3" "c3" "c3" "c1" "c2" "c1"
## [707,] "c3" "c3" "c3" "c1" "c2" "c2"
## [708,] "c3" "c3" "c3" "c1" "c2" "c3"
## [709,] "c3" "c3" "c3" "c1" "c3" "c1"
## [710,] "c3" "c3" "c3" "c1" "c3" "c2"
## [711,] "c3" "c3" "c3" "c1" "c3" "c3"
## [712,] "c3" "c3" "c3" "c2" "c1" "c1"
## [713,] "c3" "c3" "c3" "c2" "c1" "c2"
## [714,] "c3" "c3" "c3" "c2" "c1" "c3"
## [715,] "c3" "c3" "c3" "c2" "c2" "c1"
## [716,] "c3" "c3" "c3" "c2" "c2" "c2"
## [717,] "c3" "c3" "c3" "c2" "c2" "c3"
## [718,] "c3" "c3" "c3" "c2" "c3" "c1"
## [719,] "c3" "c3" "c3" "c2" "c3" "c2"
## [720,] "c3" "c3" "c3" "c2" "c3" "c3"
## [721,] "c3" "c3" "c3" "c3" "c1" "c1"
## [722,] "c3" "c3" "c3" "c3" "c1" "c2"
## [723,] "c3" "c3" "c3" "c3" "c1" "c3"
## [724,] "c3" "c3" "c3" "c3" "c2" "c1"
## [725,] "c3" "c3" "c3" "c3" "c2" "c2"
## [726,] "c3" "c3" "c3" "c3" "c2" "c3"
## [727,] "c3" "c3" "c3" "c3" "c3" "c1"
## [728,] "c3" "c3" "c3" "c3" "c3" "c2"
## [729,] "c3" "c3" "c3" "c3" "c3" "c3"Una caja contiene 4 canicas rojas, 3 canicas verdes y 2 canicas azules. Una canica es eliminada de la caja y no es reemplazada. Otra canica se saca de la caja.
canicas <- c('R', 'R', 'R', 'R', 'V', 'V', 'V', 'A', 'A')
n <- length(canicas)
# Revolver las canicas
canicas <- sample(canicas, size = n )
canicas## [1] "R" "R" "V" "V" "A" "A" "V" "R" "R"prob.R <- length(which(canicas == 'R')) / n
prob.V <- length(which(canicas == 'V')) / n
prob.A <- length(which(canicas == 'A')) / n
paste("La probabilidad de que la primera canica sea azul y la segunda canica sea verde es:", round(prob.A * prob.V * 100, 2), "%")## [1] "La probabilidad de que la primera canica sea azul y la segunda canica sea verde es: 7.41 %"El primer ejercicio se trato de 10 Canicas, y la pregunta realizada fue de la probabilidad de que salga una canica verde y fue de “16%”.
Segundo ejercicio consta de 15 camisas en 3 tamaños, 3 pequeñas, 6 medianas y 6 grandes. La cuestión era cuantas camisas se pueden repetir y cuál era su probabilidad “166”.
El ejercicio 3 trata sobre otras canicas, que contiene 4 rojas, 3 verdes, 2 azules, la probabilidad de que salga “R” “R” “V” “A” “R” “V” “V” “A” “R”, y la probabilidad de que la primera canica sea azul y la segunda verde es de “7.41”.