#open file
rain=matrix(scan("aismr.txt"),ncol=13,byrow=T)
#get the mean for July month.
mean(rain[,7])
#standard deviation
sd(rain[,7])