Displaying 1 result from an estimated 1 matches for "gettimeseri".
Did you mean:
gettimeseries
2009 Aug 04
0
Efficient coding
...intID)
first <- 1
for(sp in toProcess)
{
tsrSUB <- tsr[tsr$cSpillingPointID == sp,]
dmnd <- tsrSUB[is.na(tsrSUB$cDeviceClass),]
if(nrow(dmnd) != 1)
warning(paste("cSpillingPointID", sp, "has more than one demand time Series. Used first."))
tsrValCount <- getTimeSeries(chn, tsrSUB[!is.na(tsrSUB$cDeviceClass),]$cTimeSeriesID, nDaysBack = 366*nyears)
tsrValDmnd <- getTimeSeries(chn, dmnd$cTimeSeriesID[1], nDaysBack = 366*nyears)
sequence <- timeSequence(from = format(start(tsrValDmnd), '%Y-%m-%d'), to = format(end(tsrValDmnd), '%Y-%m-%d...