#' fit normal distributions
#'
#' @param timeSeriesMatrix description TBD
#'
#' @return return normal distribution fits
#'
#' @examples
#' none
#'
#' @export
fitNormalDistributions <- function(timeSeriesMatrix){
listOfParameters<-apply(X = coredata(timeSeriesMatrix)
, MARGIN = 2
, FUN = function(colVector){
fitdistrplus::fitdist(data = colVector
, distr = "norm"
, method = "mle"
)
}
)
return(listOfParameters)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.