if (FALSE) {
jjj = local.file('hi', 'eps')
x= rnorm(10)
y= rnorm(10)
plot(x,y)
print('resize the current plot')
jpostscript(jjj)
plot(x,y)
dev.off()
jpostscript("HiThere", P=c(7,7) )
plot(x,y)
dev.off()
jpostscript("HiThere", P=c(7,7), w=10 )
plot(x,y)
dev.off()
}
Run the code above in your browser using DataLab