StatDes <- function(x)
{
   a <- mean(x,na.rm=TRUE)
   b <- sd(x,na.rm=TRUE)
   c <- median(x,na.rm=TRUE)
   d <- quantile(x, probs=0.25,na.rm=TRUE)
   e <- quantile(x, probs=0.75,na.rm=TRUE)
   f <- min(x,na.rm=TRUE)
   g <- max(x,na.rm=TRUE)
   out <- c(a,b,c,d,e,f,g)
   out
}