URO_niche_overlap

raw<-read.table("G:\\My Drive\\document for each subject\\senior_project\\67\\URO_overlaps.csv", header=TRUE, sep = ",")
raw
   code soil.moisture.... surface.texture Distance.from.water.source..m.
1    A1              3.74               1                          42.60
2    A2              3.93               1                          39.00
3    B1              2.03               1                          21.00
4    B2              2.83               1                          80.00
5    B3              1.56               1                          12.46
6    B4              2.03               3                          21.50
7    B5             14.35               2                           6.09
8    C1              3.08               2                          35.62
9    C2              1.28               2                          37.62
10   C3              3.37               1                          17.50
11   C4              2.84               1                          11.72
12   C5              1.70               1                          30.00
13   C6              6.48               1                          74.00
14   D2              6.15               1                          68.00
15   D3              5.09               2                          12.20
16   D4              2.15               1                         107.00
17   D5              2.52               1                          43.00
18   D6              1.36               1                          26.00
19   D7             20.67               1                           1.10
20   E1              0.09               2                          15.90
21   E3              1.44               1                          16.00
22   E4              1.67               1                          84.00
23   E5              5.82               1                          38.00
24   E6              2.17               3                          17.00
25   E7                NA               2                          47.01
26   G8                NA               1                          59.43
27   H3                NA               1                          37.87
   Height.above.water..m. MP HR SM
1                    5.16  4  9  0
2                    5.02  0  0  0
3                    1.28 20  0  0
4                    7.14  2  0  0
5                    1.26  1  0  0
6                    3.93  0  0  2
7                    0.42  0  0  0
8                    1.15  2  0  0
9                    2.17  0  2  0
10                   2.49  1  0  0
11                   2.83  0  0  0
12                   0.82  2  0  0
13                   0.32  0  0  1
14                   4.72  2  0  0
15                   1.43  2  1  1
16                   0.00  1  0  0
17                   1.72  0  2  0
18                   1.82  1 21  0
19                   0.55  3  0  0
20                   1.19  0  0  0
21                   3.00  3  0  1
22                   1.21  5  0  0
23                   2.00  0  0  2
24                   4.12  0  0  1
25                   0.00  1  0  0
26                   1.00  7  0  0
27                   2.00  1  0  0
MP<-raw$MP
HR<-raw$HR
SM<-raw$SM
library(spaa)
Warning: package 'spaa' was built under R version 4.4.2
niche.overlap.pair(MP, HR, method = "levins")
[1] 0.1830926
niche.overlap.pair(MP, SM, method = "levins")
[1] 0.0678839
niche.overlap.pair(SM, HR, method = "levins")
[1] 0.01904762