data <- read.csv("/u1/junk/weather/Indianapolis-Weather-Station-USW00093819-1950-2018.csv")

summary(data)

table(data)

View(data)

nrow(data)

ncol(data)

dim(data)

head(data)

tail(data)

data[1,]

data[1:2, 1:2]

colnames(data)

mean(data$MEAN)

mean(data$TMAX - data$TMIN)

hist(data$TMAX)

boxplot(data[,2:6])