# Sorry for the confussion.
# The way I had originally generated the data was
# sort of like this (cut and paste the code below a few times):
foo.curve <- runif(1,0.8,1.2) * exp(runif(1,-0.015,-0.005) * 1:500) +
runif(1,0.25,0.75)
ts.plot(foo.curve, lwd = 2)
# where the min and max values in r
# I need to generate some data. I'm modeling some time series that follow
a
# negative exponential decay (mostly). I have 20 samples that can easily
be fit with cubic splines.
# What I want to do is generate many thousands of similar samples using
the parameters from the splines
# For instance on
