r1 <- get_sample_recording()rv1 <- get_raw_view(r1,"Central","","Sitar")pv1 <- get_processed_view(rv1)fv1 <- apply_filter_sgolay(pv1, data_points = c("LElbow","RElbow"), n =41, p =3)sub_fv1 <- subset(fv1, Time >=0& Time <=100, by =10)plot_history_xy(sub_fv1)