## Truncate the first two data points of both phases and compare the two
## data sets
study <- c(
"Original" = byHeart2011[1],
"Selected" = truncate_phase(
byHeart2011[1], truncate = list(A = c(2, 0), B = c(2, 0))
)
)
plot(study)
Run the code above in your browser using DataLab