hello

library(visdat)
train <- read.csv("train.csv")
vis_dat(train)