library(RPostgreSQL)
drv <- dbDriver("PostgreSQL")
con <- dbConnect(drv, host="127.0.0.1",
port=5432, dbname="postgres",user="postgres",
password="shaggy")
rs <- dbSendQuery(con,"select * from pmoy.data5min2010")
data<-fetch(rs,n=-1)

data<-fetch(rs,n=-1)

det_id          time_stamp dayoftheweek idx_5min   speed    volume
3  401911 2010-08-11 05:00:00            3       60 63.7924  899.0000
4  400674 2010-08-11 05:00:00            3       60 63.6771 1311.0000
5  314853 2010-08-11 05:00:00            3       60 63.9762 1019.0000
6  400673 2010-08-11 05:00:00            3       60 64.4692  532.3333
7  401913 2010-08-11 05:00:00            3       60 64.1504  848.5000
8  401177 2010-08-11 05:00:00            3       60 64.2814 1259.0000
9  401914 2010-08-11 05:00:00            3       60 64.2291  771.5000
10 401178 2010-08-11 05:00:00            3       60 64.3218  679.0000
11 401362 2010-08-11 05:00:00            3       60 56.1178 1532.3333
12 401557 2010-08-11 05:00:00            3       60 55.7901 1721.3333