コードミスを知りたい

Question

f<-function(n){
famif<-runif(30000)
y<-0
count<-0
for(i in 1:30000){
if(famif[i]<(n-y)/n){
if(y==n){
break
}else{
y<-y+1
count<-count+1
}
}else{
count<-count+1
}

Answer 1

for ループの停止条件を if 文の外側に置きましょう。

montekun<-function(n){
  famif<-runif(10000) #  とりあえず乱数を多めに設定
  y<-0
  for(i in 1:10000){
    if(y==n) break
    if(famif[i]<(n-y)/n){
      y<-y+1
    }
  }
  return(i-1)
}

Comments

[famikun]

素早い回答ありがとうございます。melianさんの簡潔なコードに比べて自分のコードはcountが無駄で無駄に長くなってしまっていることがわかりました。　自分のコードがなぜ機能していなかったのか、よろしければ教えてください。breakは直近の繰り返しループを止めると習ったのでy==nになった時点で停止するかなと思ったのですが...　if文の入れ子構造内にbreakを設けたことがいけなかったのでしょうか？

[melian]

n と y が等しくなった時、ｆamif[i]<(n-y)/n は常に False になります（famif[i] は常に 0 以上ですので）。そうなりますと、以下の if 文の else 節ばかり実行されてしまいます。結果、ループの最後まで実行されて count が 10000 になってリターンする事になります。

if(famif[i]<(n-y)/n){
:

}else{
count<-count+1
}

元のコードで言えば、以下の様になっていれば期待通りの結果が得られたはずです。

if(famif[i]<(n-y)/n){
y<-y+1
if(y==n){
break
}else{
count<-count+1
}
} else {
count<-count+1
}

[famikun]

納得できました。ありがとうございます。