sample_data <- data.frame(
latin = sample(letters[1:4], 10, replace = TRUE),
gx = runif(10, 0, 10),
gy = runif(10, 0, 10),
ba = runif(10, 10, 30)
)
neigh_multi_r(
sp = sample_data$latin,
gx = sample_data$gx,
gy = sample_data$gy,
ba = sample_data$ba,
r_values = c(3, 5)
)
Run the code above in your browser using DataLab