![インスリン分泌指数：
（負荷後30分インスリン－空腹時インスリン）/（負荷後30分血糖－空腹時血糖）
HOMA-R：空腹時インスリン×空腹時血糖÷405
FIB4 index：年齢×AST[IU/L]÷（血小板数[10＾9/L]×ALT[IU/L]＾0.5）
NFS （NAFLD fibrosis score）=
-1.675+0.037×age+0.094×BMI+1.13×IFG/DM(yes=1,no=0)
+0.99×AST/ALT-0.013×Plt-0.66×Alb
このあたりまでは、何とか電卓でも
ここまでくると、自分で入力した電卓の値が
信用できません。](https://image.slidesharecdn.com/erhsupportsystemsapporor5-151115000034-lva1-app6892/85/EHR-support-system-by-R-language-4-320.jpg)
EHR support system by R language
- 1. R言語を用いた EHR (Electronic Health Record) support system 2015.11.14 SappoRo.R#5 Masahiko Hida
- 4. インスリン分泌指数： （負荷後30分インスリン－空腹時インスリン）/（負荷後30分血糖－空腹時血糖） HOMA-R：空腹時インスリン×空腹時血糖÷405 FIB4 index：年齢×AST[IU/L]÷（血小板数[10＾9/L]×ALT[IU/L]＾0.5） NFS （NAFLD fibrosis score）= -1.675+0.037×age+0.094×BMI+1.13×IFG/DM(yes=1,no=0) +0.99×AST/ALT-0.013×Plt-0.66×Alb このあたりまでは、何とか電卓でも ここまでくると、自分で入力した電卓の値が 信用できません。
- 7. EHRの追加機能（案） ○自動計算機能 BMI、標準体重、必要栄養量、eGFR、eGFRcys、Cｃｒ HOMA-R、インスリン分泌指数 FIB4index、NFS(NAFLD fibrosis score) 等。 ○簡便な血液検査の時系列出力、グラフ出力 ○サマリー機能 病歴サマリー等、患者情報の概要を簡潔に表示 現在の合併症の状態 患者の検査歴（検査項目、検査日） 疾患ごとに必要な情報をまとめて表示
- 10. データベースへのアクセス
- 12. 1. 患者IDを指定して 患者マスターを読み込み 住所情報はgeocoding→Lon,Lat 2. 連携医療機関dfの読み込み geocoding→leafletでHpmap関数作成 3. 近隣バス停住所をrvestで スクレイピング,geocoding→leafletで busmap関数作成 4. 血圧(BP)、体重（BW）等のデータを BP、BWオブジェクトに入れ、ggplotで作図する BPplot,BWplot関数を作成 5. 血液データを検査名のオブジェクト に代入し、検査+plotという名の関数を 作成 6. eGFRを計算し、プロット関数eGFRplot を作成、回帰直線を当てはめ腎予後予測も 7. 処方データをtimelineパッケージで 作図する,drugplot関数を作成 7. RISmedパッケージでPubMed（医学文献 データベース）から検索するPubMed関数 を作成
- 15. 薬剤経过表
- 16. 糖尿病合併症チャート
- 19. 検査履歴のセット出力
- 20. 贫血诊断
- 21. addressオブジェクト address;オブジェクトの確認 → geocoding → leaflet package インフルエンザ、ウイルス性胃腸炎の 感染流行地域のマップを重ねてみる？