> source("lab8-funs.r")
>
> set.seed(1)
> plot(biased_random_walk(0.8,1000))
> title("biased random walk")
> set.seed(1)
> w <- random_walks_1 (1000, 4)
> plot_walks(w)
> title("random_walks_1")
> set.seed(1)
> w <- random_walks_2 (1000, 4)
> plot_walks(w)
> title("random_walks_2")
> set.seed(1)
> w <- random_walks_3 (1000, 4)
> plot_walks(w)
> title("random_walks_3")
> set.seed(1)
> w <- random_walks_3 (1000, 50)
> plot(walk_sd(w))
> lines(sqrt(0:(nrow(w)-1)))
> title("walk_sd with seed 1")
> set.seed(2)
> w <- random_walks_3 (1000, 50)
> plot(walk_sd(w))
> lines(sqrt(0:(nrow(w)-1)))
> title("walk_sd with seed 2")
> set.seed(1)
> h <- steps_dist (4, 500)
> sort(h)
[1] 4 4 4 4 4 4 4 4
[9] 4 4 4 4 4 4 4 4
[17] 4 4 4 4 4 4 4 4
[25] 4 4 6 6 6 6 6 6
[33] 6 6 6 6 6 6 6 6
[41] 6 6 6 6 6 6 6 6
[49] 6 6 6 6 6 8 8 8
[57] 8 8 8 8 8 8 8 8
[65] 8 8 8 8 8 8 8 8
[73] 8 8 8 8 8 8 8 8
[81] 8 8 10 10 10 10 10 10
[89] 10 10 10 10 10 10 10 10
[97] 10 10 10 10 10 10 12 12
[105] 12 12 12 12 12 12 12 12
[113] 12 12 12 12 12 12 12 12
[121] 12 12 12 14 14 14 14 14
[129] 14 14 14 14 14 14 14 14
[137] 14 14 14 14 14 16 16 16
[145] 16 16 16 16 16 16 16 16
[153] 16 16 18 18 18 18 18 18
[161] 18 18 18 18 18 18 18 20
[169] 20 20 20 20 20 20 20 20
[177] 20 20 20 20 20 20 22 22
[185] 22 22 22 22 22 22 22 22
[193] 22 22 24 24 24 24 24 24
[201] 24 24 24 24 24 26 26 26
[209] 26 26 26 28 28 28 28 28
[217] 28 28 28 28 28 30 30 30
[225] 30 30 30 30 32 32 32 32
[233] 32 32 34 34 34 34 34 34
[241] 34 36 36 36 38 38 38 38
[249] 38 38 38 40 40 40 40 40
[257] 40 40 40 40 40 40 42 42
[265] 42 44 44 46 46 46 48 48
[273] 48 50 52 52 54 54 54 54
[281] 54 56 56 56 58 58 58 58
[289] 60 60 60 60 60 60 60 60
[297] 60 62 62 62 64 64 64 66
[305] 66 68 70 70 70 70 72 72
[313] 72 72 72 74 74 74 76 78
[321] 80 80 80 80 82 82 84 84
[329] 84 84 84 88 88 88 90 92
[337] 92 92 96 98 98 98 100 102
[345] 102 102 104 106 106 106 108 108
[353] 108 110 110 110 112 116 116 118
[361] 120 124 126 128 132 136 138 140
[369] 142 144 152 152 156 158 158 160
[377] 164 166 168 168 172 172 174 176
[385] 176 180 182 186 186 188 190 194
[393] 194 196 208 210 210 218 238 240
[401] 250 266 266 272 274 286 302 308
[409] 318 324 332 338 342 346 354 356
[417] 356 360 374 390 410 416 420 426
[425] 426 430 480 502 504 504 510 514
[433] 520 528 530 546 546 552 578 580
[441] 638 712 728 746 808 966 992 1008
[449] 1012 1022 1022 1042 1086 1108 1116 1120
[457] 1192 1200 1330 1356 1420 1440 1482 1616
[465] 1624 1714 1818 1840 1916 1972 1980 2068
[473] 2118 2142 2392 2478 2960 2978 3026 3072
[481] 3540 3636 3676 3908 3970 4076 6414 6948
[489] 7162 7896 9554 10734 19852 24288 54664 111034
[497] 140184 559962 859716 1318344