Theta1 <- c(-2,1,3,0) # Parameterization 1
Theta2 <- hyperbChangePars(1, 2, Theta1) # Convert to parameterization 2
Theta2 # Parameterization 2
hyperbChangePars(2, 1, as.numeric(Theta2)) # Convert back to parameterization 1
Run the code above in your browser using DataLab