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