setwd("C:/Users/irina/Documents/DND/EOHI/eohi2")
options(scipen = 999)
df <- read.csv("eohi2.csv")
library(psych)
library(dplyr)
library(knitr)
library(irr)
# Select the 4 variables for reliability analysis
reliability_vars <- df[, c("ehiDGEN_5_mean", "ehiDGEN_10_mean", "ehi5_global_mean", "ehi10_global_mean")]
# Check for missing values
print(colSums(is.na(reliability_vars)))
# Remove rows with any missing values for reliability analysis
reliability_data <- reliability_vars[complete.cases(reliability_vars), ]
print(nrow(reliability_data))
# Cronbach's Alpha
alpha_result <- alpha(reliability_data)
print(alpha_result)
# Split-half reliability
split_half <- splitHalf(reliability_data)
print(split_half)
# Alpha if item dropped
alpha_dropped <- alpha(reliability_data, check.keys = TRUE)
print(alpha_dropped$alpha.drop)
# Inter-item correlations
cor_matrix <- cor(reliability_data, use = "complete.obs")
print(round(cor_matrix, 5))
# Descriptive statistics
desc_stats <- describe(reliability_data)
print(desc_stats)
# Create a summary table
summary_table <- data.frame(
Variable = names(reliability_data),
n = nrow(reliability_data),
Mean = round(colMeans(reliability_data, na.rm = TRUE), 5),
SD = round(apply(reliability_data, 2, sd, na.rm = TRUE), 5),
Min = round(apply(reliability_data, 2, min, na.rm = TRUE), 5),
Max = round(apply(reliability_data, 2, max, na.rm = TRUE), 5),
Median = round(apply(reliability_data, 2, median, na.rm = TRUE), 5)
)
print(summary_table)
# Save results
write.csv(summary_table, "reliability_summary_ehi.csv", row.names = FALSE)
# Create HTML output using knitr
library(knitr)
html_output <- paste0(
"EHI Reliability Analysis",
"EHI Reliability Analysis
",
"Cronbach's Alpha
",
kable(alpha_result$total, format = "html"),
"Split-Half Reliability
",
"Maximum split half reliability: ", round(split_half$maxrb, 5), "
",
"Minimum split half reliability: ", round(split_half$minrb, 5), "
",
"Alpha if Item Dropped
",
kable(alpha_dropped$alpha.drop, format = "html"),
"Inter-Item Correlations
",
kable(round(cor_matrix, 5), format = "html"),
"Descriptive Statistics
",
kable(desc_stats, format = "html"),
"Summary Table
",
kable(summary_table, format = "html"),
""
)
writeLines(html_output, "EHI reliability.html")