<!DOCTYPE html> Código de Condado (COUNTY_CODE) – Grupo 6

COUNTRY (INFERENCIAL)

<span>Grupo 6</span>
<span>2025-12-22</span>
<span>FIGEMPA – UCE</span>
Código de Condado (COUNTY_CODE) (Inferencial)
<span class="tag">Tipo: Cualitativa</span>
<span class="tag">Subtipo: Nominal politómica</span>
<span class="tag">Dominio: Códigos numéricos de condado</span>
<span class="tag">Rango: 1 – 207</span>
<span class="tag">Unidad: Código</span>
<span class="tag">Escala: Nominal</span>
<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)