Displaying 1 result from an estimated 1 matches for "tsrvalsub".
2009 Aug 04
0
Efficient coding
...lDmnd, start(tsrValDmnd), sequence[length(sequence)-2])
sequence <- sequence - 3600
tsrValDmnd <- aggregate(tsrValDmnd, by = sequence, sum)
sequence <- seriesPositions(tsrValDmnd)
newPositions(tsrValDmnd) <- sequence - 23*3600
#head(tsrValDmnd2)
#sum(head(tsrValDmnd, 24))
tsrValSub <- cbind(tsrValDmnd, tsrValCount)
tsrValSub <- na.omit(tsrValSub)
head(tsrValSub)
if(nrow(tsrValSub) > 1)
{
dif <- na.omit(tsrValSub[,-1] -lag(tsrValSub[,-1],1))
head(dif)
costant <- is.costant(dif)
if(any(costant == FALSE))
{
a <- (dif != 0) *1:nrow(dif)...