Nothing
knitr::opts_chunk$set(echo=FALSE, warning=FALSE, message=FALSE, fig.pos = 'h', fig.align = 'center', fig.height = 3, fig.width = 4)
fit <- params$fit1 bin.left <- NA bin.right <- NA chips <- NA roulette <- FALSE filename <- system.file("shinyAppFiles", "distributionsChild.Rmd", package="SHELF")
fit <- params$fit2
plotConditionalMedianFunction(yCP = params$yCP, xMed = params$xMed, yLimits = params$yLimits, link = params$link)
d1 <- switch(params$d[1], "normal" = "normal", "t" = "Student-t", "skewnormal" = "Skew normal", "gamma" = "gamma", "lognormal" = "log normal", "beta" = "beta", "hist" = "histogram", "logt" = "log Student-t", "best" = as.character(params$fit1$best.fitting[1, 1]), "mirrorgamma" = "mirror gamma", "mirrorlognormal" = "mirror log normal", "mirrorlogt" = "mirror log Student-t") d2 <- switch(params$d[2], "normal" = "normal", "t" = "Student-t", "skewnormal" = "Skew normal", "gamma" = "gamma", "lognormal" = "log normal", "logt" = "log Student-t", "beta" = "beta", "hist" = "histogram", "best" = as.character(params$fit2$best.fitting[1, 1]), "mirrorgamma" = "mirror gamma", "mirrorlognormal" = "mirror log normal", "mirrorlogt" = "mirror log Student-t")
Marginal distribution of $X$, obtained using a r paste(d1)
distribution for $Y$ and a r paste(d2)
distribution for $X|Y$:
library(ggplot2) ggplot(params$df1, aes(x = X, y = ..density..))+ geom_density(fill = "steelblue") + theme_grey(base_size = 12)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.