get.dates<-function(loc){ setwd(loc) df<-data.frame(read.csv('rawPosts.csv')) date<-data.frame(table(df)) write.csv(date,'datePosts.csv') df2<-data.frame(read.csv('rawQs.csv')) date2<-data.frame(table(df2)) write.csv(date2,'dateQs.csv') if(date[1,1]==date2[1,1]){ full<-data.frame(date,date2[2]) fullt<-data.frame(t(full)) rownames(fullt)<-c("date","posts","qs") colnames(fullt)<-NULL write.csv(fullt,'forGraph.csv',col.names=NULL) } if(date[1,1]!=date2[1,1]){ print('Nope') } setwd('~/') }
Categories