# Rscript summary handshake-duration.txt

require(grDevices) # for colours

tbl <- read.table(file=commandArgs(TRUE)[1])
val <- tbl[1]

summary(val)
# standarddeviation=sd(unlist(val))
sd(unlist(val))
# print (standarddeviation, zero.print="standard deviation: ")

# confint.default (val)
t.test (val)