postscript("file2.ps" , horizontal=FALSE , width=500 , height=500 , pointsize=1)
plot(c(1, 5, 10), type = "l")
dev.off()
unlink("file2.ps")
for (j in 1:3) { cat("loop iteration: "); print(j); }
write("Some innocuous message on stdout\n", stdout())
write("Some innocuous message on stderr\n", stderr())
x <- 123
print(x)
x <- 456 ; write.table(x, file="", row.names=FALSE, col.names=FALSE)
a <- 2
b <- 5
c <- a * b
print('ok')