Quantmod, Xts, TTR and Postgresql

Hi Everyone,

I'm currently using the latest build of R and R-Studio server (both are
amazing products)

I'm still very new to this but I came across this issue:

I'm trying to do a select from postgres and put the data into and xts
object like so:

# Libs
library('RPostgreSQL') # http://code.google.com/p/rpostgresql/
library('quantmod')
library('TTR')
library('xts') #
http://cran.r-project.org/web/packages/xts/vignettes/xts.pdf

# Connect and get data
drv <- dbDriver('PostgreSQL')
db <- dbConnect(drv, host='localhost', user='postgres', dbname='technica',
password='password')
fr <- dbGetQuery(db, 'SELECT date as "Date", open as "Open", high as
"High", low as "Low", close as "Close", volume as "Volume", random() as
"Adjusted" FROM stocks s INNER JOIN historical_prices hp ON s.id =
hp.stock_id WHERE s.symbol = \'SDL\' ORDER BY date DESC limit 50')

# copied from the mysql code in the quantmod source
fr <- data.frame(fr[,-1],row.names=fr[,1])
fr <- xts(as.matrix(fr[,-1]), order.by=as.Date(fr[,1],
origin='1970-01-01'), src='technica', updated=Sys.time())
colnames(fr) <- paste('SDL',
c('Open','High','Low','Close','Volume','Adjusted'), sep='.')

dvi <- DVI(Cl(fr))
print(dvi)

When the code is executed I receive the error for the line dvi <-
DVI(Cl(fr)): "Error in runSum(x, n) : Invalid 'n'"

But if I do this (fetch the data from yahoo):

getSymbols("SDL.AX")
dvi <- DVI(Cl(SDL.AX))
print(dvi)

All seems to work fine, but I cant see any difference when I print the two
data sets out, except the data set size.

Any ideas what I'm doing wrong? Id really like to be able to import from my
postgres database.

Also i would be happy to write a postgres routine and submit it to quantmod
if i get this working

Thanks!
Max