diff --git a/README.Rmd b/README.Rmd index 309c8fc..e36d0bb 100644 --- a/README.Rmd +++ b/README.Rmd @@ -12,7 +12,6 @@ editor_options: library(knitr) knitr::opts_chunk$set(fig.width=8, fig.height=4, dev = 'png', dpi = 150, fig.path='assets/figures/', echo=TRUE, warning=FALSE, message=FALSE, - #cache=TRUE, results = 'asis') ``` @@ -44,14 +43,14 @@ caffsim::caffDatasetMulti(Weight = 20, Dose = 200, N = 20, Tau = 12) ```{r} library(caffsim) MyDataset <- caffDataset(Weight = 20, Dose = 200, N = 20) -knitr::kable(head(MyDataset)) +knitr::kable(head(MyDataset), format = 'markdown') ``` ### Create a dataset for concentration-time curve ```{r} MyConcTime <- caffConcTime(Weight = 20, Dose = 200, N = 20) -knitr::kable(head(MyConcTime)) +knitr::kable(head(MyConcTime), format = 'markdown') ``` ### Create a concentration-time curve @@ -87,14 +86,14 @@ plot_grid(MyPlotPub[[1]], MyPlotPub[[2]], ```{r} MyDatasetMulti <- caffDatasetMulti(Weight = 20, Dose = 200, N = 20, Tau = 12) -knitr::kable(head(MyDatasetMulti)) +knitr::kable(head(MyDatasetMulti), format = 'markdown') ``` ### Create a dataset for concentration-time curve ```{r} MyConcTimeMulti <- caffConcTimeMulti(Weight = 20, Dose = 200, N = 20, Tau = 12, Repeat = 10) -knitr::kable(head(MyConcTimeMulti)) +knitr::kable(head(MyConcTimeMulti), format = 'markdown') ``` ### Create a concentration-time curve diff --git a/README.md b/README.md index 8dc8549..4e0d4b8 100644 --- a/README.md +++ b/README.md @@ -31,36 +31,38 @@ caffsim::caffDatasetMulti(Weight = 20, Dose = 200, N = 20, Tau = 12) ```r library(caffsim) MyDataset <- caffDataset(Weight = 20, Dose = 200, N = 20) -knitr::kable(head(MyDataset)) +knitr::kable(head(MyDataset), format = 'markdown') ``` - Tmax Cmax AUC Half_life CL V Ka Ke ----------- ---------- ---------- ---------- --------- --------- ---------- ---------- - 0.7776109 10.567459 60.69779 3.396494 3.295013 16.14934 4.045327 0.2040339 - 0.5247960 9.923271 55.00315 3.457693 3.636156 18.14244 6.960282 0.2004227 - 0.6431633 10.418663 110.02141 6.857586 1.817828 17.98833 6.598512 0.1010560 - 0.7039204 13.833981 75.87181 3.274701 2.636025 12.45627 4.579301 0.2116224 - 0.3819273 11.308010 63.10853 3.592874 3.169144 16.43050 10.710281 0.1928818 - 0.9321291 11.589101 65.22935 3.184408 3.066104 14.08907 3.049987 0.2176228 + + +| Tmax| Cmax| AUC| Half_life| CL| V| Ka| Ke| +|---------:|---------:|---------:|---------:|--------:|--------:|---------:|---------:| +| 1.0906131| 11.314388| 121.76524| 6.657688| 1.642505| 15.77963| 3.262995| 0.1040902| +| 0.5077390| 9.503155| 32.08079| 1.953896| 6.234261| 17.57734| 5.887948| 0.3546760| +| 0.5619410| 12.913824| 107.44157| 5.361767| 1.861477| 14.40232| 7.310243| 0.1292484| +| 0.8627242| 14.795723| 125.85073| 5.261418| 1.589184| 12.06546| 4.123528| 0.1317135| +| 1.9623962| 13.828196| 138.83715| 5.411751| 1.440537| 11.24939| 1.314898| 0.1280547| +| 0.3461002| 14.109070| 106.51535| 4.986041| 1.877664| 13.50954| 13.322522| 0.1389880| ### Create a dataset for concentration-time curve ```r MyConcTime <- caffConcTime(Weight = 20, Dose = 200, N = 20) -knitr::kable(head(MyConcTime)) +knitr::kable(head(MyConcTime), format = 'markdown') ``` - Subject Time Conc --------- ----- --------- - 1 0.0 0.000000 - 1 0.1 1.916637 - 1 0.2 3.503230 - 1 0.3 4.812908 - 1 0.4 5.890289 - 1 0.5 6.772843 +| Subject| Time| Conc| +|-------:|----:|---------:| +| 1| 0.0| 0.000000| +| 1| 0.1| 3.997178| +| 1| 0.2| 6.949478| +| 1| 0.3| 9.111235| +| 1| 0.4| 10.675216| +| 1| 0.5| 11.787516| ### Create a concentration-time curve @@ -102,36 +104,38 @@ plot_grid(MyPlotPub[[1]], MyPlotPub[[2]], ```r MyDatasetMulti <- caffDatasetMulti(Weight = 20, Dose = 200, N = 20, Tau = 12) -knitr::kable(head(MyDatasetMulti)) +knitr::kable(head(MyDatasetMulti), format = 'markdown') ``` - TmaxS CmaxS AUCS AI Aavss Cavss Cmaxss Cminss ----------- ---------- ---------- --------- ---------- ---------- --------- --------- - 1.1182720 8.629289 63.93589 1.167687 102.84228 5.327991 12.07380 1.733873 - 0.7399023 18.149541 107.68076 1.107077 85.44083 8.973397 23.20571 2.244463 - 0.2484624 19.324724 105.66282 1.111206 86.70719 8.805235 22.52196 2.253929 - 1.0115241 15.295759 183.16914 1.499428 181.54300 15.264095 25.16186 8.380886 - 0.9198408 15.738922 137.56975 1.270960 129.13399 11.464146 22.51949 4.800999 - 3.4830363 10.609518 139.92981 1.352849 148.50802 11.660818 21.20090 5.529603 + + +| TmaxS| CmaxS| AUCS| AI| Aavss| Cavss| Cmaxss| Cminss| +|---------:|---------:|---------:|--------:|---------:|---------:|--------:|--------:| +| 0.5271146| 12.484516| 79.03187| 1.143311| 96.10779| 6.585989| 15.63696| 1.960048| +| 1.8913324| 12.019455| 179.09764| 1.648569| 213.94066| 14.924803| 22.95346| 9.030201| +| 0.6318965| 10.665360| 98.51506| 1.328002| 142.72210| 8.209588| 15.24596| 3.765590| +| 3.1907127| 6.310865| 84.02889| 1.396045| 158.41622| 7.002408| 12.31609| 3.493959| +| 0.2903834| 11.633120| 71.39127| 1.146897| 97.11712| 5.949272| 14.02226| 1.795997| +| 1.1666484| 9.491114| 94.03967| 1.333555| 144.02132| 7.836639| 14.48238| 3.622403| ### Create a dataset for concentration-time curve ```r MyConcTimeMulti <- caffConcTimeMulti(Weight = 20, Dose = 200, N = 20, Tau = 12, Repeat = 10) -knitr::kable(head(MyConcTimeMulti)) +knitr::kable(head(MyConcTimeMulti), format = 'markdown') ``` - Subject Time Conc --------- ----- --------- - 1 0.0 0.000000 - 1 0.2 5.077558 - 1 0.4 7.194572 - 1 0.6 7.995335 - 1 0.8 8.213161 - 1 1.0 8.175024 +| Subject| Time| Conc| +|-------:|----:|--------:| +| 1| 0.0| 0.000000| +| 1| 0.2| 6.107943| +| 1| 0.4| 7.995832| +| 1| 0.6| 8.477541| +| 1| 0.8| 8.493149| +| 1| 1.0| 8.356661| ### Create a concentration-time curve diff --git a/assets/figures/MyPlotMultiMyConcTimeMulti-1.png b/assets/figures/MyPlotMultiMyConcTimeMulti-1.png index 9eddaec..62220be 100644 Binary files a/assets/figures/MyPlotMultiMyConcTimeMulti-1.png and b/assets/figures/MyPlotMultiMyConcTimeMulti-1.png differ diff --git a/assets/figures/MyPlotMultiPub-1.png b/assets/figures/MyPlotMultiPub-1.png index 1980f2d..b96b562 100644 Binary files a/assets/figures/MyPlotMultiPub-1.png and b/assets/figures/MyPlotMultiPub-1.png differ diff --git a/assets/figures/MyPlotMyConcTime-1.png b/assets/figures/MyPlotMyConcTime-1.png index 05b5804..5288ebb 100644 Binary files a/assets/figures/MyPlotMyConcTime-1.png and b/assets/figures/MyPlotMyConcTime-1.png differ diff --git a/assets/figures/MyPlotPub-1.png b/assets/figures/MyPlotPub-1.png index e34d489..c294036 100644 Binary files a/assets/figures/MyPlotPub-1.png and b/assets/figures/MyPlotPub-1.png differ diff --git a/docs/assets/figures/MyPlotMultiMyConcTimeMulti-1.png b/docs/assets/figures/MyPlotMultiMyConcTimeMulti-1.png index 36fc3a5..743235b 100644 Binary files a/docs/assets/figures/MyPlotMultiMyConcTimeMulti-1.png and b/docs/assets/figures/MyPlotMultiMyConcTimeMulti-1.png differ diff --git a/docs/assets/figures/MyPlotMultiPub-1.png b/docs/assets/figures/MyPlotMultiPub-1.png index 4419c33..194b161 100644 Binary files a/docs/assets/figures/MyPlotMultiPub-1.png and b/docs/assets/figures/MyPlotMultiPub-1.png differ diff --git a/docs/assets/figures/MyPlotMyConcTime-1.png b/docs/assets/figures/MyPlotMyConcTime-1.png index 00f481d..819aca8 100644 Binary files a/docs/assets/figures/MyPlotMyConcTime-1.png and b/docs/assets/figures/MyPlotMyConcTime-1.png differ diff --git a/docs/assets/figures/MyPlotPub-1.png b/docs/assets/figures/MyPlotPub-1.png index b0c81e8..9ef2122 100644 Binary files a/docs/assets/figures/MyPlotPub-1.png and b/docs/assets/figures/MyPlotPub-1.png differ diff --git a/docs/index.html b/docs/index.html index 26b565c..1660185 100644 --- a/docs/index.html +++ b/docs/index.html @@ -92,7 +92,7 @@

Create a PK dataset for caffeine single dose

library(caffsim)
 MyDataset <- caffDataset(Weight = 20, Dose = 200, N = 20)
-knitr::kable(head(MyDataset))
+knitr::kable(head(MyDataset), format = 'markdown') @@ -106,64 +106,64 @@

- - - - - - - - + + + + + + + + - - - - - - - - + + + + + + + + - - - - - - - - + + + + + + + + - - - - - - - - + + + + + + + + - - - - - - - - + + + + + + + + - - - - - - - - + + + + + + + +
Tmax
5.690561111.763310200.183336.3170240.99908429.1071260.26407040.10970360.461155612.96262768.542613.3289592.917893214.016668.16472240.2081732
2.020206912.881877127.863735.2752601.564165311.9067511.24427810.13136790.682835012.553752148.672787.7191171.345236214.984186.31986660.0897771
1.721217312.480329143.026026.6351171.398346913.3884491.73811530.10444430.75738649.70198661.960463.8635623.227864717.995754.40616720.1793681
0.888636310.878033106.081526.1101411.885342516.6229554.16963820.11341801.201797418.189870260.276829.0436600.768412710.027803.17554330.0766283
1.68441078.77946792.906186.0458742.152709218.7806751.72390740.11462362.86079728.00328773.547783.7573712.719320814.743860.59220680.1844375
0.399837120.013646156.568955.1367181.27739259.46840611.18331810.13491100.522654212.36197686.384534.4653362.315229314.918157.60040840.1551955
@@ -172,7 +172,7 @@

Create a dataset for concentration-time curve

MyConcTime <- caffConcTime(Weight = 20, Dose = 200, N = 20)
-knitr::kable(head(MyConcTime))
+knitr::kable(head(MyConcTime), format = 'markdown') @@ -183,32 +183,32 @@

- + - + - + - + - + - +
Subject
1 0.00.0000000.00000
1 0.14.80402610.30907
1 0.28.18389612.15218
1 0.310.55101412.30813
1 0.412.19801912.13141
1 0.513.33307311.89259
@@ -250,7 +250,7 @@

Create a PK dataset for caffeine multiple doses

MyDatasetMulti <- caffDatasetMulti(Weight = 20, Dose = 200, N = 20, Tau = 12)
-knitr::kable(head(MyDatasetMulti))
+knitr::kable(head(MyDatasetMulti), format = 'markdown') @@ -264,64 +264,64 @@

- - - - - - - - + + + + + + + + - - - - - - - - + + + + + + + + - - - - - - - - + + + + + + + + - - - - - - - - + + + + + + + + - - - - - - - - + + + + + + + + - - - - - - - - + + + + + + + +
TmaxS
0.958759310.85319112.820131.385890156.102459.40167816.659054.6385811.20294698.57971650.620851.07571775.208614.21840412.042160.8476183
0.444039612.1207788.614231.210001113.965747.38451915.648022.7157861.001928612.22414897.867191.214941115.227408.15559917.162523.0363000
0.496585315.88455133.869511.281347131.6450011.15579321.671484.7584410.959076111.63788878.460681.13855394.757556.53839015.679641.9080910
2.103283213.04232137.798411.298803135.8255511.48320121.915455.0418740.373709311.44675766.731721.12395390.526505.56097613.780001.5197047
0.358576014.32243120.759341.291717134.1340710.06327819.341644.3680490.612807014.46948596.255451.15694999.910958.02128818.538352.5148741
1.742070210.4861980.823681.13685894.273286.73530716.210661.9514831.456035811.902353149.169111.503988182.5480112.43075920.440466.8496171
@@ -330,7 +330,7 @@

Create a dataset for concentration-time curve

MyConcTimeMulti <- caffConcTimeMulti(Weight = 20, Dose = 200, N = 20, Tau = 12, Repeat = 10)
-knitr::kable(head(MyConcTimeMulti))
+knitr::kable(head(MyConcTimeMulti), format = 'markdown') @@ -341,32 +341,32 @@

- + - + - + - + - + - +
Subject
1 0.00.0000000.00000
1 0.26.02496711.75536
1 0.49.35635312.28351
1 0.611.13221011.99316
1 0.812.01138111.65194
1 1.012.37524511.31618