search for: ystart

...l plots, it does not return the underlying data. I want to extract the trend component of each decomposition ("x$time.series[,trend]), assign a name based on the factor "area". My input data look like this: Area is a factor, with three (but could be many more) levels. area 1 2 3 Ystart=2000 TS is a timeseries: X2000049 X2000065 X2000081 X2000097 X2000113 1 0.2080 0.2165 0.2149 0.2314 0.2028 2 0.1578 0.1671 0.1577 0.1593 0.1672 3 0.1897 0.1948 0.2290 0.2292 0.2067 Here's the function: STLp...

...= 1.5, end = 106.5, frequency = 0.2) bar = ts(x, start = 2.5, end = 107.5, frequency = 0.2) window(foo, start = 20, end = 30, extend=TRUE) # Time Series:# Start = 20 # End = 25 # Frequency = 0.2 # [1] 5 6 window(bar, start = 20, end = 30, extend=TRUE) # Error in attr(y, "tsp") <- c(ystart, yend, xfreq) : # invalid time series parameters specified The reason is in the rounding procedures for ystart and yend at the end of the stats::window function. For the 'foo' series the ystart and yend values are calculated as: c(20, 25), whereas for the 'bar' series, they becom...

...a names(Area) <- rev(Pcode) Lines <- 1:numberProvs plot(sort(Area), Lines, pch=20, col="red", xlab = " Area", ylab= "Province or Territory", axes=F) axis( 2, at=Lines, labels=names(Area), las=1) axis (1, labels= T) xstart <- 0 xend <- Area ystart <- rev(Lines) yend <- rev(Lines) arrows(xstart, ystart, xend, yend, col="red", length = 0) # --------------End of Crude working program----------------------------- # --------------Revised program using order on the data.frame------------- provs <- data.frame(Name, Pcode, Area...

...> window(foo, start = 20, end = 30, extend=TRUE) >> >> # Time Series: >> # Start = 20 >> # End = 25 >> # Frequency = 0.2 >> # [1] 5 6 >> >> window(bar, start = 20, end = 30, extend=TRUE) >> >> # Error in attr(y, "tsp") <- c(ystart, yend, xfreq) : >> # invalid time series parameters specified >> >> The reason is in the rounding procedures for ystart and yend at the end > of the stats::window function. For the 'foo' series the ystart and yend > values are calculated as: c(20, 25), whereas for...

...rstudio successfully: library("ndvits", lib.loc="/home/vahe/R/i686-pc-linux-gnu-library/2.15") ndvidirectory=paste(system.file("extdata/VITO_Mzimba", package="ndvits"), "/", sep="") region="Mzimba" Ystart=2004 Yend=2006 shape="SLP_Mzimba" shapedir=paste(system.file("extdata/shape", package="ndvits"), "/", sep="") outfile = "mzimbaTS2.txt" outfile2 = "MzimbaTS2.pdf" outfiel3 = "my.pdf" signal = TimeSeriesAn...

...e or Country". library("ndvits", lib.loc="/home/vahe/R/i686-pc-linux-gnu-library/2.15") ndvidirectory=paste(system.file("extdata/VITO_Mzimba", package="ndvits"), "/", sep="") region="Mzimba" Ystart=2004 Yend=2006 shape="SLP_Mzimba" shapedir=paste(system.file("extdata/shape", package="ndvits"), "/", sep="") outfile = "mzimbaTS2.txt" outfile2 = "MzimbaTS2.pdf" outfiel3 = "my.pdf" signal = TimeSeriesA...

...2.5, end = 107.5, frequency = 0.2) > > window(foo, start = 20, end = 30, extend=TRUE) > > # Time Series: > # Start = 20 > # End = 25 > # Frequency = 0.2 > # [1] 5 6 > > window(bar, start = 20, end = 30, extend=TRUE) > > # Error in attr(y, "tsp") <- c(ystart, yend, xfreq) : > # invalid time series parameters specified > > The reason is in the rounding procedures for ystart and yend at the end of the stats::window function. For the 'foo' series the ystart and yend values are calculated as: c(20, 25), whereas for the 'bar' seri...

...;> # Time Series: >>>> # Start = 20 >>>> # End = 25 >>>> # Frequency = 0.2 >>>> # [1] 5 6 >>>> >>>> window(bar, start = 20, end = 30, extend=TRUE) >>>> >>>> # Error in attr(y, "tsp") <- c(ystart, yend, xfreq) : >>>> # invalid time series parameters specified >>>> >>>> The reason is in the rounding procedures for ystart and yend at the end >>> of the stats::window function. For the 'foo' series the ystart and yend >>> values ar...

