www.crosshyou.infoの続きです。
今回は曜日 x 退院済フラグでクロス表を作ります。
これは、不要なデータを削除する必要はないですね。
prop.table関数で比率を見ましょう。
金曜日が退院済フラグが0、退院していない人が多いです。
barplot関数でグラフにします。
prop.table(曜日退x院済フラグ, margin = 2)[ , 1]と[ , 1]を付けて1列目だけをグラフにしています。金曜日が高いのがよくわかります。
chisq.test関数でこの金曜日の比率の高さは偶然の範囲なのかどうか検定します。
p-value = 0.0005599と0.05よりも小さいです。金曜日の比率の高さは偶然とは言えないです。
$stdresで調整済み残差を見ます。
月曜日と金曜日が有意に0が多く、土曜日は有意に0が少ないです。
今回は以上です。