zを超えるまでに発生したすべての乱数をベクトル要素としたい

Question

0,1間の一様乱数を発生させ、その値がzを超えるまでに発生したすべての乱数を発生順に要素とするベクトルを生成する関数をつくりたいのですが、4月8日に質問したところ以下のコードを教えていただきました。しかしながら、、下のように実行すると結果のベクトルが3個以上出てきません。原因を教えてください。
rand_q<-function(z){
s<- runif(1)
repeat{
if (max(s) <= z)
{s<- c(s,runif(1))}
else break
}
return(s)
}
rand_v(0.99)

結果

rand_v(0.99)

[1] 0.8019299 0.3437487

Comments

[hoshi-takanori]

rand_v(0.99) じゃなくて rand_q(0.99) では。そして、rand_v(0.99) は値を二つしか返さないような別の関数なのでは。

[Mizugorou]

おっしゃる通りです。ありがとうございます。解決しました。

Answer 1

rand_q<-function(z){
s<- runif(1)
repeat{
if (max(s) <= z)
{s<- c(s,runif(1))}
else break
}
return(s)
}
rand_q(0.99)