idr (version 1.3)

comp.uri: Compute the value of Psi and Psi' for a given t

Description

An internal function to compute Psi for a given (t, v)

Usage

comp.uri(tv, x)

Arguments

tv

A vector of two numeric values, t and v. Both t and v are in [0,1]

x

A numeric vector of x, sorted by the order of y

Value

A numeric value of Psi(t, v)

References

Q. Li, J. B. Brown, H. Huang and P. J. Bickel. (2011) Measuring reproducibility of high-throughput experiments. Annals of Applied Statistics, Vol. 5, No. 3, 1752-1779.

See Also

get.uri.2d, get.correspondence

Examples

# NOT RUN {
x <- seq(1, 10, by=1)
tv <- c(0.1, 0.5)

# opposite order
y1 <- seq(10, 1, by=-1)
o1 <- order(y1)
x.o1 <- x[o1]

comp.uri(tv, x.o1)

# same order
y2 <- seq(1, 10, by=1)
o2 <- order(y2)
x.o2 <- x[o2]

comp.uri(tv, x.o2)
# }