Write a function that takes as an input a vector of data as well as a second (numeric) variable. This

function manually (that is not using R-provided built-in functions!) calculates the

Arithmetic) mean,

(Sample) Standard deviation,

Median