[過去ﾛｸﾞ] 臨床統計もおもしろいですよ、その2 (1002ﾚｽ)
上下前次1-新

---

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

---

910: 2020/02/12(水)15:42 ID:6n8f5vvH(3/6) AA×


[240|320|480|600|原寸|JPG|べ|ﾚｽ栞|ﾚｽ消]
910: [sage] 2020/02/12(水) 15:42:45 ID:6n8f5vvH ko=vector('list',6) # kicked out 退学までの軌跡 a=1:2　 # 1:１回で進級,2:１回留年して翌年進級 ko[[1]]=as.matrix(2) # １年時で退学 ko[[2]]=as.matrix(expand.grid(a,2)) # ２年時で退学の軌跡 ko[[3]]=as.matrix(expand.grid(a,a,2)) # 3年次で退学の軌跡 ko[[4]]=as.matrix(expand.grid(a,a,a,2)) ko[[5]]=as.matrix(expand.grid(a,a,a,a,2)) ko[[6]]=as.matrix(expand.grid(a,a,a,a,a,2)) f <- function(x){ # 軌跡与えてその確率（入学からの確率なので総和が退学確率Qに等しい) n=length(x) if(n==1) return(q[1]^2) Pf=1 for(i in 1:(n-1)) Pf=Pf*P12[x[i],i] return(Pf*q[n]^2) } Ef=numeric(6) # i年次退学する時の在学年数期待値(Qで除算が必要) for(i in 1:6){ pf=apply(ko[[i]],1,f) # i年次で退学する場合の軌跡での確率 nf=apply(ko[[i]],1,sum) # その軌跡での在学年数 Ef[i]=sum(pf*nf) } sum(Ef)/Q http://egg.5ch.net/test/read.cgi/hosp/1540905566/910
退学までの軌跡 １回で進級１回留年して翌年進級 １年時で退学 ２年時で退学の軌跡 年次で退学の軌跡 軌跡与えてその確率入学からの確率なので総和が退学確率に等しい 年次退学する時の在学年数期待値で除算が必要 年次で退学する場合の軌跡での確率 その軌跡での在学年数

---

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

---

あと 92 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.044s