[R] Using tcltk or other graphical widgets to view zoo time series objects

[Liviu Andronic]

On 2/1/10, Research <risk2009 at ath.forthnet.gr> wrote:
>     do_something_else = function(playstate) ###Export here mean value of sequence playState$env$i###
>

Would this do the trick?
playwith(xyplot(dat[,c(1,i)]),  parameters = list(i = 1:100,
    do_something = function(playState) print(playState$env$i),
    do_something_else = function(playState) print(mean(dat[, playState$env$i])),
    do_something_diff = function(playState) {
        assign("x", mean(dat[, playState$env$i]), envir = .GlobalEnv)
        print(x)
    }
    )
)


Liviu