[過去ﾛｸﾞ] 臨床統計もおもしろいですよ、その１ [無断転載禁止]©2ch.net (747ﾚｽ)

臨床統計もおもしろいですよ、その１ [無断転載禁止]©2ch.net http://egg.5ch.net/test/read.cgi/hosp/1493809494/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) ﾚｽ栞 あぼーん

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

202: 卵の名無しさん [sage] 2017/10/27(金) 15:54:12 ID:dzxKDqmi # ｎ発ｒ中の狙撃手がＮ発狙撃するときの命中数を返す Golgo.sim <- function(N, n, r, k=10^3,Print=TRUE){ # k:シミュレーション回数 f <-function(S,.N=N,.n=n){ # 成績サンプル：命中S個、外れ(N-S)個 y=c(rep(1,S),rep(0,.N-S)) sum(sample(y,.n)) # その成績サンプルからｎ個数取り出したときの命中数 } xx=r:N　# ｒ未満ではｒ個命中することはないので除外 SS=NULL # 容れ子 for(i in 1:k){ x=sapply(xx,f) # 命中数の配列 SS=append(SS,which(x==r)-1+r) # 命中数がｒ個のときの成績サンプルの命中数Ｓの配列をつくる } print(summary(SS)) print(quantile(SS,probs=c(0.025,0.05,0.95,0.975))) print(c(mode=names(which.max(table(SS)))),quote=FALSE) if(Print) { hist(SS,xlim=c(0,N),freq=FALSE,col=sample(colors(),1),main='',xlab='Hits') lines(density(SS))} invisible(SS) } http://egg.5ch.net/test/read.cgi/hosp/1493809494/202

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.110s*