Fastgraph es un paquete de R que nos proporciona la funcionalidad para realizar gráficos de funciones de densidad de probabilidad y de distribución acumulativa, permite sombrear el área bajo la curva de densidad de probabilidad y ajusta una línea de regresión lineal simple en un diagrama de dispersión.
El paquete contiene las siguientes funciones:
getMinMax: es llamado por plotDist y ShadeDist para determinar un valor razonable para trazar el gráfico.
plotDist: permite dibujar hasta tres funciones de densidad de probabilidad o distribución acumulativa en el mismo gráfico.
plotLine: sirve para realizar diagramas de dispersión simple ajustando la línea de regresión lineal y estableciendo la ecuación de la línea en el título.
ShadeDist: sirve para dibujar funciones de probabilidad, sombrea el área bajo la curva y enumera la probabilidad en el título.
ShadePhat: es similar a ShadeDist, aunque solo determina proporciones muestrales.
Gráfico de distribución Z
Datos: Nivel de significancia = 0.1 | Nivel de confianza = 0.9
library(fastGraph)
library(magrittr)
shadeDist(xshade = qnorm(0.90), ddist = "dnorm", 0, 1, lower.tail = TRUE, col=c("blue","green"), sub=paste("VC:",qnorm(0.90)%>%round(digits = 6)))
Gráfico de distribución t
Datos: grados de libertad = 14 | Estadístico t = 2.14
library(fastGraph)
shadeDist(xshade = c(-2.14,2.14),ddist = "dt", parm1 = 14, lower.tail = TRUE, col=c("blue","green"))
Gráfico de distribución F
Datos: Estadístico F = 2.3665 | grados de libertad del numerador = 2, gl denominador = 20, Valor crítico = 3.4928, Fcrítico = 2.3665
library(fastGraph)
library(magrittr)
shadeDist(xshade = 2.3665, ddist = "df", parm1 = 2, parm2 = 20, lower.tail = FALSE, col=c("blue","green"), sub=paste("ValorC:",qf(0.95,2,20,lower.tail = TRUE)%>%round(digits = 4), " FC:",2.3665))
Gráfico de distribución Chi2
Datos: Nivel de significancia = 0.05, grados de libertad = 2, Estadístico JB = 32.278, Valor crítico = 5.9915
options(scipen = 99999)
library(fastGraph)
shadeDist(xshade = 32.278,ddist = "dchisq",parm1 = 2,lower.tail = FALSE,col=c("blue","green"),sub=paste("VC:",qchisq(0.95,2)%>%round(digits = 4), " JB",32.278))