１次元空間で、一定の歩幅での離散時刻酔歩は n <- 1000 x <- cumsum(sample(c(-1,1),replace=TRUE,n)) plot(x,type="l") すべての時刻で、位置の期待値は0で、分散は時刻tに対して、t n <- 1000 n.trial <- 10000 X <- matrix(sample(c(-1,1),replace=TRUE,…