export

 Branch: as_distribution

Author: RaphaelS1

NAMESPACE

@@ -5,6 +5,7 @@ S3method("+",Distribution)
 S3method("-",Distribution)
 S3method("[",ParameterSet)
 S3method("[",VectorDistribution)
+S3method(as.Distribution,matrix)
 S3method(as.ParameterSet,data.table)
 S3method(as.ParameterSet,list)
 S3method(as.data.table,ParameterSet)
@@ -96,6 +97,7 @@ export(VectorDistribution)
 export(Wald)
 export(Weibull)
 export(WeightedDiscrete)
+export(as.Distribution)
 export(as.MixtureDistribution)
 export(as.ParameterSet)
 export(as.ProductDistribution)

R/as.Distribution.R

@@ -12,6 +12,7 @@
 #' the distribution.
 #' @param decorators Passed to [VectorDistribution].
 #' @return A [VectorDistribution]
+#' @export
 #' @examples
 #' pdf <- runif(200)
 #' mat <- matrix(pdf, 20, 10)
@@ -22,6 +23,8 @@ as.Distribution <- function(obj, fun, decorators = NULL) {
   UseMethod("as.Distribution")
 }
 
+#' @rdname as.Distribution
+#' @export
 as.Distribution.matrix <- function(obj, fun, decorators = NULL) {
   if (is.null(colnames(obj))) {
     stop("'obj' must have column names")