# generate example series with 3 precession terms and noise
ex <- cycles(noisevar=.0004,dt=5)
# bandpass precession terms using Taner window
res_ex <- taner(ex,flow=0.038,fhigh=0.057)
# generate example series with periods of 405 ka, 100 ka and 20 ka, plus noise
ex2=cycles(freqs=c(1/405,1/100,1/20),noisevar=.1,dt=5)
# lowpass filter using Taner window
res_ex2=taner(ex2,fhigh=.02,roll=10^4)
Run the code above in your browser using DataLab