library(zoo)
library(chron)


fmt = "%m/%d/%y %I:%M %p"
TZ = "PDT"
chr = function(x) as.chron(x, fmt)

crac = read.zoo("http://dl.dropbox.com/u/41922443/test.csv", skip = 1,
   header = TRUE,
   colClasses = rep(c(NA, "numeric", "NULL"), c(1, 1, 3)),
   index = 1, FUN = chr, sep = ",")