powered by
loglikedw3(par, x)
x
par
estdweibull3
n <- 20 c <- 1/3 beta <- 2/3 x <- rdweibull3(n, c, beta) par <- estdweibull3(x, "ML") par -loglikedw3(par, x)
Run the code above in your browser using DataLab