data <- read.csv("data.csv", sep=",") data <- data[-15,] #remove data after 1935 data[,2] <- data[,2]/1000000 #devide data by 1000000 to get "millions" on...
