Cytokine: cytokine Response

In loseriser/Statcomp21019: Two functions for PK/PD models

Description

A cytokine response function for the PD model

Usage

Cytokine(
  t,
  d,
  t0 = c(1, 5, 9, 13, 17, 21, 25),
  EMAX = 359000,
  EC50 = 10000,
  H = 0.92 * 0.9,
  IMAX = 0.995,
  IC = 18200,
  KDEG = 3.6,
  K = 2.83
)

Arguments

t	the time
d	the dose of drug
t0	Administration time
EMAX	Maximum cytokine release rate
EC50	Drug exposure for half-maximum release
H	Hill coefficient for cytokine release
IMAX	Maximum inhibition of cytokine release
IC	Cytokine exposure for half-maximum inhibition
KDEG	Degradation rate for cytokine
K	Priming factor for cytokine release

Value

A list of the cytokine response , its derivatives and its AUC.

Examples

## Not run: 
t<-seq(from=0,to=35,by=0.02)
plot(t,Cytokine(t=t,d=rep(25,7))$EE,type="l",lty=2,ylab="E(t)")
abline(h=max(Cytokine(t=t,d=rep(25,7))$EE),lty=2)
lines(t,Cytokine(t=t,d=c(1,5,10,rep(25,4)))$EE,type="l")
abline(h=max(Cytokine(t=t,d=c(1,5,10,rep(25,4)))$EE),lty=1)

## End(Not run)

loseriser/Statcomp21019 documentation built on Dec. 23, 2021, 11:21 p.m.