Chi Cuadrado

install.packages(“remotes”) # if you don’t already have it remotes::install_github(“brentthorne/posterdown”)

output: html_document

output: posterdown::posterdown_html

if (!requireNamespace(“posterdown”, quietly = TRUE)) { if (!requireNamespace(“remotes”, quietly = TRUE)) { install.packages(“remotes”) } remotes::install_github(“brentthorne/posterdown”) } library(posterdown) library(knitr) library(ggplot2) library(latex2exp) knitr::opts_chunk$set(echo = FALSE)

plot(0, 0, type=“n”, xlab=““, ylab=”“, axes = FALSE, xlim=c(0,1), ylim=c(0,1)) text(0.5, 0.5, TeX(”\(f(x;k)=\\frac{1}{2^{k/2}\\Gamma(k/2)} x^{k/2-1} e^{-x/2}\)“), cex = 1.5)

plot(0, 0, type=“n”, xlab=““, ylab=”“, axes = FALSE, xlim=c(0,1), ylim=c(0,1)) text(0.5, 0.5, TeX(”\(F(x;k) = \\frac{\\gamma(k/2, x/2)}{\\Gamma(k/2)}\)“), cex = 1.5)

tabla_genetica <- data.frame( Fenotipo = c(“Verde (Dominante)”, “Amarillo (Recesivo)”), Observado = c(150, 50), Esperado = c(150, 50) ) kable(tabla_genetica, caption = “Tabla 1. Frecuencias observadas vs esperadas”)

observado <- c(150, 50) esperado <- c(150, 50) categorias <- c(“Verde”, “Amarillo”) chi_valor <- sum((observado - esperado)^2 / esperado)

barplot(rbind(observado, esperado), beside = TRUE, col = c(“darkseagreen”, “#DAA520”), names.arg = categorias, ylim = c(0, max(observado) + 20), main = paste(“Chi-cuadrado =”, round(chi_valor, 2)), ylab = “Frecuencia”) legend(“topright”, legend = c(“Observado”, “Esperado”), fill = c(“darkseagreen”, “#DAA520”))

x <- seq(0, 10, length.out = 500) k <- 4 pdf_vals <- dchisq(x, df = k) cdf_vals <- pchisq(x, df = k)

par(mfrow=c(1,2)) plot(x, pdf_vals, type=“l”, col=“#FF69B4”, lwd=2, main=“PDF Chi-cuadrado”) plot(x, cdf_vals, type=“l”, col=“#8B0A50”, lwd=2, main=“CDF Chi-cuadrado”)