# \donttest{
times <- c(1.1, 1.2, 1.3, 2.1, 2.2, 3.1)
modelSwitch <- c(1, 1, 1, 2, 2, 3)
sortedTimes <- popedGetMultipleEndpointModelingTimes(times, modelSwitch, TRUE)
print(sortedTimes)
# now show the output of the data frame representing the model
# switch to endpoint index
popedMultipleEndpointIndexDataFrame()
# now show a more complex example with overlaps etc.
times <- c(1.1, 1.2, 1.3, 0.5, 2.2, 1.1, 0.75,0.75)
modelSwitch <- c(1, 1, 1, 2, 2, 2, 3, 3)
sortedTimes <- popedGetMultipleEndpointModelingTimes(times, modelSwitch, TRUE)
print(sortedTimes)
popedMultipleEndpointIndexDataFrame(TRUE) # Print to show individual matching
# }
Run the code above in your browser using DataLab