typo fix

diff --git a/transliterations/analysis/related_searches_example.R b/transliterations/analysis/related_searches_example.R
index 19ddfc76de29de4ebf6bc8b4f79f7ad871ab4a2f..2576d4a862b066423fa6142ee3c53e5dfc4580a3 100644 (file)
--- a/transliterations/analysis/related_searches_example.R
+++ b/transliterations/analysis/related_searches_example.R
@@ -19,7 +19,7 @@ top5.per.term.date <- aggregate(query ~ term + date,
                                 head, 5)
 
 ## Might cleanup a bit for further analysis or visualization...
                                 head, 5)
 
 ## Might cleanup a bit for further analysis or visualization...

-top5.per.term.date$date <- asDate(top5.per.term.date$date)
+top5.per.term.date$date <- as.Date(top5.per.term.date$date)

 
 ### Export
 write.table(top5.per.term.date,
 
 ### Export
 write.table(top5.per.term.date,