Takes a plan and renumbers it to be from 1:ndists

redist.sink.plan(plan)

Arguments

plan

vector of assignments, required.

Value

A vector with an ID that corresponds from 1:ndists

Examples

data(fl25_enum)
plan <- fl25_enum$plans[, 5118]
# Subset based on something:
plan <- plan[plan != 2]
plan <- redist.sink.plan(plan)
# Now plan can be used with redist.flip()
plan
#>  [1] 1 2 1 2 2 1 2 2 2 2 2 2