x <- matrix(runif(10, 0, 2), nrow = 5)
lowerCoords <- matrix(c(0, 0, 1, 0, 0, 1, 1, 1), nrow = 4, byrow = TRUE)
upperCoords <- matrix(c(1, 1, 2, 1, 1, 2, 2, 2), nrow = 4, byrow = TRUE)
sd <- 0.1
baseIntensities <- c(1:4)
numPoints <- 5
numWindows <- 4
marginalVoidProbIntegrand(x, lowerCoords, upperCoords, sd, baseIntensities, numPoints, numWindows)
Run the code above in your browser using DataLab