# script capturing flow of parts through stations
# see forums for additional discussion

system("ls ../input")


###################################################
##### sample and aggregate at the Station level ###
###################################################



## wd etc ####
library(data.table)
library(recommenderlab)
y<-NULL

## date ####
train_date <- fread('../input/train_date.csv', nrows=10000)
for (i in 2:1157)
{
new.variable <- as.vector(train_date[,i,with=F])
y<-c(y,new.variable)
}
Timestamp<-c(do.call("cbind",y))
library(ggplot2)    

ggplot() + aes(Timestamp)+ geom_histogram(binwidth=0.01, colour="black", fill="white")