{"id":1239,"date":"2020-08-30T18:53:48","date_gmt":"2020-08-30T10:53:48","guid":{"rendered":"http:\/\/cnliutz.uicp.io\/?p=1239"},"modified":"2020-08-30T18:58:44","modified_gmt":"2020-08-30T10:58:44","slug":"r%e5%9b%9e%e5%bd%92%e5%88%86%e6%9e%90-r-notebook","status":"publish","type":"post","link":"http:\/\/g1n29wqq.ipyingshe.net:5347\/?p=1239","title":{"rendered":"R\u56de\u5f52\u5206\u6790 r-notebook"},"content":{"rendered":"\n<p><\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>---\ntitle: \"R Notebook\"\noutput:\n  html_document:\n    df_print: paged\n  html_notebook: default\n  pdf_document: default\n---\n```{r}\nlibrary(ISwR)\nattach(thuesen)\nlm(short.velocity~blood.glucose)\nhead(thuesen)\n#thuesen\ny &lt;- lm(short.velocity~blood.glucose)\nsummary(y)    #\u56de\u5f52\u7ed3\u679c \u6982\u8981\u8f93\u51fa\nanova(y)      #\u56de\u5f52\u65b9\u5dee\u5206\u6790\nplot(blood.glucose,short.velocity)\n#abline(lm(short.velocity~blood.glucose))\nabline(1.3,.022) #\u622a\u8ddd\u3001\u659c\u7387\u753b\u76f4\u7ebf\nsegments(blood.glucose,fitted(y),blood.glucose,short.velocity)\ncc &lt;- complete.cases(thuesen) #\u5904\u7406\u7f3a\u5931\u503c\nthuesen&#91;cc,]     #\u53e6\u5916\u4e00\u4e2a\u65b9\u6cd5\u5904\u7406\u7f3a\u5931\u503c\uff0c\u66f4\u597d\n#options(na.action=na.exclude)\npred.fram &lt;- data.frame(blood.glucose=4:20)\npp &lt;- predict(y,int=\"prediction\",newdata=pred.fram)   #\u76f4\u7ebf\u9884\u6d4b\u6570\u636e\npc &lt;- predict(y,int=\"confidence\",newdata=pred.fram)   #\u53ef\u4fe1\u533a\u95f4\u9884\u6d4b\nplot(blood.glucose,short.velocity,ylim = range(short.velocity,pp,na.rm = T))\npred.gluc &lt;- pred.fram$blood.glucose\nmatlines(pred.gluc,pc,lty = c(1,2,2),col = \"black\")   #\u77e9\u9635\u7ed8\u5236\u7ebf\u56fe\nmatlines(pred.gluc,pp,lty = c(1,3,3),col = \"black\")\n```<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[15],"tags":[],"class_list":["post-1239","post","type-post","status-publish","format-standard","hentry","category-r"],"_links":{"self":[{"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=\/wp\/v2\/posts\/1239","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1239"}],"version-history":[{"count":2,"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=\/wp\/v2\/posts\/1239\/revisions"}],"predecessor-version":[{"id":1241,"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=\/wp\/v2\/posts\/1239\/revisions\/1241"}],"wp:attachment":[{"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1239"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1239"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1239"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}