底辺私立医大を卒業した医者って頭悪いよね？ Part4

底辺私立医大を卒業し ..

75:卵の名無しさん
18/05/25 18:59:41.78 8Ot6XASs.net
# 医学部　私立　裏口 24,800 件
# 医学部　国立　裏口 23,800 件
# 医学部　私立　 2,430,000 件
# 医学部　国立　 5,370,000 件
#
# ド底辺私立医　裏口3,480 件
# ド底辺私立医　12,200 件
r1=24800
r2=23800
r3=3480
n1=2430000 # 私立
n2=5370000 # 国立
n3=12200 # 底辺
prop.test(c(r1,r2,r3),c(n1,n2,n3))
prop.test(c(r1,r2),c(n1,n2)) # 私立vs国立
prop.test(c(r1,r3),c(n1,n3)) # 私立vs底辺
prop.test(c(r3,r2),c(n3,n2)) # 底辺vs国立
pairwise.prop.test(c(私立=r1,国立=r2,底辺=r3),c(n1,n2,n3),p.adjust='bonferroni')

次ページ

続きを表示

1を表示