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:
# 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() %>% |
<iframe src="https://docs.google.com/spreadsheets/d/e/2PACX-1vQWTJAyZc4rdq1fwppkJCfqtnQq8WSEgeZbr8UsbENjm_fWiwDDU6VwfAq0bHiu5bUmKYE2l0nDqdkz/pubhtml?gid=609315446&single=true&widget=true&headers=false" width=800 height=1000 > | |
</iframe> |
library(dplyr) | |
library(NonCompart) | |
tblNCA(Theoph, | |
dose = Theoph %>% | |
mutate(actual_dose = Wt*Dose) %>% | |
select(Subject, actual_dose) %>% | |
unique() %>% | |
.$actual_dose) |
I hereby claim:
To claim this, I am signing this object:
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> |
library(tidyverse) | |
library(ggforce) | |
# 함수 정의 ---- | |
plot_multiple <- function(page_num) { | |
Theoph %>% | |
ggplot(aes(Time, conc)) + | |
geom_point() + | |
geom_line(alpha = 0.1) + |
# 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 |
# 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 \ |
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 = '') |
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) |