Bom dia pessoal,

Dentro da mesma análise de dados (abaixo) é possível obter as médias de valores (Variável "Nivel") utilizando o comando "rle" para cada execução do Status e guardar estas informações (lengths, values, timediff, meanNivel ) em outro banco?

### <code r>
dat <- read.table(text='Horario              Nivel     Status
"01/01/2011 00:00"    29     0
"01/01/2011 00:01"    29     0
"01/01/2011 00:02"    30     1
"01/01/2011 00:03"    31     1
"01/01/2011 00:04"    29     0
"01/01/2011 00:05"    29     0
"01/01/2011 00:06"    29     0
"01/01/2011 00:07"    29     0
"01/01/2011 00:08"    30     1
"01/01/2011 00:09"    32     1
"01/01/2011 00:10"    34     1
"01/01/2011 00:11"    35     1
"01/01/2011 00:12"    35     1
"01/01/2011 00:13"    25     0', head=T, as.is=T)

dat$Horario <- as.POSIXlt(dat$Horario, format = '%d/%m/%Y %H:%M')
head(dat)

res <- do.call(data.frame, rle(dat$Status))
n <- nrow(res)
res$ini <- c(1, cumsum(res$lengths[-n])+1)
res$fim <- cumsum(res$lengths)
res$timeDiff <- with(res, dat[fim,1]-dat[ini,1])

res


#   lengths values ini fim timeDiff
# 1       2      0   1   2  60 secs
# 2       2      1   3   4  60 secs
# 3       4      0   5   8 180 secs
# 4       5      1   9  13 240 secs
# 5       1      0  14  14   0 secs



Grata,

Silvia Patricia