[R-es] aiken

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]]