Durante los meses de abril, mayo y junio, he estado hablándoos de mi nuevo curso de Udemy, Aplicaciones Web de Big Data para Data Scientist con Shiny y R.
Ha llegado el día, el curso está preparado y, como lo prometido es deuda, voy a hacer el sorteo en R Markdown (para generar ficheros con código incrustado y ejecutado en caliente).
Había 3 categorías: * Alumnos que hayan utilizado el código ABRIL_CURSOSMIL y 40MAYO_HEROE * Alumnos que tengan mis 2 cursos y me mandaran un mensaje con ¡Quiero el curso de Shiny * Alumnos que compartieran los cupones con amigos y ellos se apuntaran a mis cursos
En la última catergoría no ha habido participantes, así que el tercer curso saldrá de los participantes en lqas otras 2 catergorías.
Los usuarios que han adquirido mis cursos a través de los cupones antes descritos son:
usuarios_cupones <- read.csv("usuarios_cupones_concurso.csv", stringsAsFactors = FALSE)
usuarios_cupones## x
## 1 Efrain Mena Delgado
## 2 Guillermo Escamilla
## 3 David Martos Molina
## 4 Jose Manuel Alcaide Carrera
## 5 Buffet Gabriela
## 6 Santiago Gonz\xe1lez P\xe9rez
## 7 Lucas Baldisones Horcouripe
## 8 Ernesto Gilberto Valenzuela Gallardo
## 9 Noe Benitez Bautista
## 10 Mart\xedn Alejandro Orozco Aguilar
## 11 Jaime Guerrero
## 12 Pedro Mart\xednPara hacer el concurso utilizaré una semilla (seed) para que sea reproducible. El valor de esa semilla es la fecha de mi cumpleaños. Es decir, ¡¡¡Hoy 22 de Junio!!!
Así que procedemos al sorteo:
set.seed(2206); ganador_cupones <- sample(usuarios_cupones$x, size = 1)
ganador_cupones## [1] "David Martos Molina"¡Felicidades, David Martos Molina!!!
Te enviaré un mensaje privado con el enlace del curso gratuito.
Algunos de los alumnos que tenían comprados los 2 cursos, no podían adquirir ninguno más con los cupones, así que, como premio a su fidelidad, si me mandaban el mensaje ¡Quiero el curso de Shiny participarían en el concurso.
Los alumnos que optan a esta categoría son:
usuarios_2cursos <- read.csv("usuarios_2cursos.csv", stringsAsFactors = FALSE)
usuarios_2cursos## x
## 1 Juan Carlos Benito
## 2 Luis Eduardo Polania
## 3 Santiago Gonz\xe1lez P\xe9rez
## 4 Xavier Villaronga
## 5 Martin Valenzuela
## 6 Noelia Soledad Fern\xe1ndez
## 7 Eduardo L\xf3pez Melo
## 8 Norberto Vera Reatiga
## 9 Coco
## 10 Jose Manuel Alcaide Carrera
## 11 Juan Moreno
## 12 Xavier VillarongaNotaréis que Xavier Villaronga aparece dos veces. Fue el primer participante, y fue tan rápido que me asombró, y le premié con otra oportunidad para participar.
En esta ocasión voy a utilizar mi año de nacimiento, 1979, para la semilla.
Y el ganador es:
set.seed(1979); ganador_2cursos <- sample(usuarios_2cursos$x, size = 1)
ganador_2cursos## [1] "Juan Moreno"¡Enhorabuena Juan Moreno!
En esta categoría juntamos todos los participantes, tanto los de la primera como los de la segunda.
usuarios_total <- c(usuarios_cupones$x, usuarios_2cursos$x)
usuarios_total## [1] "Efrain Mena Delgado"
## [2] "Guillermo Escamilla"
## [3] "David Martos Molina"
## [4] "Jose Manuel Alcaide Carrera"
## [5] "Buffet Gabriela"
## [6] "Santiago Gonz\xe1lez P\xe9rez"
## [7] "Lucas Baldisones Horcouripe"
## [8] "Ernesto Gilberto Valenzuela Gallardo"
## [9] "Noe Benitez Bautista"
## [10] "Mart\xedn Alejandro Orozco Aguilar"
## [11] "Jaime Guerrero"
## [12] "Pedro Mart\xedn"
## [13] "Juan Carlos Benito"
## [14] "Luis Eduardo Polania"
## [15] "Santiago Gonz\xe1lez P\xe9rez"
## [16] "Xavier Villaronga"
## [17] "Martin Valenzuela"
## [18] "Noelia Soledad Fern\xe1ndez"
## [19] "Eduardo L\xf3pez Melo"
## [20] "Norberto Vera Reatiga"
## [21] "Coco"
## [22] "Jose Manuel Alcaide Carrera"
## [23] "Juan Moreno"
## [24] "Xavier Villaronga"Y para generar la semilla voy a utilizar un comando nuevo, se llama char2seed() y lo proporciona la librería TeachingDemos. Básicamente permite crear una semilla a partir de un string de texto.
Como no podía ser de otra forma, el texto será: Héroes del Dato
library(TeachingDemos)
char2seed("HeroesdelDato"); ganador_total <- sample(usuarios_total, 1)Muchas felicidades, Jose Manuel Alcaide Carrera
Ya tenemos a los 3 ganadores del concurso:
¡Enhorabuena a los 3!!!
Y gracias a todos por participar en el concurso y mantener la comunidad de los Héroes del Dato, más viva que nunca.
Os espero en los cursos, en mis redes sociales y en www.heroesdeldato.com para seguir con esta emocionante aventura.