# NOT RUN {
# 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