# NOT RUN {
# }
# NOT RUN {
setwd('D:/bears/alberta')
## peek 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))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab