data(Gulk, fakefish)
# Mouth must be specified
Gulk$mouth$mouth.seg <- 1
Gulk$mouth$mouth.vert <- 1
logi1 <- (fakefish$flight.date==as.Date("2015-11-25"))
riverdirectionmat(seg=fakefish$seg, vert=fakefish$vert, rivers=Gulk, logical=logi1)
Run the code above in your browser using DataLab