{"id":329,"date":"2024-03-21T13:33:50","date_gmt":"2024-03-21T04:33:50","guid":{"rendered":"https:\/\/home.hirosaki-u.ac.jp\/pteiki\/?page_id=329"},"modified":"2024-04-07T14:31:11","modified_gmt":"2024-04-07T05:31:11","slug":"chap14","status":"publish","type":"page","link":"https:\/\/home.hirosaki-u.ac.jp\/pteiki\/text\/stat5\/chap14\/","title":{"rendered":"14 \u591a\u91cd\u30ed\u30b8\u30b9\u30c6\u30a3\u30c3\u30af\u56de\u5e30"},"content":{"rendered":"

\u25a0<\/span> R\u30b3\u30de\u30f3\u30c0\u30fc\u306b\u3088\u308bHosmer-Lemeshow\u306e\u691c\u5b9a<\/h1>\n

Hosmer-Lemeshow\u306e\u691c\u5b9a\u306f\u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u3066\u8a08\u7b97\u3057\u307e\u3059\uff0e
\n\u306a\u304a\uff0c\u4f5c\u696d\u304c\u8907\u96d1\u3059\u304e\u3066\u884c\u3048\u306a\u3044\uff0c\u3068\u3044\u3046\u65b9\u306f\uff0c\u4e0b\u90e8\u5206\u306b\u3042\u308b\u6539\u5909R\u30b3\u30de\u30f3\u30c0\u30fc\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3059\u308c\u3070\uff0c\u5168\u3066\u8a2d\u5b9a\u3055\u308c\u3066\u3044\u307e\u3059<\/span>\uff0e
\n<\/span><\/p>\n

\u25a0 <\/span>\u30d1\u30c3\u30b1\u30fc\u30b8\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9<\/h1>\n

ResourceSelection\u306e\u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9<\/span>\u3057\u307e\u3059\uff0e<\/p>\n

RGui\u306e\u30b3\u30de\u30f3\u30c9\u30e9\u30a4\u30f3\u306b\uff0c\u4ee5\u4e0b\u306e\u6587\u3092\u30b3\u30d4\u30fc\uff06\u30da\u30fc\u30b9\u30c8<\/span>\u3057\uff0cEnter\u3092\u62bc\u3057\u307e\u3059\uff0e<\/p>\n

install.packages(“ResourceSelection”)<\/div>\n

\u3000[Secure CRAN mirrors]\u3068\u3044\u3046\u30c0\u30a4\u30a2\u30ed\u30b0\u30dc\u30c3\u30af\u30b9\u304c\u73fe\u308c\u308b\u306e\u3067\uff0c\u305d\u306e\u307e\u307e[OK]\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\uff0e<\/span><\/p>\n

\u30b3\u30de\u30f3\u30c9\u30e9\u30a4\u30f3\u304c\u5f85\u6a5f\u72b6\u614b\u3000\uff1e\uff5c<\/span>
\n\u307e\u305f\u306f
\n\u8b66\u544a: \u30d1\u30c3\u30b1\u30fc\u30b8 \u25cb\u25cb’ \u306f\u4f7f\u7528\u4e2d\u306e\u305f\u3081\u3001\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3055\u308c\u307e\u305b\u3093
\n\u3068\u51fa\u305f\u3089\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u7d42\u4e86\u3067\u3059\uff0e<\/span><\/p>\n

\u25a0 <\/span>\u30d1\u30c3\u30b1\u30fc\u30b8\u306e\u547c\u3073\u51fa\u3057<\/h1>\n

\u4e0a\u8a18\u7d42\u4e86\u5f8c\uff0c\u4ee5\u4e0b\u306e\u8d64\u5b57\u3092\u30b3\u30de\u30f3\u30c9\u30e9\u30a4\u30f3\u306b\u5165\u529b\u3057\u307e\u3059\uff0e<\/p>\n

library(“ResourceSelection”)<\/span><\/div>\n

RGui\u306e\u30b3\u30de\u30f3\u30c9\u30e9\u30a4\u30f3\u304c\u3000\uff1e\uff5c\u3000<\/span>\u306e\u3088\u3046\u306b\u5f85\u6a5f\u72b6\u614b\u306b\u306a\u308c\u3070OK<\/span>\u3067\u3059\uff0eR\u30b3\u30de\u30f3\u30c0\u30fc\u3082\u8d77\u52d5\u3057\u307e\u3059\uff0e
\n\u7570\u5e38\u306a\u6642\u306f\uff0c\u518d\u5ea6\uff0c\u300cR\u30b3\u30de\u30f3\u30c0\u30fc\u306e\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\uff1aRGui\u306e\u30b3\u30de\u30f3\u30c9\u30e9\u30a4\u30f3\u306b\u5165\u529b\u300d\u304b\u3089\u3084\u308a\u76f4\u3057\u3066\u4e0b\u3055\u3044\uff0e<\/p>\n

\u25a0 <\/span>Hosmer-Lemeshow\u306e\u691c\u5b9a\u306e\u624b\u9806<\/h1>\n

[R\u30b9\u30af\u30ea\u30d7\u30c8]\u306e\u3068\u3053\u308d\uff0c\u6700\u4e0b\u884c\u306b\u2461\u5168\u3066\u534a\u89d2\u3067\uff0c<\/p>\n

hoslem.test(GLM.2$y, GLM.\u25cf $fitted.values)<\/span><\/div>\n

\u3068\u5165\u529b\u3057\u307e\u3059\uff0eGLM.\u25cf\u306e\u25cf\u306f\u6570\u5b57\u3067\u3059\uff0eR\u30b3\u30de\u30f3\u30c0\u30fc\u753b\u9762\u306e\u53f3\u4e0a\u306e[\u30e2\u30c7\u30eb\uff1a]\u306e\u3068\u3053\u308d<\/span><\/strong><\/span>\u306b\uff0c\u9752\u5b57\u3067”GLM.2″\u3068\u304b\uff0c”GLM.3″\u306a\u3069\u3068\u3042\u308a\u307e\u3059\u306e\u3067\uff0c\u540c\u3058\u6570\u5b57\u3092\u5165\u308c\u3066<\/span><\/strong><\/span>\u304f\u3060\u3055\u3044\uff0e
\n\u5834\u5408\u306b\u3088\u3063\u30663\uff0c4\uff0c5\uff0c\u2026\uff0c\u3068\u6570\u5b57\u304c\u5909\u308f\u308a\u307e\u3059\u306e\u3067\uff0c\u6ce8\u610f\u3057\u3066\u304f\u3060\u3055\u3044\uff0e<\/p>\n

\u25a0 <\/span>\u5b9f\u969b\u306e\u5024\u3068\u4e88\u6e2c\u5024\u306e\u5206\u5272\u8868<\/h1>\n

\u3000\u591a\u91cd\u30ed\u30b8\u30b9\u30c6\u30a3\u30c3\u30af\u56de\u5e30\u5206\u6790\u3092\u884c\u3063\u3066\u304b\u3089\uff0c\u89e3\u6790\u3057\u307e\u3059\uff0e\u30c7\u30fc\u30bf\u540d\u306f\u201d\u7b2c14\u7ae0<\/span>\u201d\u3068\u3057\u3066\u3044\u307e\u3059\uff0e
\n\u4ee5\u4e0b\uff0c<\/p>\n

\u7b2c14\u7ae0<\/span>$\u4e88\u6e2c\u7fa4<-as.factor(as.numeric(\u7b2c14\u7ae0<\/span>$fitted.GLM.2>=0.5))
\n.Table <- xtabs(~\u8ee2\u5012\u7d4c\u9a13<\/span>+\u4e88\u6e2c\u7fa4, data=\u7b2c14\u7ae0<\/span>)
\n.Table
\nx<-sum(diag(.Table))\/(sum(.Table))*100
\nnames(x)<-c(“\u5224\u5225\u7684\u4e2d\u7387”)
\nx<\/div>\n

\u3092\u8cbc\u308a\u4ed8\u3051\u5b9f\u884c\u3057\u307e\u3059\uff0e\u30c7\u30fc\u30bf\u540d\u304c\u3061\u304c\u3046\u306a\u3089\u201c\u7b2c14\u7ae0<\/span>\u201d\u3092\u66f8\u304d\u63db\u3048\u308c\u3070\u89e3\u6790\u53ef\u80fd\u3067\u3059\uff0e\u5909\u6570\u540d\u3082\uff0c\u8ee2\u5012\u7d4c\u9a13\u3000\u3092\u66f8\u304d\u5909\u3048\u308c\u3070\u89e3\u6790\u53ef\u80fd<\/span>\u3067\u3059\uff08\u4e88\u6e2c\u7fa4\u306f\u5909\u3048\u307e\u305b\u3093\uff09\uff0e
\n\u203b\u4e0a\u8a18\uff0cANOVA\u95a2\u6570\u306e\u8cbc\u308a\u4ed8\u3051\u4f5c\u696d\u3092\u4e8b\u524d\u306b\u884c\u3063\u3066\u3044\u308b\u3053\u3068\u304c\u524d\u63d0\u3067\u3059\uff0e<\/p>\n

\u25a0 <\/span>\u30d1\u30c3\u30b1\u30fc\u30b8\u306e\u4fdd\u5b58<\/h1>\n

\u3000\u4e0a\u8a18\u4f5c\u696d\u5f8c\u306eR\u306e\u7d42\u4e86\u6642\u306b\uff0cRGui\u3067\u7d42\u4e86\u3057\uff0c\u300e\u4f5c\u696d\u30b9\u30da\u30fc\u30b9\u3092\u4fdd\u5b58\u3057\u307e\u3059\u304b\uff1f<\/span>\u300f\u306e\u554f\u3044\u306b\u5fc5\u305a\u300c\u306f\u3044\u300d\u3067\u7d42\u4e86<\/span><\/strong><\/span>\u3057\u3066\u304f\u3060\u3055\u3044\uff0e<\/p>\n

\u25a0 <\/span>\u6539\u5909R\u30b3\u30de\u30f3\u30c0\u30fc\u3067\u89e3\u6790\u3059\u308b\u5834\u5408\uff08\u4e0a\u8a18\u4f5c\u696d\u304c\u3067\u304d\u306a\u3044\uff0c\u884c\u3044\u305f\u304f\u306a\u3044\u65b9<\/span>\uff09<\/span><\/h1>\n

\u6539\u5909R\u30b3\u30de\u30f3\u30c0\u30fc<\/a>\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\uff0c\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3057\u3066\u304a\u3044\u3066\u304f\u3060\u3055\u3044\uff0e
\n\u3053\u3061\u3089\u306e\u8cc7\u6599<\/a>\u3092\u53c2\u8003\u306b\u64cd\u4f5c\u3057\u3066\u304f\u3060\u3055\u3044\uff0e
\n\u203b\u4f8b\u984c\u304c\u7570\u306a\u3063\u3066\u3044\u307e\u3059\u306e\u3067\uff0c\u5909\u6570\u540d\u304c\u9055\u3044\u307e\u3059\uff0e<\/p>\n

\u5148\u982d\u306b\u623b\u308b<\/a><\/span><\/p>\n","protected":false},"excerpt":{"rendered":"

\u25a0 R\u30b3\u30de\u30f3\u30c0\u30fc\u306b\u3088\u308bHosmer-Lemeshow\u306e\u691c\u5b9a Hosmer-Lemeshow\u306e\u691c\u5b9a\u306f\u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u3066\u8a08\u7b97\u3057\u307e\u3059\uff0e \u306a\u304a\uff0c\u4f5c\u696d\u304c\u8907\u96d1\u3059\u304e\u3066\u884c\u3048\u306a\u3044\uff0c\u3068\u3044\u3046\u65b9\u306f\uff0c\u4e0b\u90e8\u5206\u306b\u3042\u308b\u6539\u5909R\u30b3\u30de\u30f3\u30c0\u30fc\u3092\u30c0\u30a6\u30f3\u2026 \u7d9a\u304d\u3092\u8aad\u3080 »<\/a><\/span><\/p>\n","protected":false},"author":200,"featured_media":0,"parent":256,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"page-templates\/full-width.php","meta":{"footnotes":""},"class_list":["post-329","page","type-page","status-publish","hentry"],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/home.hirosaki-u.ac.jp\/pteiki\/wp-json\/wp\/v2\/pages\/329","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/home.hirosaki-u.ac.jp\/pteiki\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/home.hirosaki-u.ac.jp\/pteiki\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/home.hirosaki-u.ac.jp\/pteiki\/wp-json\/wp\/v2\/users\/200"}],"replies":[{"embeddable":true,"href":"https:\/\/home.hirosaki-u.ac.jp\/pteiki\/wp-json\/wp\/v2\/comments?post=329"}],"version-history":[{"count":4,"href":"https:\/\/home.hirosaki-u.ac.jp\/pteiki\/wp-json\/wp\/v2\/pages\/329\/revisions"}],"predecessor-version":[{"id":524,"href":"https:\/\/home.hirosaki-u.ac.jp\/pteiki\/wp-json\/wp\/v2\/pages\/329\/revisions\/524"}],"up":[{"embeddable":true,"href":"https:\/\/home.hirosaki-u.ac.jp\/pteiki\/wp-json\/wp\/v2\/pages\/256"}],"wp:attachment":[{"href":"https:\/\/home.hirosaki-u.ac.jp\/pteiki\/wp-json\/wp\/v2\/media?parent=329"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}