西田 典充– Author –

気づいたらブログの記事がまったく更新されていません（仕事とか本業とか学業とかでなかなか時間が取れなかったんです。申し訳ありません。） そんな中、本業（産業保健）の実務でRを使う機会がたくさんあり、Office＋Rが個人的に「あつい」のとかなり便利...

library(tidyverse) library(gtsummary) #wordpressでの出力でgtsummaryがうまく動かなかったため、モデルを並べる自作関数を作成 compare_models <- function(models, labels){ procamod <- function(amodel, alabel){ broom::tidy(amodel, conf.in...

【はじめに】 先日、Rで行列計算のみで重回帰分析を実装してみましたが、この記事ではその行列計算の導出を行ってみたいと思います。個人的な勉強ノートを公開しているだけなので、もし「ここが間違っている」とかがあれば教えていただけたら非常に嬉しい...

Causal Mediation Analysisの勉強のために自分が理解するためにまとめたノートを公開します。 尚、内容はKRSKさんの素晴らしいブログの記事を思いっきり参考にしています。 因果効果のメカニズムを検討する：媒介分析(Causal Mediation Analysis)入門①～既...

Causal Mediation Analysisの勉強をはじめたところ、$Y_{a=1}$などの記号の意味がだいぶ怪しくなっていたため、改めて自分のための勉強ノートを作成しがてら、スライドにまとめてみました。 参考文献は、 What If データから因果関係をどう導く？：統計的...

library(tidyverse) library(gtsummary) #wordpressでの出力でgtsummaryがうまく動かなかったため、モデルを並べる自作関数を作成 compare_models <- function(models, labels){ procamod <- function(amodel, alabel){ broom::tidy(amodel, conf.in...

library(tidyverse) library(gtsummary) #wordpressでの出力でgtsummaryがうまく動かなかったため、モデルを並べる自作関数を作成 compare_models <- function(models, labels){ procamod <- function(amodel, alabel){ broom::tidy(amodel, conf.in...

【前置き】 R言語をそれなりに使えるようになり、別言語を時折思い出したかのように勉強してみるのですが、その目的が「デスクトップアプリを作成したい」からです。 WebアプリはRのShinyでそれなりに自分が作りたいものを作れるようになったので、「よし...

Ver1：2022年2月14日Ver2：2022年2月18日（「追記」を追加しました） この記事では、Rでの困りごとを他の人に相談するときに便利な「reproducible example」の考え方について解説してみました。（個人の意見なので、建設的な批判・ご意見・ご指摘などはウ...

この記事は、purrr::map系の関数を利用して、グループ化したデータを処理する方法の解説を実例を交えて試みたものとなります。 【準備】 利用するパッケージは、おなじみ、tidyverseです。 library(tidyverse) データは、gapminderパッケージのgapminderデ...