require(dplyr)
# Using the forceR::df.all dataset that was
# simulated with forceR::simulate_bites()
# reduce sampling frequency to 200 Hz
df.all.200 <- reduce_frq(df = df.all,
Hz = 200,
measurement.col = "measurement")
plot(df.all.200 %>%
filter(measurement == "m_02") %>%
select(t, y),
type = "l", col = "black")
lines(df.all.200 %>%
filter(measurement == "m_01") %>%
select(t, y),
type = "l", col = "blue")
Run the code above in your browser using DataLab