从栅格文件中的空间图案中查找内核函数

Question

我想使用栅格图（如下所示）创建内核密度分布。目的是推断该空间模式f(x,y)的核密度函数。

然后，我想生成一个值网格（具有与光栅文件相同的大小），使得sum(grid) = 50000和grid[i,j] = f[x,y]*sum(grid)。

您对此有任何建议吗？如果可以在R中做到这一点？