# NOT RUN {
# }
# NOT RUN {
library(vpc)
exampleobs <- as.data.table(vpc::simple_data$obs)[MDV == 0]
examplesim <- as.data.table(vpc::simple_data$sim)[MDV == 0]
check_order(exampleobs[, .(ID, TIME)], examplesim[, .(ID, TIME)])
# }
Run the code above in your browser using DataLab