fileNames <- c("test_categorical.csv","test_date.csv","test_numeric.csv",
        "train_categorical.csv","train_date.csv","train_numeric.csv")

for(i in 1:length(fileNames)) {

#Explore file sizes, dimensions & features, summary statistics 
# & Class Occurence

temp.filename = fileNames[i]
print(paste("File Analyzed", fileNames[i], sep =" "))

temp.file = read.csv(paste("../input/",temp.filename, sep = ""),
stringsAsFactors = FALSE, nrow = 100000)

temp.dim <- dim(temp.file)
temp.features = names(temp.file)

cat(paste(c("Instances","Features"), temp.dim, sep = " "))
cat("Features in Dataset")
cat(temp.features)

}