data(mass)
data(distance)
opportunity <- mass[, 1]
sij <- extract_opportunities(opportunity = opportunity,
distance = distance,
check_names = FALSE)
Run the code above in your browser using DataLab