This example loads a ficticious utility interruption database. Substations all have US state names, and each feeder has a unique number. You can enter a search term in the input box below and then select the feeder from the list that appears below the input box. After selecting a circuit, a table of historical interruption will appear; you can sort by any of the columns (date, outage cause, duration, and so on) by clicking on the table header.


Search For Substation Name or Circuit Number


load(RpadBaseFile("interruptions.RData"))
cat('sublist = Array')
cat(sub("^c","",capture.output(dput(as.character(cir$id)))))
cat(';handleKeyUp(20);document.getElementById("subinput").focus();')
chosencircuit = cir$circuit[cir$id == subselect]
ints.subset = subset(ints, circuit %in% chosencircuit, 
                     select = c(intdate,restmeters,duratnminutes,cause, 
                                weather,isodevdecsr,faultgrid,year))
count = xtabs(~ year, ints.subset)
custcount = xtabs(restmeters ~ year, ints.subset)
custmin = xtabs(restmeters*duratnminutes ~ year,
ints.subset)
newgraph(toplines=1)
plot(custmin/1000, ylab = "", 
     main = "Customer minutes of interruption (thousands)", 
     pch = 18, col = "blue", type = "p")
HTMLon()
showgraph()
HTMLon()
HTMLh4(subselect)
Html(ints.subset[NROW(ints.subset):1,])



by Tom Short, tshort@epri.com, Copyright 2005. EPRI, license: GNU GPL v2 or greater