## Not run:
# 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)
# ## End(Not run)
Run the code above in your browser using DataLab