# NOT RUN {
data <- matrix(nrow = 10, ncol = 10, data = runif(10 * 10))
pfocal_fast_gaussian_radius(data, vertical_radius = 2)
pfocal_fast_gaussian_confidence(data)
pfocal_fast_binomial(data, vertical_radius = 2)
pfocal_fast_abs_rectangle(data, height = 2)
pfocal_fast_separated(data,
kernel_list = list(binomial_kernel(vertical_radius = 2,
horizontal_radius = 2),
distance_kernel(vertical_radius = 2,
horizontal_radius = 2)))
# }
Run the code above in your browser using DataLab