morts<-morts(data=events,type="mort",ID="ID",station="Station.Name",
method="any")
head(morts)
# If station change not identified yet:
morts_bw<-backwards(data=events,morts=morts,ID="ID",
station="Station.Name",res.start="ResidenceStart")
head(morts_bw)
# Identify station change first:
station.change<-stationchange(data=events,type="mort",
ID="ID",station="Station.Name")
morts_bw<-backwards(data=events,morts=morts,ID="ID",
station="Station.Name",res.start="ResidenceStart",
stnchange=station.change)
head(morts_bw)
Run the code above in your browser using DataLab