Skip to content

Instantly share code, notes, and snippets.

View shanmdphd's full-sized avatar
🎤
share for life

Sungpil Han shanmdphd

🎤
share for life
View GitHub Profile
@shanmdphd
shanmdphd / MRE-dose-tblNCA.R
Last active February 17, 2023 16:17
Minimal reproducible example: proper input of the `dose` argument in tblNCA function in NonCompart R package
library(dplyr)
library(NonCompart)
tblNCA(Theoph,
dose = Theoph %>%
mutate(actual_dose = Wt*Dose) %>%
select(Subject, actual_dose) %>%
unique() %>%
.$actual_dose)
@shanmdphd
shanmdphd / gist:31d19e66eed74cc7f7533498831af5de
Created August 8, 2024 03:16
청람바이오아카데미 연간교육
<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
shanmdphd / dose-argument-NonCompart.R
Last active September 18, 2024 19:56
How to prepare a vector for the "dose" argument in NonCompart R package
# 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() %>%