X-Git-Url: https://code.communitydata.science/covid19.git/blobdiff_plain/a3e40a072f09f5faee5b12df27f313f75d087f3a:/keywords/analysis/related_searches_example.R..974dc48b12aed59fb5bf4ffdd41a6a00e5f5aa47:/keywords/example_analysis/static/git-logo.png

diff --git a/keywords/analysis/related_searches_example.R b/keywords/analysis/related_searches_example.R
deleted file mode 100644
index e1197b6..0000000
--- a/keywords/analysis/related_searches_example.R
+++ /dev/null
@@ -1,36 +0,0 @@
-### COVID-19 Digital Observatory
-### 2020-03-28
-### 
-### Minimal example analysis file using trending search data
-
-### Import and cleanup data
-
-DataURL <-
-    url("https://github.com/CommunityDataScienceCollective/COVID-19_Digital_Observatory/blob/master/transliterations/data/output/related_searches_top.csv")
-
-related.searches.top <- read.table(DataURL,
-                           sep=",", header=TRUE,
-                           stringsAsFactors=FALSE) 
-
-### Alternatively, uncomment and run if working locally with full git tree
-### Identify data source directory and file
-## DataDir <- ("../data/output/")
-## DataFile <- ("related_searches_top.csv")
-
-## 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 <- as.Date(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)
-