tgrid <- seq(0, 10, length=2001)
## make it irregularly spaced
tgrid <- sort(sample(tgrid, 1000))
set.seed(123)
dat <- rMovRes(tgrid, 1, 1, 1, "m")
## Not run:
# fit <- fitMovRes(dat, start=c(2, 2, 2))
# fit
# ## End(Not run)
Run the code above in your browser using DataLab