if (FALSE) {
# Fake data
set.seed(22223333)
x <- rgamma(100, 10, 1)
fit <- dfuncEstim( x, likelihood="Gamma", x.scl="max" )
maximize.g( fit )  # should be near 10.
fit$x.scl            # same thing
}
Run the code above in your browser using DataLab