Modern R Programming Cookbook

How to do it…

Let's take a look at the following steps to perform the given task of calculating the mean, standard deviation, median, and MAD based on a value of another variable sym:

1. Execute the first implementation using the switch function as follows:

        option1 <- function(x, sym){          switch(sym, classical = c(mean= mean(x, na.rm = T), std =               sd(x, na.rm = T)), robust = c(med = median(x, na.rm = T),           mad = mad(x, na.rm = T))         )        }

2. Execute the second implementation using the if…else if …else statement as follows:

       option2 <- function(x, sym){          if(sym=="classical"){            out <- c(mean = mean(x,na.rm = T), std= sd(x,na.rm = T))            return(out)          }          else if(sym=="robust"){            out <- c(med = median(x, na.rm = T), mad = mad(x, na.rm =             T))            return(out)          } else ...