q <- stats::qweibull(p = c(0.025, 0.5, 0.975), shape = 2, scale = 3)
get.weibull.par(q = q)
q <- stats::qweibull(p = c(0.025, 0.5, 0.975), shape = 0.01, scale = 1)
get.weibull.par(q = q)
p <- c(0.025, 0.50, 0.975)
q <- c(9.68, 29.2, 50.98)
fit.results <- rriskFitdist.perc(p, q, show.output = FALSE)
plotDiagnostics.perc(fit.results)
p <- c(0.25, 0.50, 0.75)
q <- c(9.68, 29.2, 50.98)
fit.results <- rriskFitdist.perc(p, q, show.output = FALSE)
plotDiagnostics.perc(fit.results)
plotDiagnostics.perc(fit.results, tolPlot = 2)
## Not run:
# if( class(tcltk::tclRequire("Tktable")) == "tclObj" ) {
# res.fitcont <- fit.cont(data2fit = rnorm(100))
# res.fitcont
# }
# if( class(tcltk::tclRequire("Tktable")) == "tclObj" ) {
# res.fitperc <- fit.perc()
# res.fitperc
# }
# ## End(Not run)
Run the code above in your browser using DataLab