caribou <- sp::SpatialPoints(coords = cbind(x = stats::runif(1e1, -50, 50),
y = stats::runif(1e1, -50, 50)))
caribouFrom <- sp::SpatialPoints(coords = cbind(x = stats::runif(1e1, -50, 50),
y = stats::runif(1e1, -50, 50)))
caribouLines <- sp2sl(caribou, caribouFrom)
Plot(caribouLines, length = 0.1)
Run the code above in your browser using DataLab