This is an R version of the 2048 game