t/data/script.R

   1 postscript("file2.ps" , horizontal=FALSE , width=500 , height=500 , pointsize=1)
   2
   3 plot(c(1, 5, 10), type = "l")
   4
   5 dev.off()
   6
   7 unlink("file2.ps")
   8
   9 for (j in 1:3) { cat("loop iteration: "); print(j); }
  10
  11 write("Some innocuous message on stdout\n", stdout())
  12
  13 write("Some innocuous message on stderr\n", stderr())
  14
  15 x <- 123
  16 print(x)
  17
  18 x <- 456 ; write.table(x, file="", row.names=FALSE, col.names=FALSE)
  19
  20 a <- 2
  21 b <- 5
  22 c <- a * b
  23 print('ok')
  24