FizzBuzz application written in R

FizzBuzz.R

 FizzBuzz <- function(M)
  {
    for (intL in 1:M)
     {
       if (intL %% 15 == 0) print("FizzBuzz")
       else
         if (intL %% 5 == 0) print("Buzz")
         else
           if (intL %% 3 == 0) print("Fizz")
           else
             print(intL)
     }
  }