On Github ygseifu / pitch
ps <- read.csv("PS Alarms.csv") ps$Alarm.ID <- as.factor(ps$Alarm.ID) psd <- split(ps, ps$Alarm.Source) summary(ps)
## Alarm.ID Alarm.Source ## 10254: 29 SGSNMME_01.HW.NF.AA:1976 ## 10334: 205 SGSNMME_02.HW.MW.AA:1712 ## 11608: 908 SGSNMME_03.HW.KK.AA:1542 ## 11609:2108 ## 12621: 26 ## 14001:1954
Using the app, we can compare which alarms are more prominent on which nodes.
old.par <- par(mfrow=c(1, 3)) plot(psd[[1]]$Alarm.ID, main="Alarms on SGSNMME 01",xlab='Alarm ID', ylab='Count', ylim=c(0,900)) plot(psd[[2]]$Alarm.ID, main="Alarms on SGSNMME 02",xlab='Alarm ID', ylab='Count', ylim=c(0,900)) plot(psd[[3]]$Alarm.ID, main="Alarms on SGSNMME 03",xlab='Alarm ID', ylab='Count', ylim=c(0,900))
par(old.par)
On the PS Network alarms application you have a dropdown menu option for selecting anyone of the nodes to display the alarms including the option to see all the alarms on all of the nodes, as below.
plot(ps$Alarm.ID, main="Alarms on all SGSNMME's", xlab='Alarm ID', ylab='Count', ylim=c(0,2000))
Thank You!