質問編集履歴
2
誤字
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
|
|
1
|
+
z(zは0から1の実数)を超えるまでに発生したすべての乱数を並べたベクトルを書きたい
|
test
CHANGED
|
File without changes
|
1
誤字
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,5 +1,3 @@
|
|
|
1
|
-
0,1間の一様乱数を発生させて、その値がz(zは0から1の実数)を超えるまでに発生したすべての乱数を発生順に要素とするベクトルを生成する関数rand_q(z)を書きたいです。
|
|
2
|
-
|
|
3
1
|
rand_q<-function(z){
|
|
4
2
|
|
|
5
3
|
u<-runif(1)
|
|
@@ -16,16 +14,14 @@
|
|
|
16
14
|
|
|
17
15
|
|
|
18
16
|
|
|
19
|
-
|
|
17
|
+
|
|
20
18
|
|
|
21
19
|
else break
|
|
22
20
|
|
|
23
21
|
}}
|
|
24
22
|
|
|
25
|
-
|
|
23
|
+
|
|
26
24
|
|
|
27
25
|
return(s)
|
|
28
26
|
|
|
29
27
|
}
|
|
30
|
-
|
|
31
|
-
上のプログラムだとうまくいかないのですが、教えてください。
|