sausheong / everyday Goto Github PK

inbox_count <- dates_count(dates=inbox_data['date'], element='%a')
sent_count <- dates_count(dates=sent_data['date'], element='%a')

days_of_week <- c("Mon","Tue","Wed","Thu","Fri","Sat","Sun")

> test <- function(dates,element) {
+  dates <- as.Date(as.vector(as.matrix(dates)),"%Y-%m-%dT%H:%M:%S")
+ elements <- format(dates, element)
+ data.frame(table(elements))
+ }
> inbox_test <- test(dates=inbox_data['date'], element='%a')
> inbox_test
  elements Freq
1      Fri 1983
2      Mon 1568
3      Sat  142
4      Sun  360
5      Thu 1845
6      Tue 1776
7      Wed 1940

-inbox_data <- read.table("inbox_data_enron.csv", header=TRUE, sep=",")
+inbox_data <- read.table("inbox_data_enron.csv", header=TRUE, sep=",",comment.char='',quote='')