Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/65.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R-spatstat：使用NNSTAT后如何关联2个标记_R_Spatstat - Fatal编程技术网
Fatal编程技术网
  • r/
  • R-spatstat：使用NNSTAT后如何关联2个标记

R-spatstat：使用NNSTAT后如何关联2个标记

r

R-spatstat：使用NNSTAT后如何关联2个标记,r,spatstat,R,Spatstat,我有1个ppp，每个点代表一个农场。上面有两个标记 1） 多类型标记：疾病状态（0=未患病，1=患病）=>DS1 2） 数字标记：患病动物数量=>ND1 我不想被这些标记弄糊涂，所以我将它们分为每个标记2个ppp sep_farm <- unstack.ppp(farm) #Extract 'number of positive animals'from the sep_farm ND2 <- sep_farm[["ND1"]] #Extract 'disease status' f

我有1个ppp，每个点代表一个农场。上面有两个标记

1） 多类型标记：疾病状态（0=未患病，1=患病）=>DS1

2） 数字标记：患病动物数量=>ND1

我不想被这些标记弄糊涂，所以我将它们分为每个标记2个ppp

sep_farm <- unstack.ppp(farm)
#Extract 'number of positive animals'from the sep_farm
ND2 <- sep_farm[["ND1"]]
#Extract 'disease status' from the sep_farm
DS2 <- sep_farm[["DS1"]]

sep\u农场


要测试的假数据：


库（spatstat）
n 4 1 120
#> 5    1  99
#> 6    1 113
#> 7    1 122
#> 8    0   0
#> 9    1 113
#> 10   1 109


假数据图，下面给出了患病动物的数量
位置


绘图（farm，which.marks=“DS1”，cols=c（“红色”、“蓝色”））
文本（场$x，场$y，标签=nd，位置=1，列=ifelse（ds==0，“红色”，“蓝色”））




问题中的现有代码：


sep_农场

n1 <- nnwhich(DS2, k=1, by=marks(DS2))