data(exercise_df)
exercise_node <- data.tree::as.Node(exercise_df)
test <- cumsum_across_level(input_node = exercise_node,
attri_name = "exercise_time",
level_num = 3)
print(test, "cumsum_number", "exercise_time", "level")
Run the code above in your browser using DataLab