# NOT RUN {
library(EmiStatR)
data(P1)
P1_delayed <- Delay(P1 = P1, x = 500)
head(P1_delayed)
dev.new()
par(mfrow = c(2, 1))
plot(P1[,1], P1[,2], typ = "l", col = "blue")
plot(P1_delayed[,1], P1_delayed[,2], typ= "l", col = "red")
# }
Run the code above in your browser using DataLab