Skip to content

Commit

Permalink
updated indometh
Browse files Browse the repository at this point in the history
  • Loading branch information
shanmdphd committed Aug 7, 2017
1 parent 268b6a0 commit 938768d
Show file tree
Hide file tree
Showing 5 changed files with 496 additions and 0 deletions.
File renamed without changes.
31 changes: 31 additions & 0 deletions R/ncaByR-indometh.R
Original file line number Diff line number Diff line change
@@ -0,0 +1,31 @@
library(NonCompart)
library(dplyr)
library(tidyr)
library(tibble)

head(Indometh)

ncaIndometh <- tabNCA(Indometh, colSubj="Subject",
colTime="time", colConc="conc",
dose=25, adm="Infusion", dur=0.5, concUnit="mg/L")
write.csv(ncaIndometh, 'data/ncaIndometh.csv', row.names = FALSE)

ncaIndometh %>% colnames()

ncaIndomethLong <- ncaIndometh %>%
as.tibble() %>%
arrange(ID) %>%
gather(key = 'PKparameter', value = 'PKparameterValue', b0:VSSP)

write.csv(ncaIndomethLong, 'data/ncaIndomethLong.csv', row.names = FALSE)

ncaIndomethStar <- ncaIndomethLong %>%
group_by(PKparameter) %>%
mutate(Ranking = min_rank(desc(PKparameterValue))) %>%
mutate(Star = ifelse(Ranking == 1,
yes = '*',
no = ifelse(Ranking == 6,
yes = '**',
no = ' ')))

