bivgeom (version 1.0)

S.n: Empirical joint survival function

Description

Empirical joint survival function

Usage

S.n(x, X)

Arguments

x

matrix with two columns of non-negative integer values where the empirical joint survival function is computed

X

matrix with two columns corresponding to the full observed sample

Value

value of the empirical joint survival function \(\hat{S}_X(x)\)

References

Roy, D. (1993) Reliability measures in the discrete bivariate set-up and related characterization results for a bivariate geometric distribution, Journal of Multivariate Analysis 46(2), 362-373.

See Also

estbivgeomRoy

Examples

# NOT RUN {
theta1 <- 0.5
theta2 <- 0.7
theta3 <- 0.9
set.seed(12345)
n <- 1000
d <- rbivgeomRoy(n, theta1, theta2, theta3)
S.n(cbind(1,1),d) # empirical sf
# compare it with the theoretical
SbivgeomRoy(1,1,theta1,theta2,theta3)
# }