switch-test.R

switchtest<-function(n)
{
  switch(n,
         print("Monday"),
         print("Tuesday"),
         print("Wednesday"),
         print("Thursday"),
         print("Friday"),
         print("Saturday"),
         print("Sunday"))
}
switchtest(1)

## [1] "Monday"

switchtest(2)

## [1] "Tuesday"

switchtest(3)

## [1] "Wednesday"

switchtest(4)

## [1] "Thursday"

switchtest(5)

## [1] "Friday"

switchtest(6)

## [1] "Saturday"

switchtest(7)

## [1] "Sunday"