angle: compute angle Computes the angle between two time-volume...

In Xeva: Analysis of patient-derived xenograft (PDX) data

Description

compute angle Computes the angle between two time-volume curves.

Usage

angle(contr.time = NULL, contr.volume = NULL, treat.time = NULL,
  treat.volume = NULL, degree = TRUE)

Arguments

contr.time	Time vector for control.
contr.volume	Volume vector for control.
treat.time	Time vector for treatment.
treat.volume	Volume vector for treatment.
degree	Default TRUE will give angle in degrees and FALSE will return in radians.

Value

Returns batch response object.

Examples

contr.time <- treat.time  <- c(0, 3, 7, 11, 18, 22, 26, 30, 32, 35)
contr.volume<- contr.time * tan(60*pi/180)
treat.volume<- treat.time * tan(15*pi/180)
ang <- angle(contr.time, contr.volume, treat.time, treat.volume)
print(ang)
par(pty="s")
xylimit <- range(c(contr.time, contr.volume, treat.time, treat.volume))
plot(contr.time, contr.volume, type = "b", xlim = xylimit, ylim = xylimit)
lines(treat.time, treat.volume, type = "b")
abline(lm(contr.volume~contr.time))
abline(lm(treat.volume~treat.time))

Xeva documentation built on Nov. 8, 2020, 5:56 p.m.