-### COVID-19 Digital Observatory
-### 2020-03-28
-###
-### Minimal example analysis file using trending search data
-
-### Identify data source directory and file
-DataDir <- ("../data/output/")
-DataFile <- ("related_searches_top.csv")
-
-### Import and cleanup data
-related.searches.top <- read.table(paste(DataDir,DataFile,
- sep=""),
- sep=",", header=TRUE,
- stringsAsFactors=FALSE)
-
-### Aggregate top 5 search queries by term/day
-top5.per.term.date <- aggregate(query ~ term + date,
- data=related.searches.top,
- head, 5)
-
-## Might cleanup a bit for further analysis or visualization...
-top5.per.term.date$date <- asDate(top5.per.term.date$date)
-
-### Export
-write.table(top5.per.term.date,
- file="output/top5_queries_per_term_per_date.csv", sep=",",
- row.names=FALSE)
-