Merge pull request #6 from eunmin309/master

수고하셨습니다.

2017-subintern.Rmd

@@ -3,10 +3,10 @@ title: "How to use R markdown"
 author: "AMC Subintern"
 date: '2017-08-02'
 output:
- word_document:
- toc: yes
  html_document:
  toc: yes
+ word_document:
+ toc: yes
 bibliography: references/myref.bib
 ---
 
@@ -66,6 +66,7 @@ Writing medical papers can be done by Rmarkdown as well as using [Endnote](http:
 | 한성필 | 녹차라떼 | 4000원 |
 | 배균섭 | 케이크 | 14000원 |
 | 임형석 | 아이스아메리카노 | 3000원 |
+| 조은민 | 코카콜라 | 1500원 |
 
 So now we learned several things.
 

2018-subintern.Rmd

@@ -0,0 +1,27 @@
+---
+output:
+ word_document: default
+ html_document: default
+---
+# 서브인턴
+
+여름에 서울아산병원에서 진행한 서브인턴 과정입니다.
+
+## 서론
+
+이런것을 배우고 싶었습니다.
+
+## 본론
+
+- 월: 인트로, 오후: 임상약리학과 이동
+- 화: 약동학 서론
+- 수 ~~
+
+## 결론
+
+여름에 서울아산병원에서 진행한 서브인턴 과정은 유익했습니다.
+
+### 참고문헌
+
+1. pkpd
+2. 임상약리학

R/ncaByR-Theoph.R

@@ -1,12 +1,13 @@
-library(NonCompart) # NonCompartmental Analysis
+# install.packages('NonCompart')
+library(NonCompart) # NonCompartmental Analysis package.
 library(tidyverse)
 
 # ?NonCompart
 
 head(Theoph)
 
 # Theoph and Indometh data: dose in mg, conc in mg/L, time in h
-ncaTheoph <- NonCompart::tabNCA(Theoph, dose=320, concUnit="mg/L")
+ncaTheoph <- tblNCA(Theoph, dose=320, concUnit="mg/L")
 
 write.csv(ncaTheoph, 'data/ncaTheoph.csv', row.names = FALSE)
 
@@ -15,7 +16,7 @@ write.csv(ncaTheoph, 'data/ncaTheoph.csv', row.names = FALSE)
 
 ncaTheophLong <- ncaTheoph %>%
  as.tibble() %>% 
- arrange(ID) %>% 
+ arrange(Subject) %>% 
  gather(key = 'PKparameter', value = 'PKparameterValue', b0:CLFP)
 
 write.csv(ncaTheophLong, 'data/ncaTheophLong.csv', row.names = FALSE)

data/ncaTheoph.csv

@@ -1,13 +1,13 @@
-"ID","b0","CMAX","CMAXD","TMAX","TLAG","CLST","CLSTP","TLST","LAMZHL","LAMZ","LAMZLL","LAMZUL","LAMZNPT","CORRXY","R2","R2ADJ","AUCLST","AUCALL","AUCIFO","AUCIFOD","AUCIFP","AUCIFPD","AUCPEO","AUCPEP","AUMCLST","AUMCIFO","AUMCIFP","AUMCPEO","AUMCPEP","MRTEVLST","MRTEVIFO","MRTEVIFP","VZFO","VZFP","CLFO","CLFP"
-11,2.36878509420585,10.5,0.0328125,1.12,0,3.28,3.28014647414312,24.37,14.304377571097,0.0484569969657749,9.05,24.37,3,-0.99999986483748,0.999999729674979,0.999999459349959,148.92305,148.92305,216.611933038226,0.676912290744456,216.614955803818,0.67692173688693,31.2489169404534,31.2498763313113,1459.0711035,4505.53481941065,4505.67086458209,67.6160286851172,67.6170064935417,9.79748335465867,20.8000305256292,20.8003683211179,30.4867482345887,30.4863228055447,1.47729626669981,1.47727565168591
-6,2.41123733696293,8.33,0.02603125,1.92,0,0.9,0.888639849106919,24.3,6.65934156262252,0.104086443688432,7.03,24.3,4,-0.998596709529913,0.99719538828397,0.995793082425955,91.5268,91.5268,100.173459143183,0.313042059822447,100.064317640308,0.312700992625963,8.63168669340252,8.53203003991598,706.586566,999.772287999786,996.071583509104,29.3252499112927,29.0626720309864,7.71999639449866,9.98041094468705,9.95431345556755,30.6904415765423,30.7239160557228,3.19445891892989,3.19794315842211
-5,2.52971150145858,8.2,0.025625,1.02,0,1.05,1.05509670837553,24.17,6.76608737718236,0.102444314109434,9,24.17,3,-0.999662423945811,0.999324961849213,0.998649923698427,99.2865,99.2865,109.535970740547,0.342299908564208,109.585721753278,0.342455380478994,9.3571734209797,9.39832451573008,803.18587,1150.96476871455,1152.65289026304,30.2162940315685,30.318495985664,8.08957783787323,10.5076420187191,10.5182762117325,28.5170999496524,28.5041534217657,2.92141474473231,2.92008844656286
-7,2.59275546723663,8.6,0.026875,1.07,0,1.15,1.15642160174997,24.65,6.98124666099893,0.0992870205306231,9.02,24.65,3,-0.999461923749821,0.998924137025692,0.997848274051385,106.7963,106.7963,118.378881427603,0.369934004461258,118.44355857992,0.370136120562249,9.7843308603032,9.83359392402986,901.0842105,1303.25240140958,1305.4981091996,30.8588106551423,30.9777467963968,8.43741038313125,11.0091630001303,11.0221115006327,27.2259641330176,27.2110971545992,2.70318485984093,2.70170876184947
-12,2.55109229061238,11.4,0.035625,1,0,1.57,1.55569511595616,24.35,8.0022640410078,0.0866188839818201,7.02,24.35,4,-0.999323363372814,0.998647184582752,0.997970776874129,121.2944,121.2944,139.419777837118,0.435686805740995,139.254630430615,0.435170720095671,13.0005786254328,12.8974026752838,1017.1143165,1667.72161189007,1661.79367436228,39.011744571249,38.7941877387202,8.38550103302378,11.9618725389051,11.9334895308224,26.4979946505636,26.5294196385914,2.29522672438806,2.29794872178016
-1,2.0334043955261,6.44,0.020125,1.15,0,0.92,0.941271173708175,23.85,7.89499786796582,0.0877957400561702,2.03,23.85,7,-0.999120281624298,0.998241337153017,0.99788960458362,73.77555,73.77555,84.2544183301878,0.263295057281837,84.4966985785753,0.264052183058048,12.4371736674055,12.688245527848,609.1523875,978.428485741731,986.966459689532,37.7417566662308,38.280335514986,8.25683288704727,11.612785479182,11.6805328053348,43.2597344953234,43.135694392041,3.79802040465035,3.78713021198604
-2,2.28854976005424,7.09,0.02215625,3.48,0,1.15,1.16071921229933,24.22,7.84666826130148,0.0883364961379133,6.98,24.22,4,-0.999334862622512,0.998670167652754,0.998005251479131,90.7534,90.7534,103.771801796293,0.324286880613414,103.893147024686,0.324666084452144,12.5452209279821,12.6473664538854,782.41986,1245.09840831465,1249.41106012833,37.1599983764277,37.376906210544,8.62138344128154,11.9984271908357,12.0259237101698,34.9084408430805,34.8676684452056,3.08368934971535,3.08008765894795
-3,2.17040271754659,7.56,0.023625,2.02,0,1.25,1.22852675835656,24.12,8.51003788342506,0.0814505399453019,3.53,24.12,6,-0.995496052943785,0.991012391426654,0.988765489283318,88.55995,88.55995,103.906686815243,0.324708396297635,103.643051464786,0.323884535827455,14.7697297311878,14.5529307094073,739.534598,1298.11575468474,1288.52011616077,43.0301500208197,42.605894256157,8.3506663903943,12.4930915850769,12.4322865638375,37.8105081118408,37.9066861615621,3.07968630131565,3.08752005539633
-8,2.12464810390587,9.03,0.02821875,0.63,0,1.12,1.11648311706515,24.43,8.40599880716182,0.0824586341803179,8.8,24.43,3,-0.99972179371205,0.999443664822839,0.998887329645677,86.32615,86.32615,99.9087179279482,0.312214743524838,99.8660676588793,0.312081461433998,13.5949777052926,13.5580763078894,705.2296255,1201.77153812025,1200.2123597462,41.3174964516894,41.2412628670872,8.1693626496722,12.0286954236259,12.0182198807093,38.8427934436931,38.8593822173436,3.20292369511514,3.20429158273309
-10,2.65770546248091,10.21,0.03190625,3.55,0,2.42,2.41369227401111,23.7,9.24691582297898,0.0749598237757766,9.38,23.7,3,-0.999754311749369,0.999508683861454,0.999017367722909,138.3681,138.3681,170.652060635217,0.533287689485054,170.567912545332,0.533024726704162,18.9180022292417,18.8780011813617,1278.180042,2473.99342735889,2470.87654175199,48.3353501320931,48.2701777931124,9.23753409926132,14.4972959491374,14.4861744795951,25.0155401378403,25.0278813214113,1.87516048038837,1.87608557333405
-4,2.1475943307927,8,0.025,0.98,0,0.86,0.859806606884089,24.08,7.26123651504339,0.0954585598642772,9.03,24.08,3,-0.999999127979356,0.999998255959473,0.999996511918946,80.0936,80.0936,89.1027449234385,0.278446077885745,89.1007189855217,0.278439746829755,10.1109622730249,10.1089184106194,617.2422125,928.559971386069,928.489963582081,33.5269415524517,33.5219295081337,7.70651103833515,10.4212274513421,10.4206786898426,37.6221852019531,37.6230406407462,3.59135961832556,3.59144127728081
-9,2.82449347826545,9.75,0.03046875,3.52,0,1.17,1.17553904959565,24.15,6.28650816367189,0.110259489451627,9.03,24.15,3,-0.999698355328196,0.9993968016459,0.998793603291801,119.9775,119.9775,130.588831558118,0.408090098619118,130.639068046815,0.408247087646298,8.12575733430562,8.16108703637935,977.8807235,1330.38400236898,1332.05283411623,26.4963558071417,26.5884431567018,8.15053425433936,10.1875787270284,10.1964355229393,22.2242935639128,22.2157473419508,2.4504392617801,2.44949695970983
+"Subject","b0","CMAX","CMAXD","TMAX","TLAG","CLST","CLSTP","TLST","LAMZHL","LAMZ","LAMZLL","LAMZUL","LAMZNPT","CORRXY","R2","R2ADJ","AUCLST","AUCALL","AUCIFO","AUCIFOD","AUCIFP","AUCIFPD","AUCPEO","AUCPEP","AUMCLST","AUMCIFO","AUMCIFP","AUMCPEO","AUMCPEP","VZFO","VZFP","CLFO","CLFP","MRTEVLST","MRTEVIFO","MRTEVIFP"
+"1",2.36878509420585,10.5,0.0328125,1.12,0,3.28,3.28014647414312,24.37,14.304377571097,0.0484569969657749,9.05,24.37,3,-0.99999986483748,0.999999729674979,0.999999459349959,148.92305,148.92305,216.611933038226,0.676912290744456,216.614955803818,0.67692173688693,31.2489169404534,31.2498763313113,1459.0711035,4505.53481941065,4505.67086458209,67.6160286851172,67.6170064935417,30.4867482345887,30.4863228055447,1.47729626669981,1.47727565168591,9.79748335465867,20.8000305256292,20.8003683211179
+"2",2.41123733696293,8.33,0.02603125,1.92,0,0.9,0.888639849106919,24.3,6.65934156262252,0.104086443688432,7.03,24.3,4,-0.998596709529913,0.99719538828397,0.995793082425955,91.5268,91.5268,100.173459143183,0.313042059822447,100.064317640308,0.312700992625963,8.63168669340252,8.53203003991598,706.586566,999.772287999786,996.071583509104,29.3252499112927,29.0626720309864,30.6904415765423,30.7239160557228,3.19445891892989,3.19794315842211,7.71999639449866,9.98041094468705,9.95431345556755
+"3",2.52971150145858,8.2,0.025625,1.02,0,1.05,1.05509670837553,24.17,6.76608737718236,0.102444314109434,9,24.17,3,-0.999662423945811,0.999324961849213,0.998649923698427,99.2865,99.2865,109.535970740547,0.342299908564208,109.585721753278,0.342455380478994,9.3571734209797,9.39832451573008,803.18587,1150.96476871455,1152.65289026304,30.2162940315685,30.318495985664,28.5170999496524,28.5041534217657,2.92141474473231,2.92008844656286,8.08957783787323,10.5076420187191,10.5182762117325
+"4",2.59275546723663,8.6,0.026875,1.07,0,1.15,1.15642160174997,24.65,6.98124666099893,0.0992870205306231,9.02,24.65,3,-0.999461923749821,0.998924137025692,0.997848274051385,106.7963,106.7963,118.378881427603,0.369934004461258,118.44355857992,0.370136120562249,9.7843308603032,9.83359392402986,901.0842105,1303.25240140958,1305.4981091996,30.8588106551423,30.9777467963968,27.2259641330176,27.2110971545992,2.70318485984093,2.70170876184947,8.43741038313125,11.0091630001303,11.0221115006327
+"5",2.55109229061238,11.4,0.035625,1,0,1.57,1.55569511595616,24.35,8.0022640410078,0.0866188839818201,7.02,24.35,4,-0.999323363372814,0.998647184582752,0.997970776874129,121.2944,121.2944,139.419777837118,0.435686805740995,139.254630430615,0.435170720095671,13.0005786254328,12.8974026752838,1017.1143165,1667.72161189007,1661.79367436228,39.011744571249,38.7941877387202,26.4979946505636,26.5294196385914,2.29522672438806,2.29794872178016,8.38550103302378,11.9618725389051,11.9334895308224
+"6",2.0334043955261,6.44,0.020125,1.15,0,0.92,0.941271173708175,23.85,7.89499786796582,0.0877957400561702,2.03,23.85,7,-0.999120281624298,0.998241337153017,0.99788960458362,73.77555,73.77555,84.2544183301878,0.263295057281837,84.4966985785753,0.264052183058048,12.4371736674055,12.688245527848,609.1523875,978.428485741731,986.966459689532,37.7417566662308,38.280335514986,43.2597344953234,43.135694392041,3.79802040465035,3.78713021198604,8.25683288704727,11.612785479182,11.6805328053348
+"7",2.28854976005424,7.09,0.02215625,3.48,0,1.15,1.16071921229933,24.22,7.84666826130148,0.0883364961379133,6.98,24.22,4,-0.999334862622512,0.998670167652754,0.998005251479131,90.7534,90.7534,103.771801796293,0.324286880613414,103.893147024686,0.324666084452144,12.5452209279821,12.6473664538854,782.41986,1245.09840831465,1249.41106012833,37.1599983764277,37.376906210544,34.9084408430805,34.8676684452056,3.08368934971535,3.08008765894795,8.62138344128154,11.9984271908357,12.0259237101698
+"8",2.17040271754659,7.56,0.023625,2.02,0,1.25,1.22852675835656,24.12,8.51003788342506,0.0814505399453019,3.53,24.12,6,-0.995496052943785,0.991012391426654,0.988765489283318,88.55995,88.55995,103.906686815243,0.324708396297635,103.643051464786,0.323884535827455,14.7697297311878,14.5529307094073,739.534598,1298.11575468474,1288.52011616077,43.0301500208197,42.605894256157,37.8105081118408,37.9066861615621,3.07968630131565,3.08752005539633,8.3506663903943,12.4930915850769,12.4322865638375
+"9",2.12464810390587,9.03,0.02821875,0.63,0,1.12,1.11648311706515,24.43,8.40599880716182,0.0824586341803179,8.8,24.43,3,-0.99972179371205,0.999443664822839,0.998887329645677,86.32615,86.32615,99.9087179279482,0.312214743524838,99.8660676588793,0.312081461433998,13.5949777052926,13.5580763078894,705.2296255,1201.77153812025,1200.2123597462,41.3174964516894,41.2412628670872,38.8427934436931,38.8593822173436,3.20292369511514,3.20429158273309,8.1693626496722,12.0286954236259,12.0182198807093
+"10",2.65770546248091,10.21,0.03190625,3.55,0,2.42,2.41369227401111,23.7,9.24691582297898,0.0749598237757766,9.38,23.7,3,-0.999754311749369,0.999508683861454,0.999017367722909,138.3681,138.3681,170.652060635217,0.533287689485054,170.567912545332,0.533024726704162,18.9180022292417,18.8780011813617,1278.180042,2473.99342735889,2470.87654175199,48.3353501320931,48.2701777931124,25.0155401378403,25.0278813214113,1.87516048038837,1.87608557333405,9.23753409926132,14.4972959491374,14.4861744795951
+"11",2.1475943307927,8,0.025,0.98,0,0.86,0.859806606884089,24.08,7.26123651504339,0.0954585598642772,9.03,24.08,3,-0.999999127979356,0.999998255959473,0.999996511918946,80.0936,80.0936,89.1027449234385,0.278446077885745,89.1007189855217,0.278439746829755,10.1109622730249,10.1089184106194,617.2422125,928.559971386069,928.489963582081,33.5269415524517,33.5219295081337,37.6221852019531,37.6230406407462,3.59135961832556,3.59144127728081,7.70651103833515,10.4212274513421,10.4206786898426
+"12",2.82449347826545,9.75,0.03046875,3.52,0,1.17,1.17553904959565,24.15,6.28650816367189,0.110259489451627,9.03,24.15,3,-0.999698355328196,0.9993968016459,0.998793603291801,119.9775,119.9775,130.588831558118,0.408090098619118,130.639068046815,0.408247087646298,8.12575733430562,8.16108703637935,977.8807235,1330.38400236898,1332.05283411623,26.4963558071417,26.5884431567018,22.2242935639128,22.2157473419508,2.4504392617801,2.44949695970983,8.15053425433936,10.1875787270284,10.1964355229393