data(Gulk,fakefish)
head(fakefish)
xy_from_segvert <- segvert2xy(seg=fakefish$seg, vert=fakefish$vert,
rivers=Gulk)
head(xy_from_segvert)
plot(x=Gulk, xlim=c(862000,882000), ylim=c(6978000,6993000))
points(x=fakefish$x, y=fakefish$y, pch=16, col=2)
points(x=xy_from_segvert$snap_x, y=xy_from_segvert$snap_y, pch=15, col=4)
Run the code above in your browser using DataLab