如何在整个区域中找到 LGCP 随机场 Lambda 值?
How can I find LGCP random field Lambda values in overall area?
RandomField 包中有一个 rLGCP 模型示例。
if(require(RandomFields)) {
# homogeneous LGCP with exponential covariance function
X <- rLGCP("exp", 3, var=0.2, scale=.1)
# inhomogeneous LGCP with Gaussian covariance function
m <- as.im(function(x, y){5 - 1.5 * (x - 0.5)^2 + 2 * (y - 0.5)^2}, W=owin())
X <- rLGCP("gauss", m, var=0.15, scale =0.5)
plot(attr(X, "Lambda"))
points(X)
}
我认为X的Lambda属性并没有在整体二维区域显示整体值。
如何找到整个区域的整体 Lambda 值?
我不完全确定这是否是您要查找的内容,但图中每个点的 Lambda 值矩阵都存储在由 [= 创建的模型的 Lambda
属性中12=].
您可以这样访问它们:
m <- as.im(function(x, y){5 - 1.5 * (x - 0.5)^2 + 2 * (y - 0.5)^2}, W=owin())
X <- rLGCP("gauss", m, var=0.15, scale = 0.5)
lambda_matrix <- attr(X, "Lambda")$v
现在 lambda_matrix
是一个 128 x 128 矩阵,包含网格上每个点的 Lambda 值。
RandomField 包中有一个 rLGCP 模型示例。
if(require(RandomFields)) {
# homogeneous LGCP with exponential covariance function
X <- rLGCP("exp", 3, var=0.2, scale=.1)
# inhomogeneous LGCP with Gaussian covariance function
m <- as.im(function(x, y){5 - 1.5 * (x - 0.5)^2 + 2 * (y - 0.5)^2}, W=owin())
X <- rLGCP("gauss", m, var=0.15, scale =0.5)
plot(attr(X, "Lambda"))
points(X)
}
我认为X的Lambda属性并没有在整体二维区域显示整体值。
如何找到整个区域的整体 Lambda 值?
我不完全确定这是否是您要查找的内容,但图中每个点的 Lambda 值矩阵都存储在由 [= 创建的模型的 Lambda
属性中12=].
您可以这样访问它们:
m <- as.im(function(x, y){5 - 1.5 * (x - 0.5)^2 + 2 * (y - 0.5)^2}, W=owin())
X <- rLGCP("gauss", m, var=0.15, scale = 0.5)
lambda_matrix <- attr(X, "Lambda")$v
现在 lambda_matrix
是一个 128 x 128 矩阵,包含网格上每个点的 Lambda 值。