Código de Condado (COUNTY_CODE) (Inferencial)
<p><strong>Descripción:</strong> Identifica numéricamente el condado al que pertenece cada arrendamiento de petróleo y gas en Kansas. Aunque los valores son numéricos, funcionan como etiquetas categóricas sin orden cardinal.</p>
<p><strong>Procedimiento:</strong> La variable presenta 92 valores únicos, por lo que se aplicó la <strong>Regla de Sturges</strong> (k = 1 + 3,322 · log₁₀(47 757) ≈ 17) para determinar el número de intervalos. Se construyeron <strong>16 intervalos</strong> de amplitud 13 sobre el rango [1, 207], generando una tabla de frecuencias agrupadas con frecuencia absoluta (nᵢ) y porcentual (fᵢ %).</p>
# ── COUNTY_CODE (Inferencial) ───────────────────────────── library(dplyr); library(knitr); library(kableExtra)
n <- nrow(data) k <- ceiling(1 + 3.322 * log10(n)) # k = 17 → 16 intervalos brk <- seq(1, 209, by = 13)
grupos <- cut(data$COUNTY_CODE, breaks = brk, right = FALSE, labels = paste0(brk[-17], “-”, brk[-1] - 1))
freq_abs <- table(grupos) freq_rel <- round(prop.table(freq_abs) * 100, 2)
tabla <- data.frame( “Intervalo” = names(freq_abs), “Frec. Absoluta” = as.integer(freq_abs), “Frec. Relativa %” = as.numeric(freq_rel) )
kable(tabla, align = c(“l”,“r”,“r”), caption = “Tabla de frecuencias – Código de Condado (COUNTY_CODE)”) |> kable_styling(bootstrap_options = c(“striped”,“hover”,“condensed”), full_width = FALSE)
- 92 valores únicos → agrupados en 16 intervalos mediante la Regla de
Sturges.
Intervalo Frec. Absoluta (nᵢ) Frec. Relativa (%) 1 – 13 5 168 10,82 14 – 26 2 575 5,39 27 – 39 2 281 4,78 40 – 52 2 575 5,39 53 – 65 3 536 7,40 66 – 78 2 805 5,87 79 – 91 2 068 4,33 92 – 104 3 890 8,15 105 – 117 1 522 3,19 118 – 130 3 696 7,74 131 – 143 3 012 6,31 144 – 156 2 256 4,72 157 – 169 3 776 7,91 170 – 182 2 066 4,33 183 – 195 4 364 9,14 196 – 208 2 167 4,54 Total 47 757 100,00