smoking186 https://blog.hatena.ne.jp/smoking186/ 186 @ hatenablog https://186.hatenablog.com/ 確率・統計 CS 2次元ランダムウォーク どう書く？org 1次元版が1行で書けてびっくりですよ. wにf.xをapplyしようとしてこけたのでリストに変換後lapplyしてunlistしてベクトル化. もっといいデータ構造を使うと3次元表示のときに点と点の間に線を引けるのではないかと予想. t <- 1000 #1次元 plot(cumsum(c(0,2*floor(2*runif(t-1))-1)),type="l") #2次元 x <- 0 y <- 0 f.x <- function(t){switch(t,1,-1,0,0)} f.y <- function(t){switch(t,0,0,1,-1)… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2F186.hatenablog.com%2Fentry%2F20080728%2F1217253045" title=" Rの練習 - 186 @ hatenablog" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> http://cdn-ak.f.st-hatena.com/images/fotolife/s/smoking186/20080728/20080728225246.png Hatena Blog https://hatena.blog 2008-07-28 22:50:45 rich https://186.hatenablog.com/entry/20080728/1217253045 1.0 100%