# NOT RUN {
## Create dataset with 2 variables
n = 2
size = 50
df <- as.data.frame(matrix(round(rnorm(size*n),2), ncol = n))
## Create grid dataset
npointsgrid <- 10
ranges <- sapply(df, range)
eg <- list()
for(i in 1: ncol(df)){
eg[[i]] <- seq(ranges[1,i], ranges[2,i], length.out = npointsgrid)
}
x <- expand.grid(eg)
## Joint cumulative values
jointCDF(df = df, grid = x)
# }
Run the code above in your browser using DataLab