X-Git-Url: http://git.onelab.eu/?p=monitor.git;a=blobdiff_plain;f=statistics%2Foperator_overhead.r;h=66583668a28f09b7a595bca5c61806d87d5a43f8;hp=03dc5a0fa6faab1456f87fcbc76a23a5f5f6667c;hb=a403ef9f15068971de470ce7c66c59252b118f39;hpb=db84a19276e861081756a7daec54aba8a1507abe

diff --git a/statistics/operator_overhead.r b/statistics/operator_overhead.r
index 03dc5a0..6658366 100644
--- a/statistics/operator_overhead.r
+++ b/statistics/operator_overhead.r
@@ -1,5 +1,43 @@
 source("functions.r");
 
+median_time_to_resolve_window <- function (t, from, to, window, fmt="%b")
+{
+    # find 'type' range of days
+    dates <-seq(as.Date(from), as.Date(to), 'week')
+    months <- format(dates, fmt)
+    hbreaks<-unclass(as.POSIXct(dates))
+
+    xx<-NULL;
+    yy<-NULL;
+    yy_sd_high<-NULL;
+    yy_sd_low<-NULL;
+    date_index <- NULL;
+    q_list <- NULL;
+
+    x<-seq(-20,20,0.01)
+    for ( i in seq(1,length(hbreaks)-window-1) )
+    {
+        print (sprintf("round %s of %s", i, length(hbreaks)-window-1))
+        # get range from t
+        t_sub <- t[which(t$start > hbreaks[i] & t$start<= hbreaks[i+window]),]
+        if ( length(t_sub$start) <= 1 )  { next }
+        # take log, then sn.mle -> h
+        d <- (t_sub$lastreply - t_sub$start)/(60*60)    # hours
+        d <- log(d)                                     # log(hours)
+            # sn.mle
+        print (sprintf("length: %s", length(d)))
+        q<-quantile(d)
+        print(q)
+
+        date_index <- c(date_index, round(i+window/2))
+
+        xx<- c(xx, hbreaks[round(i+window/2)])
+        q_list <- rbind(q_list, q)
+
+    }
+    m<- months[date_index]
+    return (cbind(xx,q_list, m))
+}
 
 available_nodes <- function (ns, from, to, type, fmt="%b")
 {
@@ -98,7 +136,7 @@ ot <- open_tickets(t2, '2004/1/1', '2010/2/28', 'day', "%b")
 
 start_image("rt_operator_overhead.png")
 par(mfrow=c(2,1))
-par(mai=c(0,1,0.1,0.1))
+par(mai=c(0,1,0.3,0.1))
 
 x1<-as.numeric(ot[1,])
 y1<-as.numeric(ot[2,])
@@ -106,7 +144,7 @@ y1<-as.numeric(ot[2,])
 a_ot<-lowess_smooth(x1, y1)
 
 plot(x1, y1, col='grey80', type='l', axes=F, 
-    ylab="Open Tickets (tickets/day)", xlab="Date",
+    ylab="a) Open Tickets (tickets/day)", xlab="Date",
     ylim=c(0,120)) # , ylim=c(0,260))
 lines(a_ot$x, round(a_ot$y), col='black')
 
@@ -120,70 +158,122 @@ axis(2, las=1)
 #abline_at_date('2008-01-01', 'grey60')
 #abline_at_date('2009-01-01', 'grey60')
 #abline_at_date('2010-01-01', 'grey60')
-abline(h=25, lty=2, col='grey80')
-abline(h=40, lty=2, col='grey80')
-
-tstamp_20041112 <-abline_at_date("2004-11-12", col='grey60', lty=2)
-tstamp_20050301 <-abline_at_date("2005-03-01", col='grey60', lty=2)
-tstamp_20050615 <-abline_at_date("2005-06-15", col='grey60', lty=2)
-tstamp_20051023 <-abline_at_date("2005-10-23", col='grey60', lty=2)
-tstamp_20070101 <-abline_at_date("2007-01-01", col='grey60', lty=2)
-tstamp_20070501 <-abline_at_date("2007-05-01", col='grey60', lty=2)
-tstamp_20080601 <-abline_at_date("2008-06-01", col='grey60', lty=2)
-tstamp_20080815 <-abline_at_date("2008-08-15", col='grey60', lty=2)
-tstamp_20090501 <-abline_at_date("2009-05-01", col='grey60', lty=2)
-tstamp_20100201 <-abline_at_date("2010-02-01", col='white', lty=2)
-
-
-text(x=c( tstamp_20041112+(tstamp_20050301-tstamp_20041112)/2,
-        tstamp_20050301+(tstamp_20050615-tstamp_20050301)/2,
-        tstamp_20050615+(tstamp_20051023-tstamp_20050615)/2,
-        tstamp_20051023+(tstamp_20070101-tstamp_20051023)/2,
-        tstamp_20070101+(tstamp_20070501-tstamp_20070101)/2,
-        tstamp_20080601+(tstamp_20080815-tstamp_20080601)/2,
-        tstamp_20090501+(tstamp_20100201-tstamp_20090501)/2 ),
+abline(h=25, lty=3, col='grey80')
+abline(h=40, lty=3, col='grey80')
+
+tstamp_20040412 <-abline_at_date("2004-04-12", col='white', lty=0, height=110)
+tstamp_20041112 <-abline_at_date("2004-11-12", col='grey60', lty=3, height=110)
+tstamp_20050301 <-abline_at_date("2005-03-01", col='grey60', lty=3, height=110)
+tstamp_20050615 <-abline_at_date("2005-06-15", col='white',  lty=0, height=110)
+#tstamp_20051023 <-abline_at_date("2005-10-23", col='grey60', lty=3, height=110)
+tstamp_20051001 <-abline_at_date("2005-10-01", col='grey60', lty=3, height=110)
+tstamp_20060519 <-abline_at_date("2006-05-19", col='grey60', lty=3, height=110)
+tstamp_20070228 <-abline_at_date("2007-02-28", col='grey60', lty=3, height=110)
+tstamp_20070501 <-abline_at_date("2007-05-01", col='white',  lty=0, height=110)
+tstamp_20071021 <-abline_at_date("2007-10-21", col='grey60', lty=3, height=110)
+tstamp_20080601 <-abline_at_date("2008-06-01", col='grey60', lty=3, height=110)
+tstamp_20080815 <-abline_at_date("2008-08-15", col='white',  lty=0, height=110)
+tstamp_20090501 <-abline_at_date("2009-05-01", col='grey60', lty=3, height=110)
+tstamp_20100201 <-abline_at_date("2010-02-01", col='white',  lty=0, height=110)
+
+        #tstamp_20051023,
+text(x=c(tstamp_20040412,
+        tstamp_20041112,
+        tstamp_20050301,
+        tstamp_20050615,
+        tstamp_20051001,
+        tstamp_20060519,
+        tstamp_20070228,
+        tstamp_20071021,
+        tstamp_20080601,
+        tstamp_20090501),
      y=c(120),
-     labels=c('3.0', '3.1', '3.1S', '3.2', '4.0', '4.2', '4.3')) 
+     labels=c('Release', '3.0', '3.1', '', '3.2', '3.3', '4.0', '4.1', '4.2', '4.3')) 
+     #labels=c('3.0', '3.1', '3.1S', '3.2', '4.0', '4.2', '4.3')) 
+
+
+#text(x=c( tstamp_20041112+(tstamp_20050301-tstamp_20041112)/2,
+#        tstamp_20050301+(tstamp_20050615-tstamp_20050301)/2,
+#        tstamp_20050615+(tstamp_20051023-tstamp_20050615)/2,
+#        tstamp_20051023+(tstamp_20070101-tstamp_20051023)/2,
+#        tstamp_20070101+(tstamp_20070501-tstamp_20070101)/2,
+#        tstamp_20080601+(tstamp_20080815-tstamp_20080601)/2,
+#        tstamp_20090501+(tstamp_20100201-tstamp_20090501)/2 ),
+#     y=c(120),
+#     labels=c('3.0', '3.1', '3.1S', '3.2', '4.0', '4.2', '4.3')) 
 
 par(mai=c(1,1,0.1,0.1))
 for ( s in c(7) ) 
 {
     d<- median_time_to_resolve_window(t2, "2004/1/1", "2010/2/28", s, "%b")
     plot(d[,1], exp(as.numeric(d[,5]))/24, type='l', lty=1, xlab="",
-            axes=F, ylim=c(0.01, 15), ylab="Resolution Time by", col='grey50',
+            axes=F, ylim=c(0.01, 15), ylab="b) Resolution Time by", col='black',
             xlim=c(min(x1), max(x1)))
     mtext("Quartile (days)", 2, 2)
-    lines(d[,1], exp(as.numeric(d[,4]))/24, lty=1, col='black')
-    lines(d[,1], exp(as.numeric(d[,3]))/24, lty=1, col='grey50')
+    lines(d[,1], exp(as.numeric(d[,4]))/24, lty=1, col='grey50')
+    lines(d[,1], exp(as.numeric(d[,3]))/24, lty=1, col='grey75')
     #axis(1, labels=d[,7], at=d[,1])
     axis(1, labels=ot[3,], at=ot[1,], cex.axis=0.7)
     mtext("2004           2005           2006           2007           2008           2009", 1,2)
-    axis(2, las=1)
+    axis(2, labels=c(0,1,4,7,14), at=c(0,1,4,7,14), las=1)
     m<-round(max(exp(as.numeric(d[,4]))/24), 2)
-    axis(2, labels=m, at=m, las=1)
-    abline(h=m, lty=2, col='grey40')
+    #axis(2, labels=m, at=m, las=1)
+    #abline(h=m, lty=3, col='grey80')
 }
 
-tstamp_20041112 <-abline_at_date("2004-11-12", col='grey60', lty=2)
-tstamp_20050301 <-abline_at_date("2005-03-01", col='grey60', lty=2)
-tstamp_20050615 <-abline_at_date("2005-06-15", col='grey60', lty=2)
-tstamp_20051023 <-abline_at_date("2005-10-23", col='grey60', lty=2)
-tstamp_20070101 <-abline_at_date("2007-01-01", col='grey60', lty=2)
-tstamp_20070501 <-abline_at_date("2007-05-01", col='grey60', lty=2)
-tstamp_20080601 <-abline_at_date("2008-06-01", col='grey60', lty=2)
-tstamp_20080815 <-abline_at_date("2008-08-15", col='grey60', lty=2)
-tstamp_20090501 <-abline_at_date("2009-05-01", col='grey60', lty=2)
-tstamp_20100201 <-abline_at_date("2010-02-01", col='white', lty=2)
-
-
-text(x=c( tstamp_20041112+(tstamp_20050301-tstamp_20041112)/2,
-        tstamp_20050301+(tstamp_20050615-tstamp_20050301)/2,
-        tstamp_20050615+(tstamp_20051023-tstamp_20050615)/2,
-        tstamp_20051023+(tstamp_20070101-tstamp_20051023)/2,
-        tstamp_20070101+(tstamp_20070501-tstamp_20070101)/2,
-        tstamp_20080601+(tstamp_20080815-tstamp_20080601)/2,
-        tstamp_20090501+(tstamp_20100201-tstamp_20090501)/2 ),
+abline(h=1, lty=3, col='grey80')
+abline(h=4, lty=3, col='grey80')
+abline(h=7, lty=3, col='grey80')
+
+tstamp_20040412 <-abline_at_date("2004-04-12", col='white', lty=0, height=14)
+tstamp_20041112 <-abline_at_date("2004-11-12", col='grey60', lty=3, height=14)
+tstamp_20050301 <-abline_at_date("2005-03-01", col='grey60', lty=3, height=14)
+tstamp_20050615 <-abline_at_date("2005-06-15", col='white',  lty=0, height=14)
+#tstamp_20051023 <-abline_at_date("2005-10-23", col='grey60', lty=3, height=14)
+tstamp_20051001 <-abline_at_date("2005-10-01", col='grey60', lty=3, height=14)
+tstamp_20060519 <-abline_at_date("2006-05-19", col='grey60', lty=3, height=14)
+tstamp_20070228 <-abline_at_date("2007-02-28", col='grey60', lty=3, height=14)
+tstamp_20070501 <-abline_at_date("2007-05-01", col='white',  lty=0, height=14)
+tstamp_20071021 <-abline_at_date("2007-10-21", col='grey60', lty=3, height=14)
+tstamp_20080601 <-abline_at_date("2008-06-01", col='grey60', lty=3, height=14)
+tstamp_20080815 <-abline_at_date("2008-08-15", col='white',  lty=0, height=14)
+tstamp_20090501 <-abline_at_date("2009-05-01", col='grey60', lty=3, height=14)
+tstamp_20100201 <-abline_at_date("2010-02-01", col='white',  lty=0, height=14)
+
+
+text(x=c(tstamp_20040412,
+        tstamp_20041112,
+        tstamp_20050301,
+        tstamp_20050615,
+        tstamp_20051001,
+        tstamp_20060519,
+        tstamp_20070228,
+        tstamp_20071021,
+        tstamp_20080601,
+        tstamp_20090501),
      y=c(15),
-     labels=c('3.0', '3.1', '3.1S', '3.2', '4.0', '4.2', '4.3')) 
+     labels=c('Release', '3.0', '3.1', '', '3.2', '3.3', '4.0', '4.1', '4.2', '4.3')) 
+
+#tstamp_20041112 <-abline_at_date("2004-11-12", col='grey60', lty=2, height=10)
+#tstamp_20050301 <-abline_at_date("2005-03-01", col='grey60', lty=2, height=10)
+#tstamp_20050615 <-abline_at_date("2005-06-15", col='grey60', lty=2, height=10)
+#tstamp_20051023 <-abline_at_date("2005-10-23", col='grey60', lty=2, height=10)
+#tstamp_20070101 <-abline_at_date("2007-01-01", col='grey60', lty=2, height=10)
+#tstamp_20070501 <-abline_at_date("2007-05-01", col='grey60', lty=2, height=10)
+#tstamp_20080601 <-abline_at_date("2008-06-01", col='grey60', lty=2, height=10)
+#tstamp_20080815 <-abline_at_date("2008-08-15", col='grey60', lty=2, height=10)
+#tstamp_20090501 <-abline_at_date("2009-05-01", col='grey60', lty=2, height=10)
+#tstamp_20100201 <-abline_at_date("2010-02-01", col='white', lty=2, height=10)
+#
+#
+#text(x=c( tstamp_20041112+(tstamp_20050301-tstamp_20041112)/2,
+#        tstamp_20050301+(tstamp_20050615-tstamp_20050301)/2,
+#        tstamp_20050615+(tstamp_20051023-tstamp_20050615)/2,
+#        tstamp_20051023+(tstamp_20070101-tstamp_20051023)/2,
+#        tstamp_20070101+(tstamp_20070501-tstamp_20070101)/2,
+#        tstamp_20080601+(tstamp_20080815-tstamp_20080601)/2,
+#        tstamp_20090501+(tstamp_20100201-tstamp_20090501)/2 ),
+#     y=c(15),
+#     labels=c('3.0', '3.1', '3.1S', '3.2', '4.0', '4.2', '4.3')) 
 
 end_image()