if (FALSE) {
set.seed(123)
x <- rnorm(100)
NNS.CDF(x)
## Empirical CDF (degree = 0)
NNS.CDF(x)
## Continuous CDF (degree = 1)
NNS.CDF(x, 1)
## Joint CDF
x <- rnorm(5000) ; y <- rnorm(5000)
A <- cbind(x,y)
NNS.CDF(A, 0)
## Joint CDF with target
NNS.CDF(A, 0, target = c(0,0))
}
Run the code above in your browser using DataLab