a <- c(2,3,4,3,4,5,4,3,6)

t.test(a,mu=3)

b <- c(4,5,5,5,4,6,7,8)

t.test(a,b)

var.test(a,b)
t.test(a,b, var.equal=TRUE)

boxplot(a)
boxplot(a,b)

hist(a)

qqnorm(a)
plot(ecdf(a))


dd <- rnorm(50,3,1)