# NOT RUN {
## 1. EXAMPLE
## Dataset with 2 variables
X <- data.frame(rnorm(100), rnorm(100))
## Grid dataset
gridX <- sapply(1:ncol(X), function(i) seq(min(X[,i]), max(X[,i]), length=10))
gridPoints <- expand.grid(gridX) ## expand gridX
ncol(gridPoints)
nrow(gridPoints)
## Joint cumulative values
jointCDF(data = X, grid = gridPoints)
## 2. EXAMPLE
## Dataset with 3 variables
X <- data.frame(rnorm(100), rexp(100), rchisq(100, df=2))
## Grid dataset
gridX <- sapply(1:ncol(X), function(i) seq(min(X[,i]), max(X[,i]), length=10))
gridPoints <- expand.grid(gridX) ## expand gridX
ncol(gridPoints)
nrow(gridPoints)
## Joint cumulative values
jointCDF(data = X, grid = gridPoints)
# }
Run the code above in your browser using DataLab