c <- (1,2,3,4,5,-6)
a <- c(1,2,3,4,5,-6)
std(a)
stdev(a)
sd(a)
quit()
