Many thanks Liviu!

Liviu Andronic wrote:
> On 2/1/10, Research <risk2009@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
>
> __________ Information from ESET Smart Security, version of virus signature database 4823 (20100201) __________
>
> The message was checked by ESET Smart Security.
>
> http://www.eset.com
>
>
>
>
>   




__________ Information from ESET Smart Security, version of virus signature database 4823 (20100201) __________

The message was checked by ESET Smart Security.

http://www.eset.com


	[[alternative HTML version deleted]]

