X-Git-Url: http://git.onelab.eu/?a=blobdiff_plain;ds=sidebyside;f=statistics%2Fmyops_restoration.r;h=d953004ee43a55eeeb2bea4138f9e70b6dfb178b;hb=HEAD;hp=c55db0399c5f9ad9c44f6f56845a5581fa6cfb40;hpb=a403ef9f15068971de470ce7c66c59252b118f39;p=monitor.git

diff --git a/statistics/myops_restoration.r b/statistics/myops_restoration.r
index c55db03..d953004 100644
--- a/statistics/myops_restoration.r
+++ b/statistics/myops_restoration.r
@@ -1,5 +1,6 @@
 source("functions.r");
 
+print ("fuckyou 0");
 
 nsh <- read.csv('node_status_history.csv', sep=',', header=TRUE)
 
@@ -11,7 +12,9 @@ nsh_m1 <- read.csv('node_status_history_m1.csv', sep=',', header=TRUE)
 nsh_m1_nopcu_total <- read.csv('node_status_history_m1_nopcu_total.csv', sep=',', header=TRUE)
 nsh_m1_nopcu_notice <- read.csv('node_status_history_m1_nopcu.csv', sep=',', header=TRUE)
 nsh_m1_nopcu_kernel <- read.csv('node_status_history_m1_nopcu_may08sep08.csv', sep=',', header=TRUE)
+nsh_m1_pcu <- read.csv('node_status_history_m1_pcu.csv', sep=',', header=TRUE)
 
+print ("fuckyou 0a");
 node_hist_image <- function (t, year, from, to, max=0, type="week", title="")
 {
     dates <-seq(as.Date(from), as.Date(to), type)
@@ -131,20 +134,44 @@ hbreaks<-unclass(as.POSIXct(dates))
 x_start<-unclass(as.POSIXct("2008-05-01", origin="1970-01-01"))[1]
 x_end  <-unclass(as.POSIXct("2009-06-1", origin="1970-01-01"))[1]
 
-start_image("myops_restore_nopcu.png")
+print ("fuckyou 0b");
+
+tstamp_0510 <-abline_at_date("2008-05-10", col='grey20', lty=0, height=570)
+# dates takes from reboot_image() output for API events.
+# green
+tstamp_0610 <-abline_at_date("2008-06-10", col='grey40', lty=5, height=570)
+tstamp_0815 <-abline_at_date("2008-08-15", col='grey70', lty=1, height=570)
+
+# red
+#tstamp_0905 <-abline_at_date("2008-09-05", col='grey70', height=570)
+tstamp_0924 <-abline_at_date("2008-09-24", col='grey70', lty=1, height=570)
+tstamp_1015 <-abline_at_date("2008-10-15", col='grey40', lty=5, height=570)
+# blue
+#tstamp_1105 <-abline_at_date("2008-11-05", col='white', lty=2, height=570)
+#tstamp_1214 <-abline_at_date("2008-12-14", col='grey70', height=570)
+tstamp_0223 <-abline_at_date("2009-02-23", col='grey70', height=570)
+# red
+#tstamp_0313 <-abline_at_date("2009-03-13", col='grey70', height=570)
+
+print ("fuckyou 0c");
+start_image("myops_restore_nopcu.eps")
 par(mfrow=c(2,1))
 par(mai=c(.9,.8,.1,.1))
+print ("fuckyou 1");
 plot(dnc2$start[which(!is.na(dnc2$available) & (dnc2$start > tstamp_0815 & dnc2$start <= tstamp_1015) )], 
     dnc2$available[which(!is.na(dnc2$available) & (dnc2$start > tstamp_0815 & dnc2$start <= tstamp_1015) )], 
     type='l', col='red', ylim=c(0,600), xlim=c(x_start, x_end),
-    xlab="", ylab="Online Node Count", axes=F)
+    xlab="", ylab="a) Online Node Count", axes=F)
 
+print ("fuckyou 2");
 lines(dnc2$start[which(!is.na(dnc2$available) & (dnc2$start > tstamp_0223) )], 
     dnc2$available[which(!is.na(dnc2$available) & (dnc2$start > tstamp_0223) )], 
     type='l', col='red')
 
 lines(dnc2$start[which(!is.na(dnc2$available) & dnc2$start > tstamp_1015 & dnc2$start <= tstamp_0223)], dnc2$available[which(!is.na(dnc2$available)& dnc2$start > tstamp_1015 & dnc2$start <= tstamp_0223)], lty=2, type='l', col='blue')
 
