# \donttest{
dta <- data.frame(psy1 = sim_psy1(n = 100), psy2 = sim_psy2(n = 100))
rfd <- radf(dta)
# Get the test statistic
tidy(rfd)
# Get the test statisticsequences
augment(rfd)
# Get the panel test statistic
tidy(rfd, panel = TRUE)
# }
Run the code above in your browser using DataLab