if ( imagename != 0 ) { end_image() }
}
-year_hist <- function (t, year, from, to, max, type="week", title="Histogram for Tickets in")
+year_hist <- function (t, year, from, to, max, type="week", title="Histogram for Tickets in", fmt="%b-%d")
{
dates <-seq(as.Date(from), as.Date(to), type)
- months <- format(dates, "%b-%d")
+ months <- format(dates, fmt)
hbreaks<-unclass(as.POSIXct(dates))
h<-hist(t$start, breaks=hbreaks, plot=FALSE)
main<-sprintf(paste(title, "%s: MEAN %s\n"), year, mean(h$counts))
print(main);
+ print(h$counts);
if ( max == 0 ) {
max = max(h$counts)
}
abline(mean(h$counts), 0, col='grey')
#qqnorm(h$counts)
#qqline(h$counts)
+ return (h);
}
year_hist_unique <- function (t, year, from, to, max, type="week", title="Histogram for Tickets in")
return (t);
}
-abline_at_date <- function (date, col='black', lty=1, format="%Y-%m-%d")
+abline_at_date <- function (date, col='black', lty=1, format="%Y-%m-%d", height=0)
{
ts <-unclass(as.POSIXct(date, format=format, origin="1970-01-01"))[1]
- abline(v=ts, col=col, lty=lty)
+ if ( height == 0 )
+ {
+ abline(v=ts, col=col, lty=lty)
+ } else {
+ lines(c(ts,ts),c(0,height), col=col, lty=lty)
+ }
return (ts);
}
+
+tstamp <- function (date, format="%Y-%m-%d")
+{
+ ts <- unclass(as.POSIXct(date, format=format, origin="1970-01-01"))[1]
+ return (ts)
+}