+print ("fuckyou 4");
+
 lines(dnc2$start[which(!is.na(dnc2$available) & dnc2$start > tstamp_0510 & dnc2$start <= tstamp_0815)], dnc2$available[which(!is.na(dnc2$available)& dnc2$start > tstamp_0510 & dnc2$start <= tstamp_0815)], lty=3, type='l', col='darkgreen')
 
 #lines(dnc2$start[which(!is.na(dnc2$available))], dnc2$available[which(!is.na(dnc2$available))], 
@@ -154,7 +181,7 @@ axis(1, cex.axis=0.7, labels=months, at=hbreaks)
        
 
 
-#tstamp_0510 <-abline_at_date("2008-05-10", col='grey20', lty=0, height=570)
+tstamp_0510 <-abline_at_date("2008-05-10", col='grey20', lty=0, height=570)
 # dates takes from reboot_image() output for API events.
 # green
 tstamp_0610 <-abline_at_date("2008-06-10", col='grey40', lty=5, height=570)
@@ -198,10 +225,10 @@ text(x=c(tstamp_0510-(60*60*24*10),
 mtext("2008                                 2009", 1,2)
 legend(unclass(as.POSIXct("2009-02-23", origin="1970-01-01"))[1], 200,
         cex=0.7,
-        legend=c("Typical MyOps", "Notice Bug", "Kernel Bug", 'Bug Added', 'Fix Added'),
+        legend=c("Typical MyOps", "Bug1", "Bug2", 'Bug Added', 'Fix Added'),
         pch=c('-', '-', '-'),
-        col=c('red', 'blue', 'darkgreen', 'grey20', 'grey70'),
-        lty=c(1, 2, 3, 5, 1), merge=T)
+        col=c('red', 'darkgreen', 'blue', 'grey20', 'grey70'),
+        lty=c(1, 3, 2, 5, 1), merge=T)
 
         #legend=c("Registered", "Online", 'Kernel Update', 'MyOps Event'),
         #pch=c('-', '-', '-', '-'),
@@ -241,6 +268,12 @@ nsh_dist_m1 <- node_hist_dist(nsh_m1_short, '2008', '2008-05-10', '2008-08-15',
 d_m1_kernel_bug <- ecdf(nsh_dist_m1/(60*60*24))
 
 
+nsh_m1_short <- nsh_m1_pcu[which(nsh_m1_pcu$start > t_0815 & nsh_m1_pcu$start <= t_0224),]
+nsh_dist_m1 <- node_hist_dist(nsh_m1_short, '2008', '2008-05-10', '2009-03-22', 0, 'day')
+d_m1_pcu <- ecdf(nsh_dist_m1/(60*60*24))
+
+
+
 # d<-ecdf(nsh_dist[which(nsh_dist/(60*60*24) < 90 )]/(60*60*24)), 
 # 180 ~= 6 months.
 par(mai=c(.9,.9,.1,.3))
@@ -249,18 +282,25 @@ par(mai=c(.9,.9,.1,.3))
 
 x_lim_max <- 150
 
+print ("fuckyou 4a");
 plot(d_m1_total, xlim=c(0,x_lim_max), ylim=c(0,1), axes=F, xlab="Days to Resolve", 
-    ylab="Fraction of Offline Nodes Restored", col.hor='red', col.vert='red', pch='.', 
+    ylab="b) Fraction of Offline Nodes Restored", col.hor='red', col.vert='red', pch='.', 
     col.points='red', main="")
+print ("fuckyou 5");
 
 plot(d_m1_notice_bug, xlim=c(0,x_lim_max), ylim=c(0,1), xlab="Days to Resolve", 
     col.hor='blue', col.vert='blue', pch='.', 
     col.points='blue', lty=2, add=TRUE)
+print ("fuckyou 6");
 
 plot(d_m1_kernel_bug, xlim=c(0,x_lim_max), ylim=c(0,1), xlab="Days to Resolve", 
     col.hor='darkgreen', col.vert='darkgreen', pch='.', 
     col.points='darkgreen', lty=3, add=TRUE)
 
+#plot(d_m1_pcu, xlim=c(0,x_lim_max), ylim=c(0,1), xlab="Days to Resolve", 
+#    col.hor='purple', col.vert='purple', pch='.', 
+#    col.points='purple', lty=4, add=TRUE)
+
 weeks <- c(0,7,14,21,28,60,90,120,150,180)
 axis(1, labels=weeks, at=weeks)
 percentages <- c(0,0.25, 0.5, 0.75, 0.85, 0.95, 1)
@@ -273,7 +313,7 @@ abline(v=c(91), col='grey80', lty=2)
 
 legend(92, 0.25,
        cex=0.7,
-       legend=c("Typical MyOps", "Notice Bug", "Kernel Bug"),
+       legend=c("Typical MyOps", "Only Notices", "No Notices"),
        pch=c('-', '-', '-'),
        col=c('red', 'blue', 'darkgreen'),
        lty=c(1, 2, 3), merge=T)