R/distribution.R

In KapLDN/MangoTask: Generate random sample from a defined distribution

distribution <- R6::R6Class("distribution"
                            ,public = list(
                              sample = c()
                              , dist = ""
                              , params = c())
                            , active = list(
                              summary = function(){
                                cat("\t\n",
                                    sprintf("Number of samples: %s\n", length(self$sample)),"\t\n",
                                    sprintf("Distribution: %s\n", self$dist),"\t\n",
                                    sprintf("Sample mean: %s\n", mean(self$sample)),"\t\n",
                                    sprintf("Sample Variance: %s\n", var(self$sample)),"\t\n"
                                )
                                hist(self$sample,main = "", xlab = "Sample")
                                return(invisible())
                              }
                            )

)