" />
class: center, middle, inverse, title-slide .title[ # 의료데이터분석가 성장기 ] .author[ ### 김진섭;
<i class="fab fa-github faa-float animated "></i>jinseob2kim
] .institute[ ### 차라투(주) ] --- layout: true <div class="my-footer"><span><a href="https://www.zarathu.com">Zarathu Co.,Ltd</a>                             <a href="https://github.com/jinseob2kim">김진섭</a></span></div> --- # Executive summary .large[ - 수학올림피아드 + 의대 = 의학통계(예방의학) - 의학통계 + IT기업(삼성전자 무선사업부) = 창업(의학통계지원) - 연매출 1.5억 + 파트타임 job = 소상공인(투자없이생존) - 소상공인 + 정부지원(사업비, 사무실) = 스타트업 - 의학연구지원 `\(\rightarrow\)` 임상시험분석시장 진출 ] -- .large[ - 천하3분지계: 법학, 의학, 종교 - 사람을 살리고 널리 인간을 이롭게하는 **홍익인간** - 김옥균, 맹상군, 유비 ] -- .large[ - 문제해결 `\(\rightarrow\)` 문제정의 `\(\rightarrow\)` **아름다움** `\(\rightarrow\)` **신내림** ] --- class: center, middle # 창업하기까지 --- # 수학올림피아드 수학과만 생각했는데 의대 입학 - 1학기 수시: 올림피아드 전형 -- 의대 적응 못함 - 6년內 면허취득 마지노선 - 인턴 탈락 -- 학원강사 - 본과 2학년말부터 대치 위OO. - 30살까지 수원 프OOOO, 대치 위OO. --- # 예방의학 전공의 - [서울대 보건대학원](http://health.snu.ac.kr/node/104) 예방의학교실 - **임상의학 아님**. 관악캠퍼스 소속으로 타 과와의 연계가 장점. 석사 및 박사 수료 - 서울대 보건대학원 [유전체역학 연구실](http://snugepi.snu.ac.kr/) - 유전체 데이터 분석 방법론 연구. [R](https://www.r-project.org/), [python](https://www.python.org/), 리눅스 이용 시작. 지인 상대로 통계 자문 시작. --- # [삼성전자](http://health.chosun.com/news/dailynews_view.jsp?mn_idx=165897) 박사과정과 응급실 당직 병행 중, 지도교수님 통해 우연히 제의받음. - 면접 후 2년 3개월 계약직으로 입사. DMC 연구소로 입사 10개월만에 무선사업부로 이동. - 연구소에서는 디지털헬스 선행 기술 개발팀, 사업부에서는 **삼성헬스** 앱 개발팀. <center> <a href="https://newsimg.sedaily.com/2018/08/05/1S38RAKVMO_1.jpg/"><img src="https://newsimg.sedaily.com/2018/08/05/1S38RAKVMO_1.jpg" width=50%></a> </center> --- # 삼성전자에서 만난 의사. .large[ - 중앙의대卒, 진단검사의학 전문의, 現 근무 - 연세의대 03학번(WELT 대표), 인턴中 무선사업부 입사, 사내벤처 1호. - 美 소아과 의사 ] --- # 사내벤처 C-lab .large[ 사내 우수 아이디어 선발, 1년 과제 진행後 스핀오프 결정. ] .center[ ![](http://img.hankyung.com/photo/201808/AA.17477376.1.jpg) ] 거북목관리 안경테, 1day 통계지원 서비스로 지원했으나 광탈. --- # 퇴사 .large[ 2년차 중반 퇴사 결심. - 한국수력원자력 탈락. - 한국투자파트너스, 스틱인베스트먼트 VC 탈락. 의료 쪽 일을 병행하며 의대 입시컨설팅에 도전하기로 함. ] -- .large[ 의대 입시 컨설팅은 시작도 못함, 박사과정을 마치기로 결정. ] --- # 박사과정 .large[ 물리학에 빠짐. 일반상대성이론과 양자역학에 감명받음. - 이론연구자가 되기로 결심하고 통계이론 논문을 작성. - 해외 논문 게재 실패. 박사 학위도 어려움. - 결국 자체 [블로그](https://blog.zarathu.com/posts/2018-11-08-mdlm/)에 게재. ] --- # 법인설립 연구는 안되는데 창업 공모전은 선정되기 시작. - ['18년 창업선도대학 (예비)창업팀](https://www.k-startup.go.kr/homepage/businessManage/businessManageFunction.do?sid=111&itemSeq=1060): 블록체인 기반 유전체-건강 빅데이터 구축 및 정밀 의학 솔루션. - [심평원, 보험공단 주최 보건의료빅데이터를 활용한 창업아이디어 공모전](http://www.hira.or.kr/bbsDummy.do?brdBltNo=9598&brdScnBltNo=4&pageIndex=1&pgmid=HIRAA020041000100): 맞춤형 의학연구 애플리케이션 -- 창업하기로 결심, 블록체인은 엄두가 나지 않음. - 배운게 도둑질, 원래 하던 통계지원을 하기로 결정하고 1인 법인 설립. - 처음엔 선배, 동기들과 그들의 지인들이 주 고객. - 現 맞춤형/공개 통계웹, 통계컨설팅, 공공빅데이터 분석이 주 업무 --- class: center, middle # 창업 후 ~ 現 --- # 맞춤형 통계웹 ![](ss.png) --- # [공개 통계웹](https://openstat.ai) ![](https://blog.zarathu.com/posts/2018-11-24-basic-biostatistics/app.gif) --- # 주요 계약 - 대한심혈관중재학회 [COBIS III 레지스트리](https://clinicaltrials.gov/ct2/show/NCT03068494) 분석: [추가계약](http://pf.kakao.com/_XsuxgC/48388190) - 서울성모병원 [COREA-AMI II 레지스트리](https://clinicaltrials.gov/ct2/show/NCT02806102) 분석: [10개 연구 계약](http://pf.kakao.com/_XsuxgC/48043955) - 삼성서울병원 [공통데이터모델(CDM)](http://www.feedernet.org/html/?pmode=cdmdrn) 분석: [심평원 코로나데이터](https://hira-covid19.net/) 분석 중 - 강동성심병원 CDM 분석지원: 공단표본데이터 분석 중 - 경기도감염병관리지원단 코로나 대시보드 with Shinykorea: [최종보고](https://shinykorea.github.io/corona-activityrecord) - 삼성서울병원 이식외과 육종(sarcoma) 데이터 분석: [5개 연구 계약](http://pf.kakao.com/_XsuxgC/51701089) - 해운대백병원 정신질환 네트워크분석: [논문 5편](http://pf.kakao.com/_XsuxgC/52664370) 게재 - 성균관의대 환경역학연구실 [미세먼지 대시보드](http://pf.kakao.com/_XsuxgC/43627405) - [삼성서울병원 정신과 통계자문계약](http://pf.kakao.com/_XsuxgC/55192190) - [서울대병원 순환기내과 통계자문계약](http://pf.kakao.com/_XsuxgC/55577702) - 기타: 제약/바이오, 임상시험SW, 디지털치료기기 스타트업 등 --- # 주요 논문 성과 .large[ SCI 논문 200건 지원 ] <center> <img src="https://jinseob2kim.github.io/lecture-general/statreview/paper.png" width=80%></a> </center> --- # NEJM .large[ 심혈관중재시술 전략비교 > 삼성서울병원 이주명, 최기홍 교수님을 도와 두 심혈관중재시술(PCI) 전략을 비교, 다기관 고려한 stratified cox 와 competing risk analysis 를 수행하고 관련 통계자문을 제공하였습니다. 본 연구는 New England Journal of Medicine(NEJM, IF 176.079) 에 게재되었습니다. ] <center> <img src="https://oopy.lazyrockets.com/api/v2/notion/image?src=https%3A%2F%2Fs3-us-west-2.amazonaws.com%2Fsecure.notion-static.com%2Fbf058199-3a3a-49ab-990b-66dc135fb739%2FUntitled.png&blockId=5f2b13d8-6953-411a-a245-73e0e8d1afc7" width=80%></a> </center> --- # LANCET .large[ Statin 병용요법 비열등성검정 > 연세의료원 심장내과 홍명기교수 팀을 도와 high-intensity statin 단일요법과 ezetimibe + moderate-intensity statin 병용요법을 비교, (1)비열등성검정 샘플수 계산 및 통계검토와 (2)리비전 통계분석을 지원하였습니다. 본 연구는 The Lancet(IF 202.731) 에 게재되었습니다 ] <center> <img src="http://k.kakaocdn.net/dn/boaUap/btrHDQhI2j1/zVeZ4Mv3DkybiLejdtJ5D1/img_xl.jpg" width=80%></a> </center> --- # JAMA Statin 치료전략 비교 > 연세의료원 심장내과 홍명기교수 연구팀을 도와 LODESTAR (Low-Density Lipoprotein Cholesterol-Targeting Statin Therapy Versus Intensity-Based Statin Therapy in Patients With Coronary Artery Disease) Trial 을 분석, statin 치료전략을 비교하고 리비전에 필요한 통계자문을 제공했습니다. 본 연구는 JAMA(IF 157.3) 에 게재되었습니다. <center> <img src="https://oopy.lazyrockets.com/api/v2/notion/image?src=https%3A%2F%2Fs3-us-west-2.amazonaws.com%2Fsecure.notion-static.com%2Fdbaf5241-d562-4c7c-a957-d73fd34983da%2Fimg_l.jpg&blockId=b3ecef97-63d8-4f32-b8dc-dfd392734543" width=80%></a> </center> --- # 정부지원사업 선정 <center> <img src="gv.jpg" width=100%></a> </center> --- # 22년 IITP 연구개발과제 선정 .large[ 2년 10.5억 with 앤틀러, 파이디지털헬스케어 ] <center> <img src="http://k.kakaocdn.net/dn/bsgueW/btrzkqLQ3H2/qQBLFHw769HWkRJyeRWRG1/img_l.jpg" width=70%></a> </center> --- # R&D: statgarten .large[ 총괄책임자 - with 파이디지털헬스케어, 앤틀러 ] <center> <img src="https://jinseob2kim.github.io/lecture-general/APPFGH2022/statgarten.png " width=80%></a> </center> --- # 22년 창업도약패키지 선정 .large[ 1억 ] <center> <img src="http://k.kakaocdn.net/dn/cQa4s2/btrESX34HXo/GJZOCzNJwzo4B4czmb2tKk/img_xl.jpg" width=50%></a> </center> --- # 심평원 공통데이터모델 변환 용역 <center> <img src="http://k.kakaocdn.net/dn/0lm3Q/btrL5xcRF86/3NMzYiiKRwq14HUhDKqXG0/img_l.jpg" width=80%></a> </center> --- # 23년 공개SW기술확산사업 (의학연구위한) 오픈소스 SaaS 의료데이터 분석서비스 - NIPA(7개월, 2억) <center> <img src="nipa.png" width=60%></a> </center> --- # 창업성장기술개발 디딤돌 .large[ 의학 연구를 위한 의료 데이터 분석 웹 - 중기부(1년, 1.2억) ] <center> <img src="didim.png" width=90%></a> </center> --- # 가상환경 의료기술 개발사업 "더 나은 환자 경험을 위한 클라우드 기반 디지털 의료서비스 모델 개발 및 실증" - 보건복지부(5년 50억원) - 주관: 연세대학교 산학협력단 - 공동: 분당차병원, 원주 연세대학교, 레몬헬스케어, 월드버텍, 차라투 - 차라투는 "AI 챗봇기반 사전 예진실 서비스" 담당 <center> <img src="ys.png" width=60%></a> </center> --- class: center, middle # 핵심기술 R --- # 프로그램 개발, 블로그 운영 .large[ [R](https://www.r-project.org/) packages - [jstable](https://github.com/jinseob2kim/jstable): 논문용 테이블 만들기 - [jskm](https://github.com/jinseob2kim/jskm): 생존분석 그림 만들기 - [jsmodule](https://github.com/jinseob2kim/jsmodule): 웹에서 하는 통계분석 ] -- .large[ 데이터 분석용 가상머신([docker](https://www.docker.com/) image) - [rshiny](https://github.com/jinseob2kim/docker-rshiny): [Rstudio](https://www.rstudio.com/)와 [shiny server](https://www.rstudio.com/products/shiny/shiny-server/) 가 설치된 이미지. ] -- .large[ [블로그](https://blog.zarathu.com/), 카카오톡 오픈채팅방- 프로그래밍 갤러리 R 유저 모임 ] --- # 130,000 다운로드 <center> <img src="CRAN20241011.png" width=80%></a> </center> --- # 발표: 개발환경구축 <center> <img src="RUCK2018.jpg" width=80%></a> </center> --- # 발표: R패키지 개발 후기 <center> <img src="RUCK2019.jpg" width=80%></a> </center> --- # 공부모임: Shiny 밋업 .large[ https://github.com/shinykorea/Meetup - 월 1회 공부내용 공유. 30회 진행 - 의료/유전학/축산/반도체/게임/IPTV/회계 등 다양한 분야 사람들이 모임. - **경기도 코로나 대시보드 공동작업** - 21년 공개SW기반 **커뮤니티** 지원사업, **韓中日 공개SW** 국제협력 강화 TASK 선정 ] --- # 경기도 코로나 [병상관리 대시보드](https://github.com/shinykorea/corona-sickbed) ![](https://shinykorea.github.io/corona-activityrecord/d1.png) --- # 프로그래밍갤러리 R 유저모임 .large[ 디시인사이드 프로그래밍 갤러리 고정닉 활동: **[김옥균](https://gallog.dcinside.com/jinseob2kim)** 카카오톡 오픈채팅방 운영: 닉네임 大逆不道玉均 ] <center> <img src="kakao_open.jpg" width=25%></a> </center> --- # [data.table](https://blog.zarathu.com/posts/2022-02-11-datatable/) .large[ 가장 빠른 스피드, 빅데이터용 필수패키지 - 심평원/공단분석 필수. - 파일 가장 빨리 읽고 쓰는 [fst](https://www.fstpackage.org/)와 찰떡궁합 - 멀티코어 지원 ] <center> <a href="https://github.com/fastverse/fastverse"><img src="https://pbs.twimg.com/media/E8mHra4VgA0vnY_.jpg" width=100%></a> </center> --- # [R plot](https://blog.zarathu.com/posts/2022-03-25-graph/) .large[ [ggplot2](https://ggplot2.tidyverse.org/) > Base: 사실상 표준 - [ggpubr](https://partrita.github.io/posts/ggpubr/) : 연구용 그림 + p-value 최적화 - [highcharter](https://jkunst.com/highcharter/): 반응형 그림, 상업용은 유료 - [jskm](https://github.com/jinseob2kim/jskm): 자체 개발 kaplan-meier 패키지 ] <center> <a href="https://github.com/jinseob2kim/jskm"><img src="https://github.com/jinseob2kim/jskm/raw/master/man/figures/README-unnamed-chunk-5-3.png" width=50%></a> </center> --- # PPT export: [officer](https://davidgohel.github.io/officer/) .large[ 그림 직접수정위해 반드시 PPT with 벡터그래픽 필요 ] ```r library(rvg);library(officer) editable_graph <- dml(ggobj = gg_plot) doc <- read_pptx() doc <- add_slide(doc) doc <- ph_with(x = doc, editable_graph, location = ph_location_type(type = "body") ) print(doc, target = "reports/rvg.pptx") ``` <center> <a href="https://ardata-fr.github.io/officeverse/reports/rvg.pptx"><img src="https://ardata-fr.github.io/officeverse/static/r-img/img-unnamed-chunk-77.png" width=40%></a> </center> --- # 공단/심평원분석 전략 .large[ 공단/심평원은 SAS 파일, 그러나 R로 대부분 가능 - [haven](https://haven.tidyverse.org) 패키지로 sas7bdat 읽기, but 느림 - csv 또는 fst로 변환하여 R로 빨리 읽기 - SAS는 R서버 RAM보다 큰 데이터 다룰 때만: 크게크게 쳐냄 - 반출 테이블: xlsx 하나에 탭들로 저장, [openxlsx](https://github.com/ycphs/openxlsx) 패키지 이용 - 반출 그림: pptx 하나에 여러 슬라이드로 저장. [officer](https://davidgohel.github.io/officer/) ] --- # [openxlsx](https://github.com/ycphs/openxlsx) ```r # create workbook wb <- createWorkbook() addWorksheet(wb = wb, sheetName = "htwt") writeData(wb = wb, sheet = "htwt", x = htwt) addWorksheet(wb = wb, sheetName = "smk") writeData(wb = wb, sheet = "smk", x = smk, rowNames=T) saveWorkbook(wb, "tables.xlsx", overwrite = T) ``` .large[ [반출 파일 실습](https://github.com/jinseob2kim/R-skku-biohrs/blob/main/lecture/dataexport.pptx?raw=true) ] --- # CDM(OMOP) with R .large[ CDM 분석 모든과정은 [R패키지](https://github.com/OHDSI)로 구현됨. ] <center> <img src="https://www.ohdsi.org/wp-content/uploads/2020/06/methodsLibrary.png" width=70%></a> </center> --- # 분석코드, 결과도 R패키지 .large[ 연구설계, 분석방법이 포함된 자체 R패키지가 코드공유 표준. - R패키지를 여러 기관에서 실행 ] https://github.com/zarathucorp/RanitidineCancerRisk -- .large[ 분석결과는 R Shiny로 - 실행결과를 R기반 웹애플리케이션으로 표현 - 분석코드에 웹코드도 포함되어있음. ] --- # 통계 .large[ 데이터 형태에 따라 - 일반, 반복측정, 표본추출, Propensity/IPTW 생존분석: Time-dependent analysis, landmark analysis 메타분석: [meta](https://bookdown.org/MathiasHarrer/Doing_Meta_Analysis_in_R/), [자체 개발앱](https://openstat.ai/app/meta-analysis/) 시계열분석: [fpp3 교과서](https://otexts.com/fpp3/)- ARIMA, [prophet](https://facebook.github.io/prophet/) ML general: [caret](https://topepo.github.io/caret/index.html) Non-linear(GAM) model: [mgcv](https://www.maths.ed.ac.uk/~swood34/mgcv/) ] --- # 분석(X), 결과테이블(O) ```r tb <- jstable::CreateTableOneJS(c("sex", "age", "status", "time"), strata = "rx", data = colon, nonnormal = "time") kable(tb$table[, 1:6]) ``` | |level |Obs |Lev |Lev+5FU |p |test | |:-------------------|:-----|:-------------------------|:-------------------------|:-------------------------|:------|:-------| |n | |630 |620 |608 | | | |sex (%) |0 |298 (47.3) |266 (42.9) |326 (53.6) |0.001 | | | |1 |332 (52.7) |354 (57.1) |282 (46.4) | | | |age | |59.45 ± 11.96 |60.11 ± 11.64 |59.70 ± 12.25 |0.608 | | |status (%) |0 |285 (45.2) |287 (46.3) |366 (60.2) |<0.001 | | | |1 |345 (54.8) |333 (53.7) |242 (39.8) | | | |time (median [IQR]) | |1506.00 [496.75, 2231.00] |1562.50 [498.75, 2332.00] |2066.00 [700.75, 2450.00] |<0.001 |nonnorm | --- # 표본추출(국건영) ```r nhanesSvy <- svydesign(ids = ~ SDMVPSU, strata = ~ SDMVSTRA, weights = ~ WTMEC2YR, nest = T, data = nhanes) tb <- jstable::svyCreateTableOneJS(c("HI_CHOL", "agecat"), strata = "RIAGENDR", data = nhanesSvy) kable(tb$table[, 1:5]) ``` | |level |1 |2 |p |test | |:-----------|:--------|:------------------|:------------------|:-----|:----| |n | |134944553.9 |141591892.0 | | | |HI_CHOL (%) |0 |112307738.4 (89.9) |114402926.5 (87.7) |0.010 | | | |1 |12579208.9 (10.1) |16056036.4 (12.3) | | | |agecat (%) |(0,19] |29299546.1 (21.7) |28150760.5 (19.9) |0.001 | | | |(19,39] |40497613.1 (30.0) |40640361.5 (28.7) | | | | |(39,59] |41053579.4 (30.4) |42817044.0 (30.2) | | | | |(59,Inf] |24093815.3 (17.9) |29983725.9 (21.2) | | | --- # 회귀분석류 table 만들기 ```r glm_gaussian <- glm(mpg~cyl + disp, data = mtcars) jstable::glmshow.display(glm_gaussian, decimal = 2)$table %>% kable ``` | |crude coeff.(95%CI) |crude P value |adj. coeff.(95%CI) |adj. P value | |:----|:-------------------|:-------------|:-------------------|:------------| |cyl |-2.88 (-3.51,-2.24) |< 0.001 |-1.59 (-2.98,-0.19) |0.034 | |disp |-0.04 (-0.05,-0.03) |< 0.001 |-0.02 (-0.04,0) |0.054 | ```r glm_binomial <- glm(vs~cyl + disp, data = mtcars, family = binomial) jstable::glmshow.display(glm_binomial, decimal = 2)$table %>% kable ``` | |crude OR.(95%CI) |crude P value |adj. OR.(95%CI) |adj. P value | |:----|:----------------|:-------------|:----------------|:------------| |cyl |0.2 (0.08,0.56) |0.002 |0.15 (0.02,1.02) |0.053 | |disp |0.98 (0.97,0.99) |0.002 |1 (0.98,1.03) |0.715 | [더 살펴보기](https://github.com/jinseob2kim/jstable) --- # Propensity score .large[ 그룹간의 baseline 맞춰주는 방법 - **Matching**: 적당한 사람들을 뽑음, N loss - **IPTW(Inverse probability treatment weighting)**: 사람마다 가중치를 다르게 줌, N loss 無 - [MatchIt](https://cran.r-project.org/web/packages/MatchIt/vignettes/MatchIt.html): 2그룹 PS matching, IPTW - [twang](https://cran.r-project.org/web/packages/twang/index.html) : 3그룹 이상 IPTW ] --- # [생존분석 심화](https://blog.zarathu.com/posts/2020-10-29-survivalpractice/) **Time-dependent coefficients** - 비례위험가정 깨질 때, Landmark analysis **Time-dependent covariate** - 관찰 시작 후 covariate 상태가 바뀔때 (ex: 약물복용) 예: 피부질환 진단 후(Indexdate) 약물치료 여부에 따른 Outcome - **Indexdate ~ 약물치료일, 약물치료일 ~ F/U 마지막날** 한 사람의 데이터를 2개로 나눔. Competing risk analysis: 최신 `survival` 패키지 기본옵션. - 심혈관질환 발생할 사람이었는데 죽어서 못본다? - 심혈관질환: outcome, 사망: competing risk --- # Landmark analysis ```r fit <- survfit(Surv(time,status)~rx, data=colon) jskm::jskm(fit, mark = F, surv.scale = "percent", pval =T, table = T, cut.landmark = 500, showpercent = T) ``` <img src="index_files/figure-html/unnamed-chunk-6-1.png" width="50%" style="display: block; margin: auto;" /> --- # Meta analysis .large[ [meta](https://github.com/guido-s/meta/) 패키지가 표준 - Forest/Drapery plot, Sub-group analysis - Random/Fixed effect - Publication bias: Funnel plot/Trim & fill ] [자체 개발앱](https://openstat.ai/app/meta-analysis/) --- # 시계열 .large[ [fpp3](https://otexts.com/fpp3/) 교과서 추천 - [tsibble](https://tsibble.tidyverts.org/): 시계열 데이터전처리 - [fable](https://fable.tidyverts.org/): ARIMA 계수 자동추정, 간단한 시계열 인공신경망 - [prophet](https://facebook.github.io/prophet/): Meta 가 개발한 Additive model 기반 패키지 ] <center> <a href="https://www.youtube.com/watch?v=6v3_AsbhqrE"><img src="https://i.ytimg.com/vi/6v3_AsbhqrE/maxresdefault.jpg" width=40%></a> </center> --- # ETC .large[ Non-linear(GAM) model - [mgcv](https://www.maths.ed.ac.uk/~swood34/mgcv/) 패키지가 표준 - [강의자료](https://jinseob2kim.github.io/R-skku-biohrs/gam/#/title-slide) ML general - [caret](https://topepo.github.io/caret/index.html) ] --- # [Github](https://github.com/) .large[ 코딩하는 사람은 무조건 써야함. R보다 더 중요 - 코드 관리, 모든 중간기록 보관 - 오픈소스 SW(예: R패키지) 는 대부분 Github 프로젝트 - 포트폴리오 관리: 사실상의 이력서 - 간단한 홈페이지 운영 가능: 본 슬라이드도 Github 호스팅 ] --- class: center, middle # 서비스 --- # [R](https://www.r-project.org/)의 확장 .large[ [R](https://www.r-project.org/)은 이제 단순한 통계프로그램이 아님. * [Quarto](https://quarto.org): 논문과 발표자료를 [R](https://www.r-project.org/) 에서 직접 만듦. [과거 정리 내용](https://blog.zarathu.com/posts/2019-01-03-rmarkdown/) ] -- .large[ * [blogdown](https://github.com/rstudio/blogdown): 홈페이지도 만들 수 있음. 당사 홈페이지도 이것과 [Quarto blog](https://quarto.org/docs/websites/website-blog.html) 로 제작. * [Quarto book](https://quarto.org/docs/books/): 책도 직접 만들 수 있음. ] -- .large[ * [Shiny](https://shiny.rstudio.com/), [Shiny Server](https://www.rstudio.com/products/shiny/shiny-server/): 서버 구축하고 웹기반 앱을 만들 수 있음. 간단한 Shiny 앱들은 Shinyapps.io 에서 무료호스팅. ] -- 법인 설립 후 모든 작업에 [R](https://www.r-project.org/)을 이용함. --- # 논문 .large[ [R](https://www.r-project.org/)에서 글, 그림, 테이블, 참고문헌까지 직접 작성. * [rticles](https://github.com/rstudio/rticles): 대부분 학술지의 템플릿을 포함. <img src="https://bookdown.org/yihui/rmarkdown/images/rticles-templates.png" width="50%" style="display: block; margin: auto;" /> ] [준비하던 박사논문](https://blog.zarathu.com/posts/2018-11-08-mdlm/) --- # 발표 슬라이드 .large[ 논문쓸 때 이용했던 R 코드 활용, 빠르게 발표 슬라이드 제작 가능. * [기본 템플릿](https://rmarkdown.rstudio.com/lesson-11.html), [xaringan](https://github.com/yihui/xaringan) 패키지: 이 슬라이드도 [xaringan](https://github.com/yihui/xaringan)으로 제작. <img src="https://user-images.githubusercontent.com/163582/53144527-35f7a500-3562-11e9-862e-892d3fd7036d.gif" width="70%" style="display: block; margin: auto;" /> 포스터: [posterdown](https://brentthorne.github.io/posterdown_html_showcase/), [pagedown](https://pagedown.rbind.io/poster-relaxed) ] --- # 발표 슬라이드: revealjs .large[ 22년 10월 현재, 새로만드는 슬라이드는 [revealjs](https://quarto.org/docs/presentations/revealjs/)로 작업 <iframe src="https://jinseob2kim.github.io/lecture-general/APPFGH2022" width="100%" height="300px"></iframe> ] --- # 홈페이지 .large[ [blogdown](https://github.com/rstudio/blogdown), [Quarto blog](https://quarto.org/docs/websites/website-blog.html): [깃허브](https://pages.github.com/) 통해 무료 웹호스팅 가능. <img src="https://www.storybench.org/wp-content/uploads/2019/05/blogdown-new-site-e1557149319624-730x457.png" width="80%" style="display: block; margin: auto;" /> [홈페이지](https://github.com/zarathucorp/zarathu), [블로그](https://github.com/zarathucorp/blog) ] --- # 웹 앱 .large[ [Shiny](https://shiny.rstudio.com/): [R](https://www.r-project.org/) 코드만으로 웹앱 제작 ] <img src="https://shiny.rstudio.com/images/debugging/kmeans-showcase.gif" style="display: block; margin: auto;" /> --- class: center, middle # 꿈 --- # 지금만으로도 행복 .large[ - 수학 적성 살리면서 일할 수 있어서 행복 - 사람을 살리는 일이어서 행복 - 연구지원하며 동기, 선후배, 교수님 많이 만날 수 있어 행복 - R을 매개로 의학 외 다양한 분야 사람들과 교류할 수 있어 행복 - 학원강사 본능도 만족시킬 수 있어 행복 ] --- # 바이오헬스 규제과학과 .large[ 겸임교수로 [R빅데이터분석](https://github.com/jinseob2kim/R-skku-biohrs) 3학점 강의(월 19-21시) ] <center> <a href="https://github.com/jinseob2kim/R-skku-biohrs"><img src="biohrs.jpg" width=80%></a> </center> --- # [SW마에스트로 멘토](https://www.swmaestro.org/sw/main/contents.do?menuNo=200034) .large[ - 과기정통부, 정보통신기획평가원 주관 SW인재양성사업 - 기술멘토 60인 선발: 23년까지 임기 <center> <img src="https://img1.daumcdn.net/thumb/R800x0/?scode=mtistory2&fname=https%3A%2F%2Fblog.kakaocdn.net%2Fdn%2FdDeAvB%2FbtrqOgDFlcX%2FLvib9Ieq3ftZwbAIyPMRl1%2Fimg.jpg" width=50%></a> </center> ] --- # 목숨바칠만한 일 .large[ 이식외과 희귀암환자 췌장절제여부 데이터 - 최악과 차악뿐인 선택지를 두고 눈물흘리는 환자들과 의료진이 떠오름 - 나도모르게 눈물이 남. - 의학연구자 = 어벤저스, 차라투 = 어벤저스지원 ] --- # 지금 목표 .large[ 분석지원 - 심평원/공단(5테라 어떻게..), 자체 의뢰데이터 - IITP 과제평가 무난히.. - 올해 나올 지원사업, R&D 찾아보기 - 인턴쉽 유망주 육성 ] --- # 장기 목표 <center> <img src="planl.jpg" width=100%></a> </center> --- # Load to 天下 <center> <img src="vv.jpg" width=100%></a> </center> --- # 롤모델 <center> <img src="roll.jpg" width=100%></a> </center> --- # 수학에 대한 생각 .large[ - 난제해결(~20대): 페르마 마지막, 푸앵카레추측, 괴델불완전성 - 문제정의(30대초): 타니야마-시무라, 써스턴 기하화 추측, 힐베르트 23문제 - 아름다움(現): 갈루아 군, 파인만 다이어그램 - 신내림(꿈): 라마누잔 ] <center> <img src="ss.jpg" width=50%></a> </center> > 나마기리 여신으로부터 수식에 대한 계시를 받았다 --- # 수학에 대한 생각(2) .large[ - 10대: 유일한 진실이다. 물리하면 더럽혀지는거다! - 20대: 통계는 가짜수학이다. 허나 의대에선 이것밖에.. - 30대: 수학은 세계관이다 `\(0.999... = 1\)` 일수도 아닐수도, 아름다운것이 선택받는다 - 40대: 수학이 날 버렸다.. ] [2+2=4 강요는 인종차별적? 수학 꼴찌권 미국은 지금 이런 논쟁 중](https://www.chosun.com/international/us/2021/11/09/DHP6ZKS2WFCVTL7TJVJPRPCD4U/) --- # 수학에 대한 생각(3) .large[ 허준이 교수 > "개인적으로 수학은 저 자신의 편견과 한계를 이해해가는 과정이고, 일반적으로는 인간이라는 종(種)이 어떤 방식으로 생각하고 또 얼마나 깊게 생각할 수 있는지 궁금해하는 일입니다" ] --- # 비즈니스에 대한 생각 .large[ - 문제해결: 통계지원요청 도와준다 - 문제정의(現): 쉽게 분석할 수 있어야 - 아름다움(목표) - 신내림(과연..) ] --- # 헬스케어 업계에서 의사란? .large[ 劉(유) 씨 - 삼국지 유비: 한황실 재건 명분, 유황숙 대접, 천하통일까지? ] --- # 철강왕 박태준 우향우정신 .large[ > 선조의 피값(대일 청구권 자금)으로 짓는 포항제철, 실패하면 우향우해서 영일만에 빠져 죽자 ] <center> <img src="https://pds.joongang.co.kr/news/component/htmlphoto_mmdata/201511/29/htm_2015112912557808759.jpg" width=40%></a> </center> --- # 醫俠(의협: 의학 + 의로울 협) 정신 .large[ > 환자 희생으로 만들어진 데이터, 실패하면 한강에 빠져 죽자 - 최선의 결과를 내야하는 의료진, 최선의 결과를 원하는 환자 - But, 최악과 차악뿐인 선택지 - 선택과 사투과정이 담긴 데이터 - 이 데이터를 헛되게 쓰는건, 환자의 희생과 의료진의 노력을 헛되게 만드는 것. ] --- # 근성론(김성모) .large[ > 이세상 인간들은 다 사실 외롭고 쓸쓸하다. 겉으로는 행복한척 잘난척 하지만, 대다수의 인간은 자기 스스로가 밑에서부터 고장 나고 있다는것을 자각하며 살아간다. > 나이를 먹는다는것은 통찰력이 생기는 것이 아니라 감각이 붕괴되는 것이다. 통찰력이 생겼다고 자부하지 말고 당신의 감각이 하나 더 붕괴됬음을 슬퍼해라. 늙어감에 예외는 없다. 미친듯이 성장한다는 느낌이 들어야 간신히 본전. ] --- # Executive summary .large[ - 수학올림피아드 + 의대 = 의학통계(예방의학) - 의학통계 + IT기업(삼성전자 무선사업부) = 창업(의학통계지원) - 연매출 1.5억 + 파트타임 job = 소상공인(투자없이생존) - 소상공인 + 정부지원(사업비, 사무실) = 스타트업 - 의학연구지원 `\(\rightarrow\)` 임상시험분석시장 목표 - 천하3분지계: 법학, 의학, 종교 - 사람을 살리고 널리 인간을 이롭게하는 **홍익인간** - 김옥균, 맹상군, 유비 - 문제해결 `\(\rightarrow\)` 문제정의 `\(\rightarrow\)` **아름다움** `\(\rightarrow\)` **신내림** ] --- class: center, middle # END