library(rivnet)
data(wigger)
wigger <- paths_river(wigger)
sites <- sampling_strategy_eDNA(wigger, 20)
plot(wigger)
points_colorscale(wigger$AG$X[sites], wigger$AG$Y[sites], 1:20)
title("Rank of selected sites")
Run the code above in your browser using DataLab