X <- read.csv("U:/public_html/588/Class4/cloud.csv", header =TRUE)

dim(X)
boxplot(X[,1] ~ X[,2])

Z <- log(X[,1])

 boxplot(Z ~ X[,2])
 t.test(Z ~ X[,2])