#' Int. Confianza de 2 y 1 cola, por encima y por debajo. De la media y el punto.
#'
#' @keywords internal
iconfianza.completo <- function(i.datos, tipo = 1, i.nivel = 0.95, use.t = F) {
datos <- as.numeric(i.datos)
datos[datos == -Inf] <- NA
datos[datos == Inf] <- NA
n <- sum(!is.na(datos))
iconfres <- list(media = NA)
if (n != 0) {
med <- mean(datos, na.rm = T)
if (tipo == 1) std <- sqrt(var(datos, na.rm = T) / n) else std <- sqrt(var(datos, na.rm = T))
iconfres$media <- med
# pnor.2<-qnorm((1-i.nivel)/2,lower.tail=F)
# pnor.1<-qnorm((1-i.nivel),lower.tail=F)
if (use.t) pnor.2 <- qt(1 - (1 - i.nivel) / 2, n - 1) else pnor.2 <- qnorm(1 - (1 - i.nivel) / 2)
if (use.t) pnor.1 <- qt(1 - (1 - i.nivel), n - 1) else pnor.1 <- qnorm(1 - (1 - i.nivel))
iconfres$dos.colas <- c(med - pnor.2 * std, med + pnor.2 * std)
iconfres$mayor <- c(med - pnor.1 * std, Inf)
iconfres$menor <- c(-Inf, med + pnor.1 * std)
}
iconfres
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.