# timeList object from the retiolinae dataset
data(retiolitinae)
str(retioRanges)
taxicDivDisc(retioRanges)
fourDateRet <- timeList2fourDate(retioRanges)
# total uncertainty in retio first and last appearances?
sum(
(fourDateRet[,1] - fourDateRet[,2]) +
(fourDateRet[,3]-fourDateRet[,4])
)
#convert back
newTimeList <- fourDate2timeList(fourDateRet)
taxicDivDisc(retioRanges)
Run the code above in your browser using DataLab