臨床統計もおもしろいですよ、その１

臨床統計もおもしろいですよ、その１at HOSP

臨床統計もおもしろいですよ、その１ - 暇つぶし2ch129:卵の名無しさん
17/10/07 06:05:26.39 427btajj.net
G13 <- function(N,n,r){
pp=0:N
f <- function(x) choose(x,r)*choose(N-x,n-r)/choose(N,n)
sum(pp*f(pp)/sum(f(pp)))
}
G13(10000,100,100)
G13(10000,10,10)
G13(10000,1,1)

次ページ

続きを表示

1を表示