1. Write a function of one variable that for an input numeric vector, computes the mean of the samples above the median. Check that the input is a numeric vector and if it isn’t, return an appropriate message about the wrong function argument.
  2. Write a function that given a data.frame, reports the numbers of columns of each possible class.