正弦波. library(animation) wave <- function() { for(t in 1:100) { plot(function(x){ sin(x + 0.08 * pi * t) }, -pi, 2*pi, xlab="x", ylab="sin(x)", col="blue", lwd=3) } } saveMovie(wave(), interval=0.05, moviename="wave", movietype="gif", outdir=getwd(), width=640, height=480) ソースはこれだけ.wave()で位相が少しずつ異なる正弦波を100回plotしているだけ.簡単. うねうね.こちらはGIFアニメで出力したところ5.3Mと巨大なファイルになってしまったので,試しにMPEGで出力させてみた. library(animati
![Rのanimationパッケージを使ってみるテスト - ぬいぐるみライフ?](https://cdn-ak-scissors.b.st-hatena.com/image/square/76633d1139d1d86fc347f418b96c8b458bd8dac3/height=288;version=1;width=512/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fm%2Fmickey24%2F20090614%2F20090614235454.gif)