Modern R Programming Cookbook

Getting ready

Your objective is to create a function that will calculate the following two types of descriptive statistics:

• Classical (mean and standard deviation)
• Robust (median and MAD)

The following is the vector of numeric values for the input. Your new function will take two inputs, one is the numeric vector and another is the type (either "classical" or "robust"). The function will return an object of the S4 class containing the following results:

    x <- c(13, 21, 19, 18, 21, 16, 21, 24, 17, 18, 12, 18, 29, 17, 18,     11, 13, 20, 25, 18, 15, 19, 21, 21, 7, 12, 23, 31, 16, 19, 23, 15,    25, 19, 15, 25, 25, 16, 29, 15, 26, 29, 23, 24, 20, 19, 14, 27, 22,    26)