## Not run: ------------------------------------
# setwd('D:/bears/alberta')
# ## peak at raw data
# head(readLines('gps2008.txt'))
# gps2008CH <- read.telemetry("gps2008.txt")
# plot( gps2008CH, gridsp = 10000)
# head(gps2008CH)
# secr.fit(gps2008CH, start = log(4000), detectfn = 'HHN',
# details = list(telemetryscale = 1e12))
## ---------------------------------------------
Run the code above in your browser using DataLab