if (FALSE) {
data(smocc) # assumes smocc is loaded with columns id and age
result <- dropplot(data = smocc, id_col = "id", time_col = "age", bins = 60, percentile = 90)
print(result$plot)
head(result$data)
}
Run the code above in your browser using DataLab