complete_uids <- get_complete_uids(
list(income, pubertal, anxiety, depress),
uid = "unique_id"
)
income <- income[income$"unique_id" %in% complete_uids, ]
pubertal <- pubertal[pubertal$"unique_id" %in% complete_uids, ]
anxiety <- anxiety[anxiety$"unique_id" %in% complete_uids, ]
depress <- depress[depress$"unique_id" %in% complete_uids, ]
input_dl <- data_list(
list(income, "income", "demographics", "ordinal"),
list(pubertal, "pubertal", "demographics", "continuous"),
uid = "unique_id"
)
target_dl <- data_list(
list(anxiety, "anxiety", "behaviour", "ordinal"),
list(depress, "depressed", "behaviour", "ordinal"),
uid = "unique_id"
)
Run the code above in your browser using DataLab