Nothing
#' confidence interval for a point (using log transformation and geometric mean)
#'
#' @keywords internal
iconfianza.logx <- function(datos, nivel = 0.95, ic = T, colas = 2, use.t = F) {
if (all(is.na(datos))) {
iconfres <- rep(NA, 3)
} else if (all(datos != 0, na.rm = T)) {
lx <- log(datos)
med <- exp(iconfianza.x(lx, nivel, ic, colas, use.t))
iconfres <- med
} else {
datos.no.cero <- datos + 1
lx <- log(datos.no.cero)
med <- exp(iconfianza.x(lx, nivel, ic, colas, use.t)) - 1
iconfres <- med
}
iconfres
}
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.