質問編集履歴
5
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,8 +1,8 @@
|
|
|
1
1
|
f<-function(n){
|
|
2
|
-
famif<-runif(
|
|
2
|
+
famif<-runif(30000)
|
|
3
3
|
y<-0
|
|
4
4
|
count<-0
|
|
5
|
-
for(i in 1:
|
|
5
|
+
for(i in 1:30000){
|
|
6
6
|
if(famif[i]<(n-y)/n){
|
|
7
7
|
if(y==n){
|
|
8
8
|
break
|
4
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,4 +1,3 @@
|
|
|
1
|
-
n種類の数字を全種類取り出すまでの試行回数
|
|
2
1
|
f<-function(n){
|
|
3
2
|
famif<-runif(10000)
|
|
4
3
|
y<-0
|
3
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
|
|
1
|
+
コードミスを知りたい
|
body
CHANGED
|
File without changes
|
2
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,11 +1,10 @@
|
|
|
1
|
-
n
|
|
1
|
+
n種類の数字を全種類取り出すまでの試行回数
|
|
2
|
-
コード
|
|
3
|
-
|
|
2
|
+
f<-function(n){
|
|
4
|
-
famif<-runif(10000)
|
|
3
|
+
famif<-runif(10000)
|
|
5
4
|
y<-0
|
|
6
5
|
count<-0
|
|
7
6
|
for(i in 1:10000){
|
|
8
|
-
if(famif[i]<(n-y)/n){
|
|
7
|
+
if(famif[i]<(n-y)/n){
|
|
9
8
|
if(y==n){
|
|
10
9
|
break
|
|
11
10
|
}else{
|
|
@@ -14,7 +13,4 @@
|
|
|
14
13
|
}
|
|
15
14
|
}else{
|
|
16
15
|
count<-count+1
|
|
17
|
-
}
|
|
16
|
+
}
|
|
18
|
-
}
|
|
19
|
-
return(count)
|
|
20
|
-
}
|
1
誤字
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
|
|
1
|
+
n枚の異なるカードからランダムに一枚とっては戻す試行を繰り返し、ｎ種類が出そろうまでの回数を数えるプログラムを書いてるのですが、プログラムの実行結果が明らかに異なる値(10000)が出ます。ｒ
|
|
2
2
|
コード
|
|
3
3
|
montekun<-function(n){
|
|
4
4
|
famif<-runif(10000) # とりあえず乱数を多めに設定
|