π₯κ΅λ―Όκ±΄κ°λ³΄ν곡λ¨μ νλ³Έ μ½νΈνΈ(NHIS-NSC) μ€νλ°μ΄ν°(μ§λ£λ΄μ, μΆμ/μ¬λ§, μ격)λ₯Ό ν΅ν©νμ¬ μ¬μ₯μ§ν(I20βI51) λλ λνκ΄μ§ν(I60βI69) μΌλ‘ 첫 μ μ ν λμΌμλ³ μ¬μ μ μνμ λΆμ
- λΆμ μΈμ΄: R
- μ£Όμ λΌμ΄λΈλ¬λ¦¬:
tidyverse,readxl,survival,survminer,tableone- Event: β첫 μ μ ν΄μ μ΄ν λμΌ μλ³μΌλ‘ 첫 μ¬μ μβ λ°μ
- Time: ν΄μμΌ β 첫 μ¬μ μμΌ(μ¬κ±΄) / ν΄μμΌ β μ°κ΅¬μ’ λ£μΌ λλ 3λ (censoring)
- μ£Όμ 곡λ³λ: λμ΄, μ±λ³, LOS(μ μμΌμ), κ³Όκ±° 180μΌ λλ°μ§νΒ·μΈλΒ·μκΈ μ΄μ©μ§ν
- νλ‘μ νΈ μκ°
- π νλ‘μ νΈ κ΅¬μ‘°
- λΆμ μ μ°¨ λ° λ°©λ²
- λΆμ νμ΄νλΌμΈ
- κ²°κ³Ό μμ½
- κ²°κ³Ό λΆμ PPT
ββ R/
β ββ rr_first.R # λ°μ΄ν°μ
ν΅ν©, λ³μ μ μ
β ββ rr_second.R # μ°κ΅¬ λμμ νμ
β ββ rr_ds2.R # μ¬μ
μ vs λΉμ¬μ
μ
β ββ rr_sa5.R # μμ‘΄λΆμ - KM, CoxPH
ββ outputs/ # κ²°κ³Ό - csv
ββ plots/ # κ²°κ³Ό - μκ°νμ¬λ¬ λ°μ΄ν°μ
(NSC2_M20, NSC2_BND, NSC2_BNC)μ RN_INDIλ₯Ό κΈ°μ€μΌλ‘ λ³ν© ν λ€μκ³Ό κ°μ κΈ°μ€μΌλ‘ μ°κ΅¬ λμμ μ½νΈνΈλ₯Ό μ μνλ€.
- μ§λ¨ κΈ°μ€: μ£Όμλ³ μ½λκ° μ¬μ₯ μ§ν(I20-I51) λλ λνκ΄ μ§ν(I60-I69) μ ν΄λΉνλ νμ
- μ μ κΈ°λ‘: ν΄λΉ μ§νμΌλ‘ μ΅μ 1ν μ΄μ μ μν κΈ°λ‘μ΄ μλ νμ
- μμμμ(Washout) κΈ°κ°: 2006λ μ΄μ μ λμΌ μ§νμΌλ‘ μ μ κΈ°λ‘μ΄ μλ νμλ μ μΈ
- μ μΈ κΈ°μ€: μ μ μ€ μ¬λ§, ν΄μ κΈ°λ‘ λΆλΆλͺ , λμ΄ μ λ³΄κ° μ ν¨νμ§ μμ νμλ₯Ό μ μΈ
- λ°μ΄ν°μ
- μ§λ£λ΄μ(T20):
NSC2_M20.csv,NSC2_M20_1619.csv - μ격(μ±λ³):
NSC2_BNC_V2_1.csv,NSC2_BNC_1619.csv - μΆμ/μ¬λ§:
NSC2_BND.csv
- μ§λ£λ΄μ(T20):
- ν΅μ¬ λ³μ
RN_INDI(ID)MDCARE_STRT_DT(μ§λ£μμμΌ)FORM_CD(μ μ=β02β)SICK_SYM1/2(μ£Ό/λΆμλ³)HSPTZ_PATH_TYPE(λ΄μκ²½λ‘)VSHSP_DD_CNT(μ λ΄μμΌμ=LOS)MCARE_RSLT_TYPE(μ§λ£κ²°κ³Ό)BTH_YYYY(μΆμμ°λ),DTH_YYYYMM(μ¬λ§μ°μ)
- νμ λ³μ
DISCHARGE_DT(ν΄μμΌ)age_index(index μμ λμ΄)- indexκΈ°μ€ κ³Όκ±° 180μΌ μ΄μ©λΒ·μκΈμ¬λΆ, λλ°μ§ν (
hx_htn,hx_dm,hx_af,hx_ckd,hx_copd,hx_ihd,hx_hf,hx_dlp,hx_stroke,hx_cancer)
tableone ν¨ν€μ§λ₯Ό μ¬μ©ν΄ μ¬μ
μ κ·Έλ£Ήκ³Ό λΉμ¬μ
μ κ·Έλ£Ή κ°μ νμ νΉμ±μ λΉκ΅νλ ν(Table 1)λ₯Ό μμ±νλ€. μ΄λ₯Ό ν΅ν΄ λ κ·Έλ£Ήμ κΈ°μ΄μ μΈ μΈκ΅¬νμ λ° μμμ νΉμ± μ°¨μ΄λ₯Ό νμ
νλ€.
μ¬μ μ μνμ μν₯μ λ―ΈμΉλ λ 립μ μΈ μμΈλ€μ μλ³νκΈ° μν΄ μμ‘΄λΆμμ μν
-
Kaplan-Meier λΆμ: μ 체 νμ μ½νΈνΈμ μ¬μ μ μνλ₯ μ μκ°μ μΌλ‘ νμΈνλ€. νΉν, μ μ κΈ°κ°(
VSHSP_DD_CNT)μ μ€μκ°μΈ 5μΌμ κΈ°μ€μΌλ‘ μ μ κΈ°κ°μ΄ 5μΌ μ΄μμΈ κ·Έλ£Ήκ³Ό λ―Έλ§μΈ κ·Έλ£Ήμ λλμ΄ μ¬μ μ μνμ λΉκ΅νλ€. -
Cox λΉλ‘ μν νκ· λΆμ: μ¬μ μ μνμ μν₯μ λ―ΈμΉλ λ 립μ μΈ μμΈλ€μ μλ³νκΈ° μν΄ λ€λ³λ Cox νκ· λͺ¨λΈμ ꡬμΆνλ€. λͺ¨λΈμλ λμ΄, μ±λ³, μ μ κΈ°κ°, κ³ νμ λλ° μ§ν μ 무λ₯Ό ν¬ν¨νλ€.
- κ²°κ³Ό ν΄μ: λΆμ κ²°κ³Ό, κ³ νμ λλ° μ§ν μ 무μ μ
μ κΈ°κ°μ΄ μ¬μ
μ μνμ μ μλ―Έν μν₯μ λ―ΈμΉλ κ²μΌλ‘ λνλ¬λ€.
- κ³ νμμ΄ μλ νμλ κ·Έλ μ§ μμ νμλ³΄λ€ μ¬μ μ μνμ΄ μ μνκ² λμλ€.
- μ μ κΈ°κ°μ΄ κΈΈμλ‘ μ¬μ μ μνμ΄ λμμ§λ κ²½ν₯μ 보μλ€.
- κ²°κ³Ό ν΄μ: λΆμ κ²°κ³Ό, κ³ νμ λλ° μ§ν μ 무μ μ
μ κΈ°κ°μ΄ μ¬μ
μ μνμ μ μλ―Έν μν₯μ λ―ΈμΉλ κ²μΌλ‘ λνλ¬λ€.
- μ½νΈνΈ κ΅¬μ± & μμμμ
- μ¬μ₯(I20βI51) λλ λνκ΄(I60βI69) μ μ(FORM_CD="02") μ΅μ΄ μ¬λ‘λ₯Ό indexλ‘ μ μ
- 2006-01-01 μ΄μ λμΌμλ³ μ΄λ ₯ μμμμ
- μ μ μ€ μ¬λ§/ν΄μ λΆλͺ ν/λμ΄ κ³μ° λΆκ° μ¬λ‘ μ μΈ
- κ·Έλ£Ή λΌλ²¨λ§
- index μ΄ν λμΌμλ³ μ¬μ
μ μ¬λΆλ‘
readmit_flag(0/1) μμ±
- index μ΄ν λμΌμλ³ μ¬μ
μ μ¬λΆλ‘
- κ³Όκ±° 180μΌ μ΄λ ₯
- μΈλ/μκΈ/νμ μ νμ λ° λλ°μ§ν flag(hx_*) μμ±
- κΈ°μ ν΅κ³(Table 1)
wd_tbl1κΈ°μ€ μ¬μ μκ΅° vs λΉμ¬μ μκ΅° λΉκ΅(Table_wd_final.csv)- λ°λͺ¨ νλ³Έμμ **LOS(μ μμΌμ)**κ° μ¬μ μκ΅°μμ μ μνκ² νΌ
- μμ‘΄λΆμ
- KM 곑μ (μ 체 & LOS μ€μκ° 5μΌ:
>=5vs<5)κ³Ό risk table - λμ λ°μ(1βS(t)), λμ μν H(t), λλλ§ν¬(30/90μΌ/1Β·2Β·3λ )
- Cox PH:
Surv(time,event) ~ age10 + sex + los + hx_htn
- KM 곑μ (μ 체 & LOS μ€μκ° 5μΌ:
λ°λͺ¨ νλ³Έ κΈ°λ°μΌλ‘ μ§νν λΆμμ΄κΈ°μ νλ³Έ μκ° λ§€μ° μ μ΄ μΆμ μ λΆνμ€μ±μ΄ ν¬λ€.
μ μμΌμ(LOS)μ κ³ νμ κ³Όκ±°λ ₯(hx_htn)μ μ¬μ μ μν μ¦κ°μ μ°κ΄μ΄ μμ¬λλ, κ΅λΒ·μμ¬ νΈν₯ κ°λ₯μ±μ΄ μμ΄ μΆκ° κ²μ¦μ΄ νμνλ€.