write.csv(ncaIndomethStar, 'data/ncaIndomethStar.csv', row.names = FALSE)
7 changes: 7 additions & 0 deletions data/ncaIndometh.csv
Original file line number Diff line number Diff line change
@@ -0,0 +1,7 @@
"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","MRTIVLST","MRTIVIFO","MRTIVIFP","VZO","VZP","CLO","CLP","VSSO","VSSP"
1,-1.72421059639646,1.5,0.06,0.25,0,0.05,0.0502485064135143,8,4.37812701206528,0.158320482400297,5,8,3,-0.998532286621828,0.997066727426216,0.994133454852432,1.74125,1.74125,2.05706510643443,0.0822826042573772,2.0586347480231,0.0823453899209241,15.3527034922993,15.4172442842464,3.27125,7.79255448051925,7.81502594373644,58.0208260567461,58.1415337127341,1.62867910983489,3.53819049340947,3.54621783380523,76.7635174614967,76.7049877929306,12.1532371152478,12.1439706698857,43.0004680253208,43.0651653627562
3,-0.175286858431038,2.03,0.0812,0.25,0,0.08,0.0747559092002026,8,2.293063170278,0.302280019819912,0.75,8,9,-0.973482979595454,0.947669111562043,0.94019327035662,2.9325,2.9325,3.19715526913642,0.127886210765457,3.17980681586146,0.127192272634459,8.2778359778536,7.77741637095222,6.39875,9.39152229661219,9.19534267578028,31.8667432402495,30.4131425481974,1.93201193520887,2.68746205799662,2.64179286927502,25.8682374307925,26.0093698751079,7.81945132328614,7.86211284135105,21.0144787456829,20.7700736417167
6,0.155579544657487,2.72,0.1088,0.25,0,0.08,0.0399725765960521,8,1.64294680807057,0.421892648718165,0.5,8,10,-0.935855785859431,0.875826051926574,0.860304308417395,2.93375,2.93375,3.12337169699582,0.124934867879833,3.02849584759299,0.121139833903719,6.07105767072826,3.12847870233298,5.00625,6.97267842561125,5.9887901357925,28.2019090166038,16.4063210350329,1.45643374520665,1.98242031434102,1.72748005517403,18.9720552210259,19.5664063261934,8.00417062882588,8.2549229908536,15.8676304540362,14.2602148236972
2,0.0643586275963175,1.85,0.074,0.25,0,0.07,0.0344498520872912,8,1.61544094217238,0.429076150334429,0.5,8,10,-0.931191674546507,0.867117934744728,0.850507676587818,2.4775,2.4775,2.64064120452848,0.105625648181139,2.55778843379069,0.102311537351628,6.17809054288414,3.13897868682219,4.381875,6.06721967358498,5.21130178173009,27.7778746156581,15.915923054733,1.51866801210898,2.04763122047032,1.78742487567935,22.0646090817291,22.7793335575756,9.46739752342239,9.7740687500684,19.3857387455631,17.4704136204725
4,-0.982357129866236,2.05,0.082,0.25,0,0.06,0.0495714902818329,8,2.74244612209262,0.252747784168332,1,8,8,-0.935544879811905,0.875244222142273,0.854451592499318,1.95375,1.95375,2.19114080521489,0.0876456322085957,2.14988026656177,0.085995210662471,10.83411913328,9.12284603065077,3.7075,6.54586634839538,6.05253416426272,43.3612022813628,38.7446662938147,1.64763275751759,2.73742387199229,2.56528895278541,45.1421630553333,46.0085322167232,11.409581684801,11.6285545706141,31.2328612734204,29.8306025768587
5,-0.0499189799474626,2.31,0.0924,0.25,0,0.09,0.0562424678832525,8,1.9606985693831,0.353520521401732,0.75,8,9,-0.950764854539454,0.903953808627429,0.890232924145633,2.8725,2.8725,3.12708210924544,0.125083284369817,3.0315925122543,0.121263700490172,8.14120321601879,5.24781980464785,5.5325,8.28929076671746,7.25526351286615,33.2572573975366,23.7450164258139,1.6760226283725,2.40080687910611,2.14321857523362,22.61445337783,23.3267671305837,7.99467334934562,8.24649087862073,19.1936667733153,17.6740324315546
229 changes: 229 additions & 0 deletions data/ncaIndomethLong.csv
Original file line number Diff line number Diff line change
@@ -0,0 +1,229 @@
"ID","PKparameter","PKparameterValue"
1,"b0",-1.72421059639646
2,"b0",0.0643586275963175
3,"b0",-0.175286858431038
4,"b0",-0.982357129866236
5,"b0",-0.0499189799474626
6,"b0",0.155579544657487
1,"CMAX",1.5
2,"CMAX",1.85
3,"CMAX",2.03
4,"CMAX",2.05
5,"CMAX",2.31
6,"CMAX",2.72
1,"CMAXD",0.06
2,"CMAXD",0.074
3,"CMAXD",0.0812
4,"CMAXD",0.082
5,"CMAXD",0.0924
6,"CMAXD",0.1088
1,"TMAX",0.25
2,"TMAX",0.25
3,"TMAX",0.25
4,"TMAX",0.25
5,"TMAX",0.25
6,"TMAX",0.25
1,"TLAG",0
2,"TLAG",0
3,"TLAG",0
4,"TLAG",0
5,"TLAG",0
6,"TLAG",0
1,"CLST",0.05
2,"CLST",0.07
3,"CLST",0.08
4,"CLST",0.06
5,"CLST",0.09
6,"CLST",0.08
1,"CLSTP",0.0502485064135143
2,"CLSTP",0.0344498520872912
3,"CLSTP",0.0747559092002026
4,"CLSTP",0.0495714902818329
5,"CLSTP",0.0562424678832525
6,"CLSTP",0.0399725765960521
1,"TLST",8
2,"TLST",8
3,"TLST",8
4,"TLST",8
5,"TLST",8
6,"TLST",8
1,"LAMZHL",4.37812701206528
2,"LAMZHL",1.61544094217238
3,"LAMZHL",2.293063170278
4,"LAMZHL",2.74244612209262
5,"LAMZHL",1.9606985693831
6,"LAMZHL",1.64294680807057
1,"LAMZ",0.158320482400297
2,"LAMZ",0.429076150334429
3,"LAMZ",0.302280019819912
4,"LAMZ",0.252747784168332
5,"LAMZ",0.353520521401732
6,"LAMZ",0.421892648718165
1,"LAMZLL",5
2,"LAMZLL",0.5
3,"LAMZLL",0.75
4,"LAMZLL",1
5,"LAMZLL",0.75
6,"LAMZLL",0.5
1,"LAMZUL",8
2,"LAMZUL",8
3,"LAMZUL",8
4,"LAMZUL",8
5,"LAMZUL",8
6,"LAMZUL",8
1,"LAMZNPT",3
2,"LAMZNPT",10
3,"LAMZNPT",9
4,"LAMZNPT",8
5,"LAMZNPT",9
6,"LAMZNPT",10
1,"CORRXY",-0.998532286621828
2,"CORRXY",-0.931191674546507
3,"CORRXY",-0.973482979595454
4,"CORRXY",-0.935544879811905
5,"CORRXY",-0.950764854539454
6,"CORRXY",-0.935855785859431
1,"R2",0.997066727426216
2,"R2",0.867117934744728
3,"R2",0.947669111562043
4,"R2",0.875244222142273
5,"R2",0.903953808627429
6,"R2",0.875826051926574
1,"R2ADJ",0.994133454852432
2,"R2ADJ",0.850507676587818
3,"R2ADJ",0.94019327035662
4,"R2ADJ",0.854451592499318
5,"R2ADJ",0.890232924145633
6,"R2ADJ",0.860304308417395
1,"AUCLST",1.74125
2,"AUCLST",2.4775
3,"AUCLST",2.9325
4,"AUCLST",1.95375
5,"AUCLST",2.8725
6,"AUCLST",2.93375
1,"AUCALL",1.74125
2,"AUCALL",2.4775
3,"AUCALL",2.9325
4,"AUCALL",1.95375
5,"AUCALL",2.8725
6,"AUCALL",2.93375
1,"AUCIFO",2.05706510643443
2,"AUCIFO",2.64064120452848
3,"AUCIFO",3.19715526913642
4,"AUCIFO",2.19114080521489
5,"AUCIFO",3.12708210924544
6,"AUCIFO",3.12337169699582
1,"AUCIFOD",0.0822826042573772
2,"AUCIFOD",0.105625648181139
3,"AUCIFOD",0.127886210765457
4,"AUCIFOD",0.0876456322085957
5,"AUCIFOD",0.125083284369817
6,"AUCIFOD",0.124934867879833
1,"AUCIFP",2.0586347480231
2,"AUCIFP",2.55778843379069
3,"AUCIFP",3.17980681586146
4,"AUCIFP",2.14988026656177
5,"AUCIFP",3.0315925122543
6,"AUCIFP",3.02849584759299
1,"AUCIFPD",0.0823453899209241
2,"AUCIFPD",0.102311537351628
3,"AUCIFPD",0.127192272634459
4,"AUCIFPD",0.085995210662471
5,"AUCIFPD",0.121263700490172
6,"AUCIFPD",0.121139833903719
1,"AUCPEO",15.3527034922993
2,"AUCPEO",6.17809054288414
3,"AUCPEO",8.2778359778536
4,"AUCPEO",10.83411913328
5,"AUCPEO",8.14120321601879
6,"AUCPEO",6.07105767072826
1,"AUCPEP",15.4172442842464
2,"AUCPEP",3.13897868682219
3,"AUCPEP",7.77741637095222
4,"AUCPEP",9.12284603065077
5,"AUCPEP",5.24781980464785
6,"AUCPEP",3.12847870233298
1,"AUMCLST",3.27125
2,"AUMCLST",4.381875
3,"AUMCLST",6.39875
4,"AUMCLST",3.7075
5,"AUMCLST",5.5325
6,"AUMCLST",5.00625
1,"AUMCIFO",7.79255448051925
2,"AUMCIFO",6.06721967358498
3,"AUMCIFO",9.39152229661219
4,"AUMCIFO",6.54586634839538
5,"AUMCIFO",8.28929076671746
6,"AUMCIFO",6.97267842561125
1,"AUMCIFP",7.81502594373644
2,"AUMCIFP",5.21130178173009
3,"AUMCIFP",9.19534267578028
4,"AUMCIFP",6.05253416426272
5,"AUMCIFP",7.25526351286615
6,"AUMCIFP",5.9887901357925
1,"AUMCPEO",58.0208260567461
2,"AUMCPEO",27.7778746156581
3,"AUMCPEO",31.8667432402495
4,"AUMCPEO",43.3612022813628
5,"AUMCPEO",33.2572573975366
6,"AUMCPEO",28.2019090166038
1,"AUMCPEP",58.1415337127341
2,"AUMCPEP",15.915923054733
3,"AUMCPEP",30.4131425481974
4,"AUMCPEP",38.7446662938147
5,"AUMCPEP",23.7450164258139
6,"AUMCPEP",16.4063210350329
1,"MRTIVLST",1.62867910983489
2,"MRTIVLST",1.51866801210898
3,"MRTIVLST",1.93201193520887
4,"MRTIVLST",1.64763275751759
5,"MRTIVLST",1.6760226283725
6,"MRTIVLST",1.45643374520665
1,"MRTIVIFO",3.53819049340947
2,"MRTIVIFO",2.04763122047032
3,"MRTIVIFO",2.68746205799662
4,"MRTIVIFO",2.73742387199229
5,"MRTIVIFO",2.40080687910611
6,"MRTIVIFO",1.98242031434102
1,"MRTIVIFP",3.54621783380523
2,"MRTIVIFP",1.78742487567935
3,"MRTIVIFP",2.64179286927502
4,"MRTIVIFP",2.56528895278541
5,"MRTIVIFP",2.14321857523362
6,"MRTIVIFP",1.72748005517403
1,"VZO",76.7635174614967
2,"VZO",22.0646090817291
3,"VZO",25.8682374307925
4,"VZO",45.1421630553333
5,"VZO",22.61445337783
6,"VZO",18.9720552210259
1,"VZP",76.7049877929306
2,"VZP",22.7793335575756
3,"VZP",26.0093698751079
4,"VZP",46.0085322167232
5,"VZP",23.3267671305837
6,"VZP",19.5664063261934
1,"CLO",12.1532371152478
2,"CLO",9.46739752342239
3,"CLO",7.81945132328614
4,"CLO",11.409581684801
5,"CLO",7.99467334934562
6,"CLO",8.00417062882588
1,"CLP",12.1439706698857
2,"CLP",9.7740687500684
3,"CLP",7.86211284135105
4,"CLP",11.6285545706141
5,"CLP",8.24649087862073
6,"CLP",8.2549229908536
1,"VSSO",43.0004680253208
2,"VSSO",19.3857387455631
3,"VSSO",21.0144787456829
4,"VSSO",31.2328612734204
5,"VSSO",19.1936667733153
6,"VSSO",15.8676304540362
1,"VSSP",43.0651653627562
2,"VSSP",17.4704136204725
3,"VSSP",20.7700736417167
4,"VSSP",29.8306025768587
5,"VSSP",17.6740324315546
6,"VSSP",14.2602148236972
Loading

0 comments on commit 938768d

Please sign in to comment.