...) > >> > >> # Time Series: > >> # Start = 20 > >> # End = 25 > >> # Frequency = 0.2 > >> # [1] 5 6 > >> > >> window(bar, start = 20, end = 30, extend=TRUE) > >> > >> # Error in attr(y, "tsp") <- c(ystart, yend, xfreq) : > >> # invalid time series parameters specified > >> > >> The reason is in the rounding procedures for ystart and yend at the end > > of the stats::window function. For the 'foo' series the ystart and yend > > values are calculated as...

I'm doing a path plot with ggplot2, the result is looking very nice, but I want to give some indication of which direction the lines are going. I thought of using colour gradients, but it doesn't look right. What would be ideal is a line type that indicated direction, something like ">>>>>>>". Is there any way to achieve this? Or can anyone suggest another

...following in Rsutdio: library("ndvits", lib.loc="/home/vahe/R/i686-pc-linux-gnu-library/2.15") ndvidirectory=paste(system.file("extdata/VITO_Mzimba", package="ndvits"), "/", sep="") region="Mzimba" Ystart=2004 Yend=2006 shape="SLP_Mzimba" shapedir=paste(system.file("extdata/shape", package="ndvits"), "/", sep="") outfile = "mzimbaTS2.txt" outfile2 = "MzimbaTS2.pdf" outfiel3 = "my.pdf" signal = TimeSeriesAn...

library("ndvits", lib.loc="/home/vahe/R/i686-pc-linux-gnu-library/2.15") ndvidirectory=paste(system.file("extdata/VITO_Mzimba", package="ndvits"), "/", sep="") region="Mzimba" Ystart=2004 Yend=2006 shape="SLP_Mzimba" shapedir=paste(system.file("extdata/shape", package="ndvits"), "/", sep="") outfile = "mzimbaTS2.txt" outfile2 = "MzimbaTS2.pdf" outfiel3 = "my.pdf" signal = TimeSeriesAn...

...r[2]-usr[1])/(plt[2]-plt[1])*(x - plt[1]) + usr[1], (usr[4] - usr[3])/(plt[4] - plt[3])*(y - plt[3]) + usr[3]) } addHandlerFocus(g, handler = function(h,...) { print(c("focus g")) }) addHandlerClicked(g, handler = function(h,...) { x <- h$x; y <- h$y xStart <<- x; yStart <<- y pressed <<- TRUE print(c("pressed at:", c(x,y))) }) da <- g at widget@widget callbackID <- gSignalConnect(da,"button-release-event", function (w,e,...) { allocation = w$GetAllocation() xclick = e$GetX() yclick = e$GetY() x = xclick/allocation...

...t; abs(end) * ts.eps)) { end <- xtime[(xtime < end) & ((end - 1/xfreq) < xtime)] } i <- seq(trunc((start - xtsp[1]) * xfreq + 1.5), trunc((end - xtsp[1]) * xfreq + 1.5), by = thin) y <- if (is.matrix(x)) x[i, , drop = FALSE] else x[i] ystart <- xtime[i[1]] yend <- xtime[i[length(i)]] tsp(y) <- c(ystart, yend, yfreq) y } --_=XFMail.1.3.p0.Linux:990702182137:16900=_-- End of MIME message -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-devel mailing list -- Read http://www.ci.tuwie...

>>>>> On Fri, 02 Jul 1999, Adrian Trapletti <Adrian.Trapletti@wu-wien.ac.at> said: Adrian> There seems to be a problem with plot.ts (R Version 0.64.2) > x<-cbind(1:10,2:11) > x<-as.ts(x) > plot(x) Adrian> Error: subscript (20) out of bounds, should be at most 10 This is definitely a bug --> CC: R-bugs ALL NOTE : This is *not* new

Hello, I have a matrix such as > X = matrix(c(1:4,29,32,56,-45), ncol=2) and I want one like > Y=matrix(c( 1 , 34 , 1 , 34 , 2 , -56 , 1 , 34 , 3 , 27 , 1 , 34 , 1 , 34 , 2 , -56 , 2 , -56 , 2 , -56 , 3 , 27 , 2 , -56 , 1 , 34 , 3 , 27 , 2 , -56 , 3 , 27 , 3 , 27 , 3 , 27 ), ncol=4, byrow=T) How do I do this in an efficient and elegant way? Many thanks, Dimitri [[alternative HTML

...wordpad: Reset rc.bottom between calls to EM_FORMATRANGE. wordpad: Don't render the text when getting the number of pages. wordpad: Fixed spacing calculations for print preview. wordpad: Implement zooming in for print preview. richedit: Removed unused local variable yStart. Eric Pouech (16): winmm: A couple of simple fixes for winmm compilation on 64bit platforms. winmm: In mmio manipulation, always ensure that we use a HFILE for mmio internal handlers (and not a HANDLE). winmm: For MCI parsing, use 64bit compatible variables. dbghelp: Remove...