группирование событий во временном ряду с помощью R

Я делал некоторые записи, чтобы попытаться проиллюстрировать Comcast Business частоту их перерывов в обслуживании в моем офисе. Я регистрирую время отклика ping для файла, а затем анализирую этот файл с помощью R. В файле журнала значение 1000 означает, что время отклика ping истекло. Мой скрипт регистрирует эхо-запросы каждые 5 секунд. Поэтому, если моя служба Comcast не работает в течение 30 секунд, это приведет к ~ 6 записям журнала со значением 1000. Я хотел бы проанализировать свои журналы таким образом, чтобы я мог создать сводную таблицу, которая показывала, когда начиналось каждое отключение, и как долго это длилось. Каковы хорошие способы сделать это?

Вот несколько примеров сегодняшних данных и несколько графиков, которые иллюстрируют мои временные ряды:

require(xts)
outFile <- "http://pastebin.com/raw.php?i=SJuMQ9rD"
pingLog <- read.csv(outFile, header=FALSE, 
     col.names = c("time","ms"), 
     colClasses=c("POSIXct", "numeric"))
xPingLog <- as.xts(pingLog$ms, order.by=pingLog$time)
outages <- subset(pingLog, ms==1000)
xOutages <- as.xts(outages$ms, order.by=outages$time)

par(mfrow=c(2,1))
plot(xPingLog)
plot(outages)
outages