library(moments)
printInfo <- function(myVector)
{
cat(
"mean: ", mean(myVector), "\n",
"median: ", median(myVector), "\n",
"min: ", min(myVector), "\n",
"max: ", max(myVector), "\n",
"sd: ", sd(myVector), "\n",
"quantile: ", quantile(myVector, probs = c(0.05, 0.95)), "\n",
"skewness: ", skewness(myVector), "\n")
}