Writing function that calculates descriptive statistics for both numeric and categorical variables (factors)

Question

As the title says, I am trying to write a function (called \'table1\') that calculates descriptive statistics for both numeric and categorical variables.

Impo