data(sim_RRi)
head(sim_RRi)
# Plot tha data
library(ggplot2)
ggplot(sim_RRi, aes(time, RRi_simulated)) +
geom_line(linewidth = 1/4, col = "purple") +
labs(x = "Time (s)", y = "RRi (ms)",
title = "Simulated RRi Signal with Ectopic Beats") +
theme_minimal()
Run the code above in your browser using DataLab