if (FALSE) { # requireNamespace("NBDCtoolsData", quietly = TRUE)
data <- tibble::tribble(
~session_id, ~study, ~type,
"ses-00S", "core", "screener",
"ses-00M", "core", "mid-year",
"ses-00A", "core", "even",
"ses-01M", "core", "mid-year",
"ses-01A", "core", "odd",
"ses-02M", "core", "mid-year",
"ses-02A", "core", "even",
"ses-03M", "core", "mid-year",
"ses-03A", "core", "odd",
"ses-04M", "core", "mid-year",
"ses-04A", "core", "even",
"ses-05M", "core", "mid-year",
"ses-05A", "core", "odd",
"ses-06M", "core", "mid-year",
"ses-06A", "core", "even",
"ses-C01", "substudy", "covid",
"ses-C02", "substudy", "covid",
"ses-C03", "substudy", "covid",
"ses-C04", "substudy", "covid",
"ses-C05", "substudy", "covid",
"ses-C06", "substudy", "covid",
"ses-C07", "substudy", "covid",
"ses-S01", "substudy", "sdev",
"ses-S02", "substudy", "sdev",
"ses-S03", "substudy", "sdev",
"ses-S04", "substudy", "sdev",
"ses-S05", "substudy", "sdev"
)
# ABCD core study events
filter_events_abcd(data, c("core"))
# COVID substudy events
filter_events_abcd(data, c("covid"))
# imaging events
filter_events_abcd(data, c("annual", "even"))
# mid-years before year 5
filter_events_abcd(data, c("mid_year", "<5"))
# COVID or Social Development substudy events
filter_events_abcd(data, c("covid", "sdev"), connect = "or")
}
Run the code above in your browser using DataLab