R/alphabet.R

In CorReg: Linear Regression Based on Linear Structure Between Variables

alphabet <- function(minuscules = TRUE, majuscules = TRUE, both = FALSE, timer = FALSE, nbTry = 10, timeTry = 5)
{
   if (!both) {
      loc = c(LETTERS, letters)
      
      if (timer)
      {
         for (i in 1:nbTry)
         {
            plot(runif(1), runif(1), pch = sample(loc, size = 1), cex = sample(2:10, 1), axes = FALSE, xlab = "", ylab = "", xlim = c(-0.2, 1.2), ylim = c(-0.2, 1.2))
            Sys.sleep(timeTry)
         }
      }
      else
      {
         plot(runif(1), runif(1), pch = sample(loc, size = 1), cex = sample(2:10, 1), axes = FALSE, xlab = "", ylab = "", xlim = c(-0.2, 1.2), ylim = c(-0.2, 1.2))
      }
   }
   else {
      loc = sample(1:26, size = 1)
      lettre = paste(LETTERS[loc], letters[loc])
      plot(1, pch = lettre, lwd = 2, axes = FALSE, xlab = "", ylab = "", col = "white")
      legend(x = 0.6, y = 1.4, legend = lettre, cex = 6, bty = "n", text.col = sample(colors(), size = 1))
   }
}