# generate OUSS time series
times = seq(0,20,0.25);
signal = generate_ouss(times, mu=0, sigma=1, lambda=1, epsilon=0.5);
# calculate periodogram and fit OUSS model
report = evaluate.pm(times=times, signal=signal, startRadius=2);
# plot periodogram
plot(report$frequencies, report$periodogram,
type="l", ylab="power", xlab="frequency", main="periodogram & fitted OUSS power spectrum");
# plot expected OUSS periodogram
lines(report$frequencies,
ps_ouss(freq=report$frequencies,
power_o=report$power_o,
lambda=report$lambda,
power_e=report$power_e,
time_step=report$time_step,
series_size=length(times)),
col="red");
Run the code above in your browser using DataLab