# NOT RUN {
yy <- vec2par(c(123, 2.3, TRUE), type="texp")
zz <- vec2par(c(123, 2.3, FALSE), type="texp")
if(is.texp(yy) & is.texp(zz)) {
print(lmomtexp(yy)$lambdas)
print(lmomtexp(zz)$lambdas)
}
# }
Run the code above in your browser using DataLab