Displaying 3 results from an estimated 3 matches for "seriespositions".
2009 Aug 04
0
Efficient coding
...ValDmnd, sequence[3], end(tsrValDmnd))
if(format(end(tsrValDmnd), '%H') != '23')
tsrValDmnd <- window(tsrValDmnd, 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(tsrValS...
2004 Dec 09
1
Finmetrics positions
Finmetrics (in S-PLUS) has teh functions "positions" (return the
positions of an ordered data object). Is there an equivalent to it in
Remtrics?
I am applying it to teh data of a time series.
2008 Jul 02
1
Multiple time series plots
Hi all:
I'm trying to plot two time series created in Rmetrics and label the
x-axis with dates. I tried the following:
dates <- as.Date(seriesPositions(x.agg))
r <- as.Date(range(dates))
ts.plot(x.agg@Data[,c(1,5)],gpars=list(ylab="Volume",
lty=c(1:2),xaxt="n",main="Plot of Volume"))
axis.Date(1, at=seq(r[1], r[2], length.out=10),
format="%Y-%m-%d",cex.axis=.75)
legend("bottomleft&quo...