teratail
回答率
85.47%
質問するログイン新規登録
トップに関する質問コードミスを知りたい

編集履歴

質問編集履歴

5

2021/12/09 12:53

投稿

famikun
famikun

スコア2

test CHANGED
File without changes
test CHANGED
@@ -1,12 +1,12 @@
1
1
  f<-function(n){
2
2
 
3
- famif<-runif(10000)
3
+ famif<-runif(30000)
4
4
 
5
5
  y<-0
6
6
 
7
7
  count<-0
8
8
 
9
- for(i in 1:10000){
9
+ for(i in 1:30000){
10
10
 
11
11
  if(famif[i]<(n-y)/n){
12
12
 

4

2021/12/09 12:53

投稿

famikun
famikun

スコア2

test CHANGED
File without changes
test CHANGED
@@ -1,5 +1,3 @@
1
- n種類の数字を全種類取り出すまでの試行回数
2
-
3
1
  f<-function(n){
4
2
 
5
3
  famif<-runif(10000)

3

2021/12/09 12:40

投稿

famikun
famikun

スコア2

test CHANGED
@@ -1 +1 @@
1
- Rのコードミスを知りたい
1
+ コードミスを知りたい
test CHANGED
File without changes

2

2021/12/09 04:33

投稿

famikun
famikun

スコア2

test CHANGED
File without changes
test CHANGED
@@ -1,10 +1,8 @@
1
- n枚の異なるカードからランダムに一枚とっては戻す試行を繰り返し、ｎ種類が出そろうまでの回数を数えるプログラムを書いてるのですが、プログラムの実行結果が明らかに異なる値(10000)が出ます。ｒ
1
+ n種類の数字を全種類取り出すまでの試行回数
2
2
 
3
- コード
3
+ f<-function(n){
4
4
 
5
- montekun<-function(n){
6
-
7
- famif<-runif(10000) # とりあえず乱数を多めに設定
5
+ famif<-runif(10000)
8
6
 
9
7
  y<-0
10
8
 
@@ -12,7 +10,7 @@
12
10
 
13
11
  for(i in 1:10000){
14
12
 
15
- if(famif[i]<(n-y)/n){ # とったことのあるカードが含まれるほどとったことのないカードを引く確率は減る
13
+ if(famif[i]<(n-y)/n){
16
14
 
17
15
  if(y==n){
18
16
 
@@ -31,9 +29,3 @@
31
29
  count<-count+1
32
30
 
33
31
  }
34
-
35
- }
36
-
37
- return(count)
38
-
39
- }

1

誤字

2021/12/09 04:22

投稿

famikun
famikun

スコア2

test CHANGED
File without changes
test CHANGED
@@ -1,4 +1,4 @@
1
- 100枚の異なるカードからランダムに一枚とっては戻す試行を繰り返し、ｎ種類が出そろうまでの回数を数えるプログラムを書いてるのですが、プログラムの実行結果が明らかに異なる値(10000)が出ます。ｒ
1
+ n枚の異なるカードからランダムに一枚とっては戻す試行を繰り返し、ｎ種類が出そろうまでの回数を数えるプログラムを書いてるのですが、プログラムの実行結果が明らかに異なる値(10000)が出ます。ｒ
2
2
 
3
3
  コード
4
4