R help es - Jan 2026 - aiken

estimados
por favor apreciaria como calcular aiken en R, no lo logro

saludos
-- 
Dr. Jose A. Betancourt Bethencourt
Universidad de Ciencias Medicas Carlos j. Finlay

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20260125/966f1ecc/attachment-0001.html>

------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: df.xlsx
Type: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
Size: 10440 bytes
Desc: no disponible
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20260125/966f1ecc/attachment-0001.xlsx>

rm(list = ls())

library(readxl)
df <- read_excel("D:/Betan/Escritorio/encuestas/df.xlsx")



# 2. Función principal
calcular_v <- function(datos, escala_min = 1, escala_max = 7) {
  n <- nrow(datos)
  resultados <- apply(datos, 2, function(x) {
    round(sum(x - escala_min) / (n * (escala_max - escala_min)), 3)
  })
  return(resultados)
}

# 3. Calcular
v_aiken <- calcular_v(df)
cat("=== RESULTADOS V E AIKEN ===\n")
for (i in 1:length(v_aiken)) {
  cat(sprintf("%s: %.3f %s\n",
              names(v_aiken)[i],
              v_aiken[i],
              ifelse(v_aiken[i] >= 0.70, "?", "?")))
}


cat("V promedio:", round(mean(v_aiken), 3), "\n")

 esta bien?

El dom, 25 ene 2026 a las 18:42, Jose Betancourt Bethencourt (<
betanster en gmail.com>) escribió:
> estimados
> por favor apreciaria como calcular aiken en R, no lo logro
>
> saludos
> --
> Dr. Jose A. Betancourt Bethencourt
> Universidad de Ciencias Medicas Carlos j. Finlay
>

-- 
Dr. Jose A. Betancourt Bethencourt
Universidad de Ciencias Medicas Carlos j. Finlay

	[[alternative HTML version deleted]]