El 14-sep terminó el plazo para participar en el concuros ¡¡¡Big comentario, Big Biblioteca!!!.

El concurso consistía en realizar un comentario según los siguientes criterios:

El premio consiste en, para ayudarte con tus estudios, y con tu interés en la Ciencia de los Datos y el Big Data, un pack de libros y vídeos sobre Big Data y Data Science. Son los libros y los vídeos originales de la prestigiosa editorial PACKT y te los podrás descargar y tenerlos para siempre, totalmente legales.

Son 17 libros en formato electrónico y 8 vídeos explicativos de algunos libros.

El pack está valorado en 1479 dólares, ¡¡¡casi 1500 dólares en libros y vídeos!!!

Los seleccionados

De todos los comentarios recibidos desde el inicio del concurso (52), he seleccionado los que más me ahn gustado cumpliendo los requerimientos antes citados.

Las personas que han hecho estos comentarios son: * Irving Gabriel Ocampo * Edison Romero * Edgar Mejia * Javier Mansilla * ing. Raúl Sánchez Azuara Barrón * Angy Carolina De Los Reyes Espinosa * Santiago González (curso Computer Vision) * Santiago González (curso Aplicaciones Shiny) * Santiago González (curso Data Scientist) * Julián Coronel Reyes * Jorge Borjas * Rigoberto Chandomi Vazquez * Felix Angel Abalia Macias Perez * Aarón Hernanz * Miguel Angel Salazar Kovaleff * Julio Edgard Becerra Nuñez (curso Computer Vision) * Xavier Villaronga * Julio Edgard Becerra Nuñez (curso Aplicaciones Shiny) * Jaime Escobar Aguirre * Moisés Miranda

Son 20 seleccionados por escribir comentarios interesantes, divertidos o útiles para sus compañeros.

seleccionados <- c("Irving Gabriel Ocampo",
"Edison Romero",
"Edgar Mejia",
"Javier Mansilla",
"ing. Raúl Sánchez Azuara Barrón",
"Angy Carolina De Los Reyes Espinosa",
"Santiago González (curso Computer Vision)",
"Santiago González (curso Aplicaciones Shiny)",
"Santiago González (curso Data Scientist)",
"Julián Coronel Reyes",
"Jorge Borjas",
"Rigoberto Chandomi Vazquez",
"Felix Angel Abalia Macias Perez",
"Aarón Hernanz",
"Miguel Angel Salazar Kovaleff",
"Julio Edgard Becerra Nuñez (curso Computer Vision)",
"Xavier Villaronga",
"Julio Edgard Becerra Nuñez (curso Aplicaciones Shiny)",
"Jaime Escobar Aguirre",
"Moisés Miranda")

seleccionados
##  [1] "Irving Gabriel Ocampo"                                
##  [2] "Edison Romero"                                        
##  [3] "Edgar Mejia"                                          
##  [4] "Javier Mansilla"                                      
##  [5] "ing. Raúl Sánchez Azuara Barrón"                      
##  [6] "Angy Carolina De Los Reyes Espinosa"                  
##  [7] "Santiago González (curso Computer Vision)"            
##  [8] "Santiago González (curso Aplicaciones Shiny)"         
##  [9] "Santiago González (curso Data Scientist)"             
## [10] "Julián Coronel Reyes"                                 
## [11] "Jorge Borjas"                                         
## [12] "Rigoberto Chandomi Vazquez"                           
## [13] "Felix Angel Abalia Macias Perez"                      
## [14] "Aarón Hernanz"                                        
## [15] "Miguel Angel Salazar Kovaleff"                        
## [16] "Julio Edgard Becerra Nuñez (curso Computer Vision)"   
## [17] "Xavier Villaronga"                                    
## [18] "Julio Edgard Becerra Nuñez (curso Aplicaciones Shiny)"
## [19] "Jaime Escobar Aguirre"                                
## [20] "Moisés Miranda"

Para hacer el concurso utilizaré una semilla (seed) para que sea reproducible. El valor de esa semilla lo calcularé utilizando el nombre del concurso, en minúsculas y sin espacios, es decir: bigcomentariobigbiblioteca, que, en el vector letters (las letras del abecedario ordenadas), podremos definir un valor numérico.

texto <- "bigcomentariobigbiblioteca"
semilla <- 0
for (i in 1:nchar(texto)) {
  letra <- substr(texto, i, i)
  semilla <- semilla + which(letters == letra)
}

Recorremos el nombre del concurso (texto) y vamos sumando el valor de cada letra que obtenemos en la variable (letra) y, mediante el comando (which()) nos permite obtener un valor numérico para la letra, la ‘a’ es 1, ‘b’ es 2, etc. Obtenemos un valor para la semilla de 227

Procedemos al sorteo, usando el valor de la semilla recién calculado:

set.seed(semilla); ganador <- sample(seleccionados, size = 1)
ganador
## [1] "Aarón Hernanz"

¡Felicidades, Aarón Hernanz!!!

Te enviaré un mensaje privado con el enlace para que puedas descargar los libros y todo el material adicional.