# NOT RUN {
dt <- lagosne_load("1.054.1")
dt2 <- lagosne_load("1.054.2")
compare_columns <- function(num){
identical(dt2$epi_nutr[,num], dt$epi_nutr[,num])
}
names(dt2$epi_nutr)[sapply(13:94, compare_columns)]
# }
Run the code above in your browser using DataLab