{"id":616,"date":"2023-11-12T08:09:33","date_gmt":"2023-11-11T23:09:33","guid":{"rendered":"https:\/\/bunseki-data.com\/r-onlinecourse\/?p=616"},"modified":"2023-11-12T08:33:16","modified_gmt":"2023-11-11T23:33:16","slug":"index-knit-md-2","status":"publish","type":"post","link":"https:\/\/bunseki-data.com\/r-onlinecourse\/2023\/11\/12\/index-knit-md-2\/","title":{"rendered":"\u91cd\u56de\u5e30\u5206\u6790\u306e\u30e2\u30c7\u30eb\u30c1\u30a7\u30c3\u30af\uff08\u7dda\u5f62\u6027\u306e\u78ba\u8a8d\uff09\u306e\u52c9\u5f37\u30e1\u30e2"},"content":{"rendered":"\n
library(tidyverse)\nlibrary(gtsummary)<\/code><\/pre>\n\n\n\n
#wordpress\u3067\u306e\u51fa\u529b\u3067gtsummary\u304c\u3046\u307e\u304f\u52d5\u304b\u306a\u304b\u3063\u305f\u305f\u3081\u3001\u30e2\u30c7\u30eb\u3092\u4e26\u3079\u308b\u81ea\u4f5c\u95a2\u6570\u3092\u4f5c\u6210\ncompare_models <- function(models, labels){\n  procamod <- function(amodel, alabel){\n    broom::tidy(amodel, conf.int = TRUE) |> \n    mutate(across(c(estimate, conf.low, conf.high), ~{\n      scales::number(., accuracy = 0.01)\n    })) |> \n    #mutate(p.value = scales::number(p.value, 0.0001)) |> \n    mutate(res = str_glue(\"{estimate}({conf.low} - {conf.high})\")) |> \n    select(term, res) |> \n    rename(!!rlang::sym(alabel) := res)\n  }\n\n  map2(models, labels, procamod) |> \n    reduce(~full_join(.x,.y,by=\"term\"))\n}<\/code><\/pre>\n\n\n\n
\u306f\u3058\u3081\u306b<\/h2>\n\n\n\n
\u4ed5\u4e8b\u95a2\u4fc2\u3067\u3001\u91cd\u56de\u5e30\u5206\u6790\u3092\u7523\u696d\u4fdd\u5065\u8077\u3084\u4eba\u4e8b\u90e8\u306e\u8208\u5473\u304c\u3042\u308b\u4eba\u306b\u6559\u3048\u305f\u3044\u3068\u601d\u3044\u7acb\u3061\uff08\u672c\u696d\u306f\u5b9f\u306f\uff01\uff1f\u7523\u696d\u533b\u3067\u3059\uff09\u3001\u6539\u3081\u3066\u91cd\u56de\u5e30\u5206\u6790\u3092\u3061\u3083\u3093\u3068\u3084\u308b\u65b9\u6cd5\u3092\u52c9\u5f37\u3057\u305f\u306a\u304b\u3067\u3001\u30e2\u30c7\u30eb\u30c1\u30a7\u30c3\u30af\u306e\u65b9\u6cd5\u306b\u3064\u3044\u3066\u5b9f\u306f\u305d\u3093\u306a\u306b\u6df1\u304f\u7406\u89e3\u3067\u304d\u3066\u3044\u306a\u3044\u3068\u3044\u3046\u3053\u3068\u306b\u6c17\u3065\u304d\u3001\u52c9\u5f37\u3057\u305f\u3053\u3068\u3092\u307e\u3068\u3081\u3066\u307f\u307e\u3057\u305f\u3002\u3053\u306e\u8a18\u4e8b\u3001\u304b\u306a\u308a\u52c9\u5f37\u30ce\u30fc\u30c8\u3068\u304b\u30e1\u30e2\u306b\u8fd1\u3044\u5f62\u306a\u306e\u3092\u3054\u7559\u610f\u304f\u3060\u3055\u3044\u3002<\/p>\n\n\n\n
\u5168\u4f53\u50cf\u3068\u3057\u3066\u306f\u3001<\/p>\n\n\n\n
    \n
  • \u4eee\u5b9a\u306e\u7f85\u5217\u3068\u6559\u79d1\u66f8\u306e\u8aac\u660e\u306e\u629c\u7c8b<\/li>\n\n\n\n
  • R\u3067\u30c7\u30fc\u30bf\u3068\u30e2\u30c7\u30eb\u3092\u4f5c\u6210\u3059\u308b<\/li>\n\n\n\n
  • car\u30d1\u30c3\u30b1\u30fc\u30b8\u306eDiagnosticPlot\u3092\u8abf\u3079\u305f\u5185\u5bb9\u306e\u8a18\u8f09<\/li>\n\n\n\n
  • \u8abf\u3079\u305f\u5185\u5bb9\u304b\u3089\u3001ggplot2\u3067car::residualPlots, car::avPlots, car::crPlots\u306e\uff13\u3064\u306e\u30d7\u30ed\u30c3\u30c8\u3092\u518d\u73fe\u3059\u308b\u95a2\u6570\u3092\u4f5c\u6210<\/li>\n\n\n\n
  • \u4f5c\u6210\u3057\u305f\u30c7\u30fc\u30bf\u306b\u5bfe\u3057\u3066car\u30d1\u30c3\u30b1\u30fc\u30b8\u306eDiagnostic Plot\u3068\u81ea\u4f5c\u95a2\u6570\u3092\u9069\u5fdc\u3057\u3066\u3001\u30e2\u30c7\u30eb\u3092\u9593\u9055\u3048\u3066\u6307\u5b9a\u3057\u305f\u5834\u5408\u306b\u5404\u30d7\u30ed\u30c3\u30c8\u304c\u3069\u306e\u3088\u3046\u306a\u3075\u308b\u307e\u3044\u3092\u3059\u308b\u304b\u3092\u898b\u3066\u307f\u308b\u3002<\/li>\n<\/ul>\n\n\n\n
    \u3068\u3044\u3046\u6d41\u308c\u3067\u3059\u3002<\/p>\n\n\n\n
    \u8b1d\u8f9e<\/h2>\n\n\n\n
    \u3053\u306e\u8a18\u4e8b\u306f\u3001\u79c1\u304cTwiter\u306b\u3064\u3076\u3084\u3044\u305f\u7591\u554f\u306b\u591a\u304f\u306e\u65b9\u304c\u304a\u8fd4\u4e8b\u3044\u305f\u3060\u3044\u305f\u3053\u3068\u304b\u3089\u3001\u4f5c\u6210\u3057\u3088\u3046\u3068\u8003\u3048\u307e\u3057\u305f\u3002\u30b3\u30e1\u30f3\u30c8\u3092\u3044\u305f\u3060\u3044\u305f\u5168\u3066\u306e\u65b9\u306b\u6df1\u3044\u611f\u8b1d\u3092\u7533\u3057\u4e0a\u3052\u307e\u3059\u3002<\/p>\n\n\n\n
    \u53c2\u8003\u56f3\u66f8<\/h2>\n\n\n\n
    \u3053\u306e\u8a18\u4e8b\u3092\u66f8\u304f\u306b\u3042\u305f\u308a\u3001\u6b21\u306e\u6559\u79d1\u66f8\u3092\u53c2\u8003\u306b\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n
    \n
    \u9ad8\u6a4b \u5c06\u5b9c(2022)\u300e\u7d71\u8a08\u7684\u56e0\u679c\u63a8\u8ad6\u306e\u7406\u8ad6\u3068\u5b9f\u88c5\u2015\u6f5c\u5728\u7684\u7d50\u679c\u5909\u6570\u3068\u6b20\u6e2c\u30c7\u30fc\u30bf\u2015\u300f\u5171\u7acb\u51fa\u7248<\/p>\n\n\n\n
    Fox, John, Sanford Weisberg. An R Companion to Applied Regression. Third edition. Los Angeles: SAGE, 2019<\/p>\n\n\n\n
    Jeffrey M Wooldridge. Introductory EconomEtrIcs A modern Approach 7e<\/p>\n\n\n\n
    Fox, John, Regression Diagnostics An Introduction Second Edition.<\/p>\n<\/blockquote>\n\n\n\n
    \u3068\u304f\u306b\u3001\u9ad8\u6a4b\u5148\u751f\u306e\u672c\u3001\u5165\u624b\u3057\u3066\u3044\u305f\u306e\u306b\u3001\u6700\u521d\u306e\u90e8\u5206\u3092\u8aad\u307f\u98db\u3070\u3057\u3066\u3044\u3066\u3001\u53cd\u7701\u3057\u3066\u3044\u307e\u3059\u3002\u3082\u306e\u3059\u3054\u304f\u5206\u304b\u308a\u3084\u3059\u3044\u672c\u306a\u306e\u3067\u3001R User\u3067\u306a\u304f\u3066\u3082\u30aa\u30b9\u30b9\u30e1\u3067\u3059\u3002<\/p>\n\n\n\n