TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
【医療事故】東京府中市の榊原記念病院で2才児が死亡【麻酔ミス】
★難関 糖尿病内科専門医対策スレッド２
☆★不正専門医・指定医を報告するスレ★★
近藤誠氏のがんもどき論は正しいか その11
【運試し】おみくじ【!omikuji】
【京都】洛和会 音羽病院の情報
「発狂］筑波東病院横山治之品川区大井慈恵医大卒業
精神病とうつ病の女性はブランド依存症とTV放送された
【悪いか！評判】みちのく記念病院その4【凶淋飼】
●●●ナース総合スレッド●●●
- 44 ：
- ## p : probability of head at coin flip
seqNp <- function(N=100,K=5,p=0.5){
if(N==K) return(p^K)
q=1-p
a=numeric(N) # a(n)=P0(n)/p^n , P0(n)=a(n)*p^n
for(i in 1:K) a[i]=q/p^i # P0(i)=q
for(i in K:(N-1)){ # recursive formula
a[i+1]=0
for(j in 0:(K-1)){
a[i+1]=(a[i+1]+a[i-j])
}
a[i+1]=q/p*a[i+1]
}
P0=numeric(N)
for(i in 1:N) P0[i]=a[i]*p^i # P0(n)=a(n)*p^n
MP=matrix(rep(NA,N*K),ncol=K)
colnames(MP)=paste0('P',0:(K-1))
MP[,'P0']=P0
head(MP);tail(MP)
MP[1,'P1']=p
for(i in (K-2):K) MP[1,i]=0
for(k in 2:K){
for(i in 1:(N-1)) MP[i+1,k]=p*MP[i,k-1]
} # Pk(n+1)=p*P(k-1)(n)
ret=1-apply(MP,1,sum)
ret[N]
}
内視鏡検査について Part.3
病院や医者の犯罪を列挙し記録していくスレ
【未成年へのセクハラ 患者大量に薬殺】筑波東病院横山治之品川区大井慈恵医大卒業
【発達障※ﾏｲｸｿ】つぶれかけのクリニック通常版【歯科篇】354
【Welcome】つぶれかけのクリニック通常版【歯科篇】353
聖路加国際病院★2
今、ヤブ医者に当たったわw
筑波東病院死亡退院問題
麻酔科43
書き込むと願いが叶う夢が叶う宝地図スレ2
--------------------
サンバイベント情報111
☆☆ TBSの番組を改編 Part387☆☆
【いつのまにか】ｱｲﾃﾞｨｱﾌｧｸﾄﾘｰ総合112【22周年】
中国軍の２機 尖閣諸島に接近
小僧、117回目のデモクラシー
SIREN(サイレン)総合Part153
週刊『超時空要塞マクロス VF-1バルキリー ファイターモード ダイキャストギミックモデルをつくる』
自分の悩みや不幸を創作に生かしたい
マーベルストライクフォース
【まみみ】☆斎藤真美☆ Part15【おはようコールABC】
━━━━━ NECレッドロケッツ Part99 ━━━━━
【オウム】オウム松本元死刑囚の遺骨「太平洋に散骨」…サーファーや漁師から不安の声 「魚が骨を食べると思うと嫌」★2
蒙古タンメン(カップ)ってそんなにうまいか？
Sint-Truidense VV 冨安健洋 Part1
機動戦隊アイアンサーガ 274機目 【アイサガ】
【AA】ArcheAge Part241【アーキエイジ】
Nikon D40 Prat53
大 組 閣
【美人】ハンガリーカラカス応援スレ【いい人】
履正社 part2
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