data <- data.frame(
x = c(1, 2, 2, 1, 2, 2),
y = c(1, 2, 2, 2, 1, 1),
time = c(1, 4, 8, 4, 8, 10),
id = c(1, 1, 1, 2, 2, 2)
)
gen <- gen_components(data, 'cubic-in-out', time = time, id = id)
get_frame(gen, 0.3)
get_raw_frames(gen, 0.5, before = 0.5, after = 0.2)
Run the code above in your browser using DataLab