# unmap parameters for the Student-t distribution
library(GAS)
Dist = "std"
# vector of parameters such that,
# \eqn{\theta}_{t} is (0, 1.5 ,7), i.e. location = 0, scale = 1.5,
# degrees of freedom = 7
Theta = c(0.1, 1.5, 7)
Theta_tilde = UniUnmapParameters(Theta, Dist)
Theta_tilde
# it works
all(abs(UniMapParameters(Theta_tilde, Dist) - Theta) < 1e-16)
Run the code above in your browser using DataLab