set.seed(1234)
x <- rtriangle(100, 0, 1, 0.5)
mle1 <- triangle_mle(x)
summary(mle1)
print(mle1)
coef(mle1)
logLik(mle1)
AIC(mle1)
BIC(mle1)
vcov(mle1)
if (FALSE) {
prof <- profile(mle1)
stats4::plot(prof)
confint(mle1, 1:3, level = 0.95)
}
Run the code above in your browser using DataLab