断片/数学的な話題/一つのクラスに同じ誕生日の人がいる確率
をテンプレートにして作成
[
トップ
] [
新規
| |
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
#topicpath
** 一つのクラスに同じ誕生日の人がいる確率 [#z715b3fe]
- 概要~
一つのクラスに同じ誕生日の人が一組以上いる確率を[[R>http:...
~
- プログラム~
~
############################################
#
# クラスに同じ誕生日の人がいる確率.R
#
############################################
ProbabilityOfTheSameBirthday <- function(n, NumberOfThe...
ProbabilityNG <- NULL
ProbabilityNG[1] <- 1
for( i in 2:max(n) ){
ProbabilityNG[i] <- ProbabilityNG[i-1] * (NumberOfT...
}
return (1 - ProbabilityNG)
}
n <- 1:45
plot(n, ProbabilityOfTheSameBirthday(n), type='l', ylim...
- 結果~
横軸:クラスの人数 / 縦軸:同じ誕生日の人の組がある確...
~
&ref(https://robo.mydns.jp/Lecture/DATA/DAMPEN/SameBirthD...
終了行:
#topicpath
** 一つのクラスに同じ誕生日の人がいる確率 [#z715b3fe]
- 概要~
一つのクラスに同じ誕生日の人が一組以上いる確率を[[R>http:...
~
- プログラム~
~
############################################
#
# クラスに同じ誕生日の人がいる確率.R
#
############################################
ProbabilityOfTheSameBirthday <- function(n, NumberOfThe...
ProbabilityNG <- NULL
ProbabilityNG[1] <- 1
for( i in 2:max(n) ){
ProbabilityNG[i] <- ProbabilityNG[i-1] * (NumberOfT...
}
return (1 - ProbabilityNG)
}
n <- 1:45
plot(n, ProbabilityOfTheSameBirthday(n), type='l', ylim...
- 結果~
横軸:クラスの人数 / 縦軸:同じ誕生日の人の組がある確...
~
&ref(https://robo.mydns.jp/Lecture/DATA/DAMPEN/SameBirthD...
ページ名: