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 (<
[email protected]>) 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]]
_______________________________________________
R-help-es mailing list
[email protected]
https://stat.ethz.ch/mailman/listinfo/r-help-es
