Wealth Distribution/Lesson R

data_raw <- read.csv("WD_.csv",  ##  имя датасета
                     skip = 6, 
                     header = TRUE, 
                     stringsAsFactors = FALSE)

data_clean <- data_raw[complete.cases(data_raw), ]