I have read two .csv files and did some editing.
>a1<-read.csv("2013.csv",header=T, na.strings = c("NULL","PrivacySuppressed"))
>a2<-a1[,441,drop=F]
>a3<-a1[,-441,drop=F]
>a4<-cbind(a1,a2)
>a4<-a4[, colSums(is.na(a4)) != nrow(a4)]
> mode(a4)
>[1] "list"
I need the a4 to be...