ウィリアムのいたずらの、まちあるき、たべあるき

delta<- 1000 
en.x<-seq(0,pi,length=delta) 
en.y<-sin(seq(0,pi,length=delta)) 
plot(en.x,en.y,type="l",xlim=c(0,pi),ylim=c(0,1))

setwd("C:/tmp")

postscript("test1.eps", horizontal=FALSE, height=5, width=5,onefile=FALSE,paper="special")

plot(en.x,en.y,type="l",xlim=c(0,pi),ylim=c(0,1))

dev.off() 

setwd("C:/tmp")

jpeg("test1.jpg", height=500, width=500)

plot(en.x,en.y,type="l",xlim=c(0,pi),ylim=c(0,1))

dev.off()