R code for the statsstats first logo