Hi Erin,
Could you please add a simple self contained code for us to try and help you
with?
(giving us code with ">" doesn't help)
Best,
Tal
----------------Contact
Details:-------------------------------------------------------
Contact me: tal.gal...@gmail.com | 972-52-7275845
Read me: www.talgalili.com (Hebrew) | www.biostatistics.co.il (Hebrew) |
www.r-statistics.com (English)
----------------------------------------------------------------------------------------------
On Thu, Jul 29, 2010 at 10:21 PM, Erin Hodgess <erinm.hodg...@gmail.com>wrote:
> Dear R People:
>
> Now I have a function with 3 graphics windows. I'd like for them all
> to be visible. However, the first window goes blank. Here is the
> basic setup. The first plot is the entire series. The user selects
> two points, which in turns generates a subset plot and an EWMA subset
> plot. Finally, if things worked right, the user should be able to
> click on "Tile Vertically" and see all 3 windows. Also, there should
> be a line segment on the original plot connecting the two selected
> points.
>
> > library(zoo)
> > xdate <- seq(as.Date("1998-01-01"),as.Date("2010-06-30"),by="day")
> > length(xdate)
> [1] 4564
> > xt <- zoo(rnorm(4564),order=xdate)
> > eplot
> function (x)
> {
> x11()
> plot(x)
> z <- locator(2)
> x11()
> plot(window(x, start = min(z$x), end = max(z$x)))
> dev.set(dev.prev())
> segments(z$x[1],z$y[1],z$x[2],z$y[2],col="red")
> dev.set(dev.next())
> x11()
> ewma(window(x, start = min(z$x), end = max(z$x)))
> dev.set(dev.prev())
> return(z)
> }
> > eplot(xt)
> $x
> [1] 9400.369 11592.073
>
> $y
> [1] 3.641633 3.353061
>
> >
>
> How do I get that original plot to appear without losing any of the
> other plots, please?
>
> Thanks,
> Erin
>
> --
> Erin Hodgess
> Associate Professor
> Department of Computer and Mathematical Sciences
> University of Houston - Downtown
> mailto: erinm.hodg...@gmail.com
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
