Many thanks Liviu!
Liviu Andronic wrote:
> On 2/1/10, Research <risk2...@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]]
______________________________________________
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.
