## Not run:
# if ( class(tcltk::tclRequire("Tktable")) == "tclObj" ) {
# res1 <- fit.cont(data2fit = rgamma(374, 4, 0.08))
# res1
#
# res2 <- fit.cont(data2fit = rbeta(300, shape1 = 1, shape2 = 2))
# res2
#
# res3 <- fit.cont(data2fit = mc2d::rtriang(300, min = 1, mode = 3, max = 10))
# res3
#
# res4 <- fit.cont(data2fit = stats::rnorm(300))
# res4
# }
# ## End(Not run)
Run the code above in your browser using DataLab