data_cor <- read.csv("cornwell.csv") short <- c("county", "year", "lcrmrte", "lprbconv", "lprbpris", "lavgsen", "ldensity", "lwcon", "lwtuc", "lwtrd", "lwfir", "lwser", "lwmfg", "lwfed", "lwsta", "lwloc", "lpctymle", "d82", "d83", "d84", "d85", "d86", "d87","west", "central", "urban", "lpolpc", "lprbarr","ltaxpc","lmix","lpctmin") data_cor <- data_cor[,names(data_cor)%in%short] write.table(data_cor, "cornwell1.csv", quote =F, sep=",", row.names=F)