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

diff --git a/statistics/operator_overhead.r b/statistics/operator_overhead.r
index 6658366..c62c399 100644
--- a/statistics/operator_overhead.r
+++ b/statistics/operator_overhead.r
@@ -121,12 +121,6 @@ online_nodes <- function (fb)
     return (rbind(x,n,o))
 }
 
-lowess_smooth <- function (x, y, delta=(60*60*24), f=0.02)
-{
-    a<-lowess(x, y, delta=delta, f=f)
-    return (a);
-}
-
 #####
 
 # system("parse_rt_data.py 3 > rt_data.csv");
@@ -134,7 +128,7 @@ t <- read.csv('rt_data_2004-2010.csv', sep=',', header=TRUE)
 t2 <- t[which(t$complete == 1),]
 ot <- open_tickets(t2, '2004/1/1', '2010/2/28', 'day', "%b")
 
-start_image("rt_operator_overhead.png")
+#start_image("rt_operator_overhead.png")
 par(mfrow=c(2,1))
 par(mai=c(0,1,0.3,0.1))
 
@@ -276,4 +270,4 @@ text(x=c(tstamp_20040412,
 #     y=c(15),
 #     labels=c('3.0', '3.1', '3.1S', '3.2', '4.0', '4.2', '4.3')) 
 
-end_image()
+#end_image()