[R] plot via xyplot not being saved

[Benilton Carvalho]

So, if those statements are inside a function, I have to make my  
function to have an 'echo' argument/functionality? eg.:

## begin test.R
test <- function(n){
   y <- rnorm(n)
   x <- rnorm(n)
   z <- sample(letters[1:4], n, rep=T)
   library(lattice)
   bitmap("tst.png")
   xyplot(y~x|z)
   dev.off()
}

test(100)
## end test.R

source("test.R", echo=T)

also fails in this case...

thanks a lot,

b


On Jun 15, 2007, at 8:53 PM, deepayan.sarkar at gmail.com wrote:

> On 6/15/07, Benilton Carvalho <bcarvalh at jhsph.edu> wrote:
>> Hi everyone,
>>
>> it's been a while I've been trying to save a plot created via
>> lattice:::xyplot
>>
>> if I have a file tst.R with the following code:
>>
>> y <- rnorm(100)
>> x <- rnorm(100)
>> z <- sample(letters[1:4], 100, rep=T)
>> library(lattice)
>> bitmap("tst.png")
>> xyplot(y~x|z)
>> dev.off()
>>
>> and I source it, I get the tst.png file, which is a blank page.
>>
>> If I copy and paste instead, I get the correct plot.
>>
>> Any suggestion?
>
> Use
>
> source(..., echo = TRUE)
>
> -Deepayan