data(resultNest_6p)
# Get a set of parameters without transition
x1 <- resultNest_6p$par
# Generate a set of parameters with transition
x2 <- switch.transition(x1)
# Generate a set of parameters without transition
x3 <- switch.transition(x3)
Run the code above in your browser using DataLab