# NOT RUN {
# Simulate bubble processes
dta <- data.frame(psy1 = sim_psy1(n = 100), psy2 = sim_psy2(n = 100))
rfd <- radf(dta)
# For lag = 1 and minimum window = 20
rfd <- radf(dta, minw = 20, lag = 1)
# }
Run the code above in your browser using DataLab