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