train <- data.frame(read.csv("../input/train.csv", header = T))
str(train)
summary(train)
names(train)

apply(train, 2, function(x) length(unique(x)))