Week1 2014 data

bike2014<-read.table("bike2014.csv",sep = ",")

2014 bike origin-destination matrix

od<- function(data){
  odmatrix<-as.data.frame.matrix(table(data$StartStation.Id,data$EndStation.Id))
  frq<-as.data.frame(table(data$StartStation.Id,data$EndStation.Id))
  frq<-frq[with(frq, order(Freq,decreasing = T)),] 
  colnames(frq)<- c("StartStation.Id","EndStation.Id","Freq")
  print(head(odmatrix[c(1:10),c(1:10)]))
  print(head(frq[c(1:10),]))
}
od(bike2014)

##     1   2   3   4   5   6  7 8  9 10
## 1 401   0  45  21   1   6  1 0  0  7
## 2   0 343   0   0  26   6  0 0  4  1
## 3  36   0 127  11   1   6  2 0 16 23
## 4   8   2  13 252   0  66  5 0 24 24
## 5   1   7   0   2 364  15  1 0  6  3
## 6  15   7   5  45   2 293 66 8  3  3
##        StartStation.Id EndStation.Id  Freq
## 140803             191           191 26671
## 227101             307           307 13376
## 224073             303           303 12805
## 300530             406           406 10423
## 183952             248           248  8017
## 299016             404           404  7051