{"id":1202,"date":"2023-12-01T03:11:31","date_gmt":"2023-11-30T19:11:31","guid":{"rendered":"https:\/\/edu.secda.info\/scu12354014\/?p=1202"},"modified":"2023-12-19T17:44:40","modified_gmt":"2023-12-19T09:44:40","slug":"20231128%e7%ac%ac%e5%8d%81%e4%ba%8c%e9%80%b1-%e5%a4%9a%e8%ae%8a%e9%87%8f%e4%bd%9c%e6%a5%ad","status":"publish","type":"post","link":"https:\/\/edu.secda.info\/scu12354014\/?p=1202","title":{"rendered":"20231128\u7b2c\u5341\u4e8c\u9031-\u591a\u8b8a\u91cf\u4f5c\u696d"},"content":{"rendered":"<p><span style=\"color: #333399;\"><strong>\u672c\u9031\u4f5c\u696d<\/strong><\/span><br \/>\n<span style=\"color: #333399;\"><strong>\u6839\u64da\u4e0a\u5468\u7684\u8cc7\u6599\u5206\u6790\uff0c\u5c07\u8cfc\u8cb7\u610f\u9858\u4f9d\u4e2d\u4f4d\u6578\u5206\u70ba\u9ad8\u4f4e\u5169\u7d44\uff0c\u9032\u884c\u4e8c\u5143\u908f\u5409\u65af\u8ff4\u6b78\u5206\u6790\u3002<\/strong><\/span><\/p>\n<p>### lm = linear model<br \/>\n### y = dependent = continuous<br \/>\n### x = indep continuous\/ categorical<br \/>\n###but categorical =&gt; dummy<br \/>\n###r\u53ef\u4ee5\u81ea\u52d5\u8f49dummy inlm<\/p>\n<p>###glm = generalized linear model<br \/>\n###\u5ee3\u7fa9\u7dda\u6027\u6a21\u5f0f<br \/>\n###y\u53ef\u4ee5\u662f \u9023\u7e8c\u3001\u4e8c\u5143\u3001\u985e\u5225\u3001\u6b21\u5e8f\u8b8a\u9805<br \/>\n###x\u548clm\u4e00\u6a23<\/p>\n<p><strong>##\u8cc7\u6599\u6574\u7406<\/strong><\/p>\n<blockquote><p>for(i in 2:31){<br \/>\ntemp_mean&lt;-mean(Data[,i],na.rm=T)<br \/>\nna.rows&lt;-is.na(Data[,i])<\/p>\n<p>Data[na.rows,i]&lt;-temp_mean<br \/>\n}<br \/>\nstr(Data)<\/p>\n<p>Data$\u6d89\u5165\u5ea6 &lt;-rowMeans(Data[ ,c(2:6,8)])<br \/>\nData$ \u4e92\u52d5 &lt;-rowMeans(Data[ ,c(9:13)])<br \/>\nData$ \u4fe1\u4efb &lt;-rowMeans(Data[ ,c(14:20)])<br \/>\nData$\u54c1\u724c\u5f62\u8c61 &lt;-rowMeans(Data[ ,c(21:26)])<br \/>\nData$\u8cfc\u8cb7\u610f\u9858 &lt;-rowMeans(Data[ ,c(27:31)])<\/p>\n<p>Data$High &lt;- ifelse(Data$\u8cfc\u8cb7\u610f\u9858 &gt;= median(Data$\u8cfc\u8cb7\u610f\u9858),1,0)<\/p>\n<p>Data$sex &lt;- ifelse(Data$g1==1,&#8217;Boy&#8217;,&#8217;Girl&#8217;)<br \/>\nfor (i in 1:384){<br \/>\nif( Data[i,&#8217;g2&#8242;] &lt;=3 ) {Data[i,&#8217;Edu&#8217;] &lt;- &#8216;\u9ad8\u4e2d(\u542b\u4ee5\u4e0b)&#8217;}<br \/>\nif( Data[i,&#8217;g2&#8242;] ==4 ) {Data[i,&#8217;Edu&#8217;] &lt;- &#8216;\u5927\u5b78\u3001\u5927\u5c08&#8217;}<br \/>\nif( Data[i,&#8217;g2&#8242;] ==5 ) {Data[i,&#8217;Edu&#8217;] &lt;- &#8216;\u7814\u7a76\u6240&#8217;}<br \/>\n}<br \/>\n#Compute diana() \u8a08\u7b97\u8ddd\u96e2<br \/>\nres.diana &lt;- diana(Data[,c(34:37)],) #stand = TRUE \u4e0d\u6a19\u6e96\u5316)<br \/>\nkm.res &lt;- kmeans(Data[,c(34:37)],centers = 2 ,iter.max = 25 ,nstart = 1)<br \/>\nData$cluster &lt;- km.res$cluster<br \/>\nData$cluster &lt;- ifelse(Data$cluster==1,&#8217;\u8b39\u614e\u6d88\u8cbb\u8005&#8217;,&#8217;\u5fe0\u8aa0\u6d88\u8cbb\u8005&#8217;)<\/p>\n<p>HW &lt;-Data[,c(34:42)]<br \/>\nstr(HW)<\/p><\/blockquote>\n<p><img decoding=\"async\" loading=\"lazy\" class=\"alignnone wp-image-1231\" src=\"https:\/\/edu.secda.info\/scu12354014\/wp-content\/uploads\/2023\/12\/\u87a2\u5e55\u64f7\u53d6\u756b\u9762-2023-12-01-030531-300x90.png\" alt=\"\" width=\"1009\" height=\"303\" srcset=\"https:\/\/edu.secda.info\/scu12354014\/wp-content\/uploads\/2023\/12\/\u87a2\u5e55\u64f7\u53d6\u756b\u9762-2023-12-01-030531-300x90.png 300w, https:\/\/edu.secda.info\/scu12354014\/wp-content\/uploads\/2023\/12\/\u87a2\u5e55\u64f7\u53d6\u756b\u9762-2023-12-01-030531-768x231.png 768w, https:\/\/edu.secda.info\/scu12354014\/wp-content\/uploads\/2023\/12\/\u87a2\u5e55\u64f7\u53d6\u756b\u9762-2023-12-01-030531.png 801w\" sizes=\"(max-width: 1009px) 100vw, 1009px\" \/><\/p>\n<p><span style=\"color: #333399;\"><strong>\u4e8c\u5143\u908f\u5409\u65af\u8ff4\u6b78\u5206\u6790<\/strong><\/span><\/p>\n<blockquote><p>Logit &lt;- glm(High~\u4fe1\u4efb+\u6d89\u5165\u5ea6+\u4e92\u52d5+\u4fe1\u4efb+\u54c1\u724c\u5f62\u8c61+sex+cluster+Edu,<br \/>\ndata=Data,<br \/>\nfamily = binomial)<br \/>\nlibrary(stargazer)<br \/>\nstargazer(Logit,<br \/>\ntype = &#8216;html&#8217;,<br \/>\nout = &#8216;C:\/Users\/zxcvb\/Desktop\/\u7814\/\u591a\u8b8a\u91cf\/logit.html&#8217;,<br \/>\ntitle = &#8216;logit Regression models&#8217;)<\/p><\/blockquote>\n<p><img decoding=\"async\" loading=\"lazy\" class=\"alignnone wp-image-1232\" src=\"https:\/\/edu.secda.info\/scu12354014\/wp-content\/uploads\/2023\/12\/\u87a2\u5e55\u64f7\u53d6\u756b\u9762-2023-12-01-030358-164x300.png\" alt=\"\" width=\"516\" height=\"944\" srcset=\"https:\/\/edu.secda.info\/scu12354014\/wp-content\/uploads\/2023\/12\/\u87a2\u5e55\u64f7\u53d6\u756b\u9762-2023-12-01-030358-164x300.png 164w, https:\/\/edu.secda.info\/scu12354014\/wp-content\/uploads\/2023\/12\/\u87a2\u5e55\u64f7\u53d6\u756b\u9762-2023-12-01-030358.png 406w\" sizes=\"(max-width: 516px) 100vw, 516px\" \/><\/p>\n<p><strong>\u4e92\u52d5\uff1a<\/strong> \u7cfb\u6578\u70ba 0.611\uff0cp \u503c\u5c0f\u65bc 0.01\uff08***\uff09\uff0c\u5177\u6709\u7d71\u8a08\u986f\u8457\u6027\u3002<\/p>\n<p><strong>\u54c1\u724c\u5f62\u8c61\uff1a<\/strong> \u7cfb\u6578\u70ba 0.959\uff0cp \u503c\u5c0f\u65bc 0.01\uff08***\uff09\uff0c\u5177\u6709\u7d71\u8a08\u986f\u8457\u6027\u3002<\/p>\n<p><strong>Log Likelihood<\/strong><strong>\uff1a<\/strong> -201.681\uff0c\u8868\u793a\u6a21\u578b\u89e3\u91cb\u4e86\u89c0\u5bdf\u5230\u7684\u8cc7\u6599\uff0cLog Likelihood\u8d8a\u63a5\u8fd1 0\uff0c\u6a21\u578b\u7684\u89e3\u91cb\u80fd\u529b\u8d8a\u597d\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u672c\u9031\u4f5c\u696d \u6839\u64da\u4e0a\u5468\u7684\u8cc7\u6599\u5206\u6790\uff0c\u5c07\u8cfc\u8cb7\u610f\u9858\u4f9d\u4e2d\u4f4d\u6578\u5206\u70ba\u9ad8\u4f4e\u5169\u7d44\uff0c\u9032\u884c\u4e8c\u5143\u908f\u5409\u65af\u8ff4\u6b78<\/p>\n","protected":false},"author":16,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1,26],"tags":[],"_links":{"self":[{"href":"https:\/\/edu.secda.info\/scu12354014\/index.php?rest_route=\/wp\/v2\/posts\/1202"}],"collection":[{"href":"https:\/\/edu.secda.info\/scu12354014\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/edu.secda.info\/scu12354014\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/edu.secda.info\/scu12354014\/index.php?rest_route=\/wp\/v2\/users\/16"}],"replies":[{"embeddable":true,"href":"https:\/\/edu.secda.info\/scu12354014\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1202"}],"version-history":[{"count":5,"href":"https:\/\/edu.secda.info\/scu12354014\/index.php?rest_route=\/wp\/v2\/posts\/1202\/revisions"}],"predecessor-version":[{"id":1235,"href":"https:\/\/edu.secda.info\/scu12354014\/index.php?rest_route=\/wp\/v2\/posts\/1202\/revisions\/1235"}],"wp:attachment":[{"href":"https:\/\/edu.secda.info\/scu12354014\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1202"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/edu.secda.info\/scu12354014\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1202"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/edu.secda.info\/scu12354014\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1202"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}