Rpackage

日本版敗血症診療ガイドライン2020 (J-SSCG2020) の血糖管理でネットワークメタアナリシスをやってみる

The Japanese Clinical Practice Guidelines for Management of Sepsis and Septic Shock 2020 (J-SSCG 2020) 「日本版敗血症診療ガイドライン2020 (J-SSCG2020)」正式版 公開のお知らせ|日本集中治療医学会 日本版敗血症診療ガイドライン2020 (J-SSCG2020)…

Beyond ER ドクターカー&ヘリと心肺蘇生

読んだ。BeyondER(ビヨンダー) Vol.2 No.1 2023メディカルサイエンスインターナショナルAmazonBeyondER (2巻1号) | 医書.jp ヘリには乗らないのでドクターヘリやドクターカーの運用やエビデンスを勉強した。院外心停止の蘇生も復習がてら読んだ。ショック不…

NEJMに載るようなRCTでも再解析したら結果が異なるのですが??

面白い話題を見つけたので考えてみようと思ったらデータもあったのでやってみた。 ことの発端はここで 産科編 妊娠中期 妊娠中、虫歯の治療はできますか? (周産期医学 49巻13号) | 医書.jp 妊婦に歯科治療を行うと37週未満の早産が減らせるかどうかというRCT…

多カテゴリへの回帰

二値ならbinaryだが多カテゴリのときにどうするか、ということでnnet::multinomかmlogit::mlogitが使えるがnnet::multinomのほうが使いやすかった。 m <- nnet::multinom(Species ~ ., data=iris) # weights: 18 (10 variable) initial value 164.791843 ite…

R shiny で出力される図のサイズを入力パラメータでうまくしたい

R shiny で図を出力するのだが、図の大きさをinputで入力したとき、renderPlotの引数(widthとheight)にそれぞれ持たせようとすると、エラーになる。 状況としてはこんな感じである。 library(shiny) server <- function(input, output, session) { height …

COVID-19と無症候性低酸素血症

書いた。 Asymptomatic Hypoxemia as a Characteristic Symptom of Coronavirus Disease: A Narrative Review of Its Pathophysiology. COVID 2022, 2(1), 47-59. COVID-19において、低酸素血症なのにぜんぜん苦しそうにない、いわゆるhappy hypoxia もしく…

ランダムに昇進を決めることが全体の価値を最も高める、というPeterの法則とイグノーベル賞の話

読んだ。 [0907.0455] The Peter Principle Revisited: A Computational Studyこんな動画を見た。 www.youtube.com 2010年のイグノーベル賞で、Peterの法則というものをシミュレーションで示した、という話。社員地位構造が階層的な場合、昇進するときに能力…

Rのshiny をweb公開したときに日本語フォントが表示されないのがlibrary(showtext) で解決しなかった

ちょっとしたアプリケーションを作って、自分以外の、Rが使えない人でもデータを入力したら出力を得られるような仕様にしたい。 そこで、R のshiny を使ってweb にアクセスしたら使えるようにするわけだが、ローカル環境で構築したshiny アプリではプロット…

新型肺炎の変異株で若年者は本当に重症化しやすいのか

結論から言うと、0.うんぬん%以内の増加は40-50歳代の年齢層であるようだが、それよりも80歳以上の高齢者での死亡率増加が大きく、かつ感染者数が増えており重症のままベッドを占拠しておりながらもすぐに死亡してベッドを空ける、というわけではないので、…

Interrupted time series analysis でARIMAを使って真面目にやる

読んだ。 Interrupted time series analysis using autoregressive integrated moving average (ARIMA) models: a guide for evaluating large-scale health interventionsInterrupted time series analysis は介入の前後でlevel(増減、つまり切片)とtrend…

化合物の構造式を描きたい

という相談を受けた。 化合物なんてまったく扱ってないし構造式も大学入試以来描いたことがないが、こういうのはRで出来るだろうと思って調べたらあった。 ChemmineR: a compound mining framework for R | Bioinformatics | Oxford Academic ChemmineR: Che…

メタアナリシスで、サンプルサイズが最も大きいわけではないのに、weightが最大になるのはおかしくないですか?

という質問を受けた。 結論から言うとおかしくない。メタアナリシスのweight は各研究内の分散 と研究間の分散により (fixed model の場合)もしくは(random effect model の場合) で決まるから、分散が小さい、すなわち推定精度の高い研究はweight が大…

判別分析の判別線がおかしい

という相談を受けた。 解析したいデータは2変数なので、例として 判別分析モデルの応用 がついてきたが、3変数の場合はirisを用いて データ解析・マイニングとR言語 もついてきて、こんな感じでやりたい、と言われた。0/1のtype は以下の線形モデルで表現さ…

新型肺炎の年齢階級別死亡率

新型コロナウイルス 国内感染の状況 こちらの2021年1月13日時点の各年代別感染者数と死亡者数のデータがあったので単純に推定してみる。その1 drcパッケージにあるLL.4関数は、4パラメータモデルのロジスティック曲線に当てはめる。 これで簡単にやるその2 r…

メタアナリシスっぽいので公平な入試を受けたい 令和2年版

この記事はR Advent Calendar 2020 - Qiitaの24日の配当記事です(書くネタなかったけど無理やりこじつけた メタアナリシスの解析にmeta パッケージを使っています。 令和2年版の調査結果というものを観測した。 医学部医学科の入学者選抜における公正確保等…

虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 12話

侑と歩夢回だったが孤立したノードがたくさん。 虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 1〜3話 - 驚異のアニヲタ社会復帰の予備 虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 4話 - 驚異のアニヲタ社会復帰の予備 虹…

虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 11話

歩夢のレズメンヘラっぷりが炸裂したが果林としずくが相変わらずハブられていた。 虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 1〜3話 - 驚異のアニヲタ社会復帰の予備 虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 4話 -…

虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 9話と10話

9話 彼方ちゃん孤立 10話 エマ孤立 虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 1〜3話 - 驚異のアニヲタ社会復帰の予備 虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 4話 - 驚異のアニヲタ社会復帰の予備 虹ヶ咲学園スク…

虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 8話

しずく回だったがかすみんが活躍しすぎ。 冒頭の侑が歩夢、果林、愛さんを呼ぶシーンがなければこの人たちは孤立するところだった。 彼方さんは孤立した。 虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 1〜3話 - 驚異のアニヲタ社会復帰の…

虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 7話

彼方回だったが姉妹のいざこざを同好会でやられても…と思った。 果林とエマはだいぶ出番ないが大丈夫か? 虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 1〜3話 - 驚異のアニヲタ社会復帰の予備 虹ヶ咲学園スクールアイドル同好会の名前呼び…

ハザード比

カプランマイヤーによる生存曲線をやっていてCox proportional hazard モデルによるハザード比を出そうとして、シミュレーションデータで遊んでいただけの話。 prodlim パッケージにあるSimSurv 関数は、変数X1とX2があるが、とりあえずこれらは考えず、まっ…

虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 6話

りなりー回だったが今回はしずくもグラフに参加していた。 けどやっぱり陽キャギャルの愛さんのことが好きになってしまう。 虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 1〜3話 - 驚異のアニヲタ社会復帰の予備 虹ヶ咲学園スクールアイド…

虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 5話

エマさん回だったわけだが、しずくがはぶられているが大丈夫か? 虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 1〜3話 - 驚異のアニヲタ社会復帰の予備 虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 4話 - 驚異のアニヲタ社…

虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 4話

愛さんがキーパーソンすぎるわけだが、あんな娘現実におったらこっちが勝手に惚れてしまって振られてしまうやつじゃんェ… 虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 1〜3話 - 驚異のアニヲタ社会復帰の予備

虹ヶ咲学園スクールアイドル同好会の名前呼び合いグラフをかく 1〜3話

虹ヶ咲学園スクールアイドル同好会が始まった。 ラブライブ!虹ヶ咲学園スクールアイドル同好会 以前、ラブライブのμ'sとAqours のメンバーの名前呼びグラフを作ったので、アニメを観ながら名前を呼んだ回数をカウントし、スクリプトをそのまま流用して同じ…

ソシャゲの生存率

こんな記事を観測した。 【悲報】ソシャゲの「10年生存率」、ほぼ0と判明する | やらおん!こんな面白い解析ネタがあったのに乗り遅れた。 しかし、図の生存曲線がどのように作られたかが謎である。カプランマイヤーなのだろうか。 しかも、10年で「ほぼ」0%…

二次計画法を久しぶりにやる

二次計画法をRでやる必要が出てきたので久しぶりにやってみる。 二次計画法はRはでは ただし、行列 が正定値行列でないと matrix D in quadratic function is not positive definite! と言われてしまうので、逆行列を持つように微妙に変化させた行列を無理や…

zip になってるshape ファイルをRのみの操作でダウンロードして扱いたい

という相談を受けた。 昔は地図を扱うときにsp というパッケージを使っていたが、最近ではsf が流行りだそうだ。 notchained.hatenablog.com インタラクティブにしたければleaflet があるが、普通にプレゼンとか論文の図にしたい、ということでsf を使いたい…

新型肺炎COVID-19の日本の実効再生産数を推定したrstanのコードを解説してみる

西浦先生が日本の実効再生産数を推定した。 コードはrstanで下記から取れる。 https://nbviewer.jupyter.org/github/contactmodel/COVID19-Japan-Reff/tree/master/解説動画を見逃したのでコードと関連論文からのお勉強になるが、肝としては、 ・知りたいの…

新型肺炎COVID-19の山梨大学医学部附属病院でのPCR検査の結果をrstanで解析する

山梨大学医学部附属病院で、慶応大学病院と同じように入院中の患者にPCR検査を行うと、370人中全員が陰性だったらしい。 山梨大病院、すべての入院患者らにPCR検査 全員陰性 [新型コロナウイルス]:朝日新聞デジタル 山梨大の島田真路学長は「陽性者がいる場…