Noticed all these posts on r-bloggers about ggplot2 and shiny? Do you want in? My course “Building Interactive Graphs with ggplot2 and Shiny” (published by Packt Publishing) covers those 2 packages in a series of 40 videos, each one dedicated to one concept at the time. After this course, you’ll be able to make fancy customised plots and publish them on the internet on some cool interactive webpages to be shared with the world!
Now, I am pleased to announce that I have teamed up with Packt Publishing to organise a giveaway! Three (3) of you beautiful readers are going to get this course for free!
Here’s how it works:
- Simply leave a comment below (e.g. “I want it!”, “You rock!” or whatever takes your fancy) together with your email address*.
- After the deadline (Wed. 09th July at midnight, UK time), I’ll pick 3 winners at random.
Winners will be contacted by email, so be sure to use your real email address when you comment!
(By the way here’s a question for you to ponder over: how do you pick three numbers between 1 and n at random, transparently so that no-one can contest the fairness of the selection?)
* Use the field “email” in the form; the address won’t show in the comment.
EDIT: Don’t worry if I don’t approve your comment straight away. I’ll get to it as soon as I can. Thanks.
UPDATE: The comments are now closed. Thanks for the great response! I’ll announce the 3 winners early next week, after selecting them with the strategy explained here.
SECOND UPDATE: We have the winners!
I have followed the protocol I designed here and selected 3 lucky winners. I got the list of unique participants sorted by their posting date directly from the blog’s database and ran the following code:
players <- read.csv2("wp_comments.csv", sep=",", header=FALSE, col.names=c("ID","PlayerName")) lotteryResult <- c(3,19,23,28,37,43,34) # UK national lottery resultst on the 12th July 2014 https://www.national-lottery.co.uk/player/lotto/results/results.ftl nPlayers <- nrow(players) nWinners <- 3 allCombinations <- combn(nPlayers,nWinners,simplify = FALSE) index <- ceiling(choose(nPlayers, nWinners) * lexicographicIndex(lotteryResult, 49) / choose(49,7)) winners <- allCombinations[[index]] cat("\n The winners are:", winners) cat("\n that is:") print(players[winners,])
So the winners are:
Eduardo, David and Jeff: packt will contact you soon about this.
Thanks again everyone for playing, it was great to see such a great response to the competition!