MtnSkyRaw <- read.table(file.choose(), sep = "|", header=TRUE)
## Warning in scan(file = file, what = what, sep = sep, quote = quote, dec =
## dec, : EOF within quoted string
## Warning in scan(file = file, what = what, sep = sep, quote = quote, dec =
## dec, : number of items read is not a multiple of the number of columns
library(DataExplorer)
plot_missing(MtnSkyRaw[1:26])

plot_missing(MtnSkyRaw[26:51])

plot_missing(MtnSkyRaw[51:76])

plot_missing(MtnSkyRaw[76:101])

plot_missing(MtnSkyRaw[101:126])

plot_missing(MtnSkyRaw[126:151])

plot_missing(MtnSkyRaw[151:176])

plot_missing(MtnSkyRaw[176:201])

plot_missing(MtnSkyRaw[203:228])
