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