search for: economy_2

...])) r[[i]][, 2:5]<-lapply(r[[i]][, 2:5], function(x) {as.numeric(as.character(x))}) #n.rows<-dim(r[[i]])[1] #r[[i]]<-r[[i]][9 } #This code is my first attempt at introducing a search string, getting the rows, binding and plotting; economy<-r[[10]][grep('Economy', r[[10]][,1]),] economy_2<-r[[11]][grep('Economy', r[[11]][,1]),] test<-cbind(economy, economy_2) plot(as.numeric(test), type='l') #here's another attempt I'm trying.... economy<-data.frame for (i in 15:19) { economy[i,] <-r[[i]][grep('Economy', r[[i]][,1]), ] } Begin forwarded...