# NOT RUN {
data(resultNest_6p_SSM6p)
# Get a set of parameters without transition
x1 <- resultNest_6p_SSM6p$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