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)
s <- c(0.1, 0.9)
lambda <- 0.1
baseIntensities <- c(1:4)
numLocalWindows <- 2
localWindows <- c(1, 3)
integrateIntensityLocal_exp(lowerCoords, upperCoords,
s, baseIntensities, lambda,
numLocalWindows, localWindows)
Run the code above in your browser using DataLab