shanmdphd

# devtools::install_github("dpastoor/PKPDdatasets")
library(NonCompart)
library(PKPDdatasets)
library(dplyr)

head(PKPDdatasets::sd_iv_rich_pkpd) # One-compartment single IV bolus PKPD

sd_iv_rich_pkpd_dose <- PKPDdatasets::sd_iv_rich_pkpd %>% 
  select(ID, DOSE) %>% 
  distinct() %>% 

shanmdphd

<iframe src="https://docs.google.com/spreadsheets/d/e/2PACX-1vQWTJAyZc4rdq1fwppkJCfqtnQq8WSEgeZbr8UsbENjm_fWiwDDU6VwfAq0bHiu5bUmKYE2l0nDqdkz/pubhtml?gid=609315446&amp;single=true&amp;widget=true&amp;headers=false" width=800 height=1000	>
</iframe>	

shanmdphd

library(dplyr)
library(NonCompart)
tblNCA(Theoph, 
       dose = Theoph %>% 
         mutate(actual_dose = Wt*Dose) %>% 
         select(Subject, actual_dose) %>% 
         unique() %>% 
         .$actual_dose)

shanmdphd

Keybase proof

I hereby claim:

• I am pagk2006 on github.
• I am pipetcpt (https://keybase.io/pipetcpt) on keybase.
• I have a public key ASAuVUAseKg_wqpkEYmwGvXzAKyHVr_QPF3Hy6DioD5xzAo

To claim this, I am signing this object:

shanmdphd

library(tidyverse)
tibble(estimate = c(0.23, 0.52, 0.20, 0.03, 0.45, 0.05),
       rse = c(55.9, 41.4, 45.1, 19.9, 46.6, 25.5)) %>% 
  mutate(lower_ci = estimate - 1.96 * rse/100 * estimate) %>% 
  mutate(upper_ci = estimate + 1.96 * rse/100 * estimate) %>% 
  mutate(ci = sprintf('%0.2f - %0.2f', round(lower_ci, 2), round(upper_ci, 2)))

    # A tibble: 6 x 5
      estimate   rse lower_ci upper_ci ci          
         <dbl> <dbl>    <dbl>    <dbl> <chr>       

shanmdphd

library(tidyverse)
library(ggforce)

# 함수 정의 ----

plot_multiple <- function(page_num) {
  Theoph %>% 
    ggplot(aes(Time, conc)) +
    geom_point() +
    geom_line(alpha = 0.1) +

shanmdphd

# File should have the following columns
# SUBJ : Subject ID, any data type
# TRT: "R" or "T"
# GRP: "RT" or "TR"
# PRD: 1 or 2
# AUClast: numeric data type
# Cmax: numeric data type
# Tmax: numeric data type
# Other columns as you wish

shanmdphd

# http://zeroset.mnim.org/2015/01/07/flatten-pdfs-with-ghostscript/
# https://unix.stackexchange.com/questions/162922/is-there-a-way-to-flatten-a-pdf-image-from-the-command-line

# There should be `flat` sub-directory.

for file in *.pdf; do
	gs -dSAFER -dBATCH -dNOPAUSE -dNOCACHE -sDEVICE=pdfwrite \
	-sColorConversionStrategy=/LeaveColorUnchanged  \
	-dAutoFilterColorImages=true \
	-dAutoFilterGrayImages=true \

shanmdphd

knitr::write_bib(c('caffsim', 'NonCompart', 'ncar'), 'temp.bib')
capture.output(bibtex::read.bib('temp.bib'), file = 'temp.txt')
myBib <- readLines('temp.txt') 
myBib[myBib == ''] <- '\n\n'
paste(gsub('_', '',myBib), collapse = '')

shanmdphd

library(ReporteRs)
options('ReporteRs-fontsize' = 10)

potsub <- function(char) pot(char, textProperties(vertical.align = 'subscript'))
potsuper <- function(char) pot(char, textProperties(vertical.align = 'superscript'))
flexThis <- function(df){
  df %>% 
    FlexTable(header.columns = TRUE) %>% 
    setFlexTableBorders(inner.vertical = mystyle$no, inner.horizontal = mystyle$std,
                        outer.vertical = mystyle$no, outer.horizontal = mystyle$big)