224 lines
16 KiB
R
224 lines
16 KiB
R
options(scipen = 999)
|
|
setwd("C:/Users/irina/Documents/DND/EOHI/eohi2")
|
|
|
|
# Load data
|
|
data <- read.csv("eohi2.csv")
|
|
|
|
# Set 1: NPast_5_mean (15 variables)
|
|
data$NPast_5_mean <- rowMeans(data[, c(
|
|
"NPast_5_pref_read", "NPast_5_pref_music", "NPast_5_pref_TV", "NPast_5_pref_nap", "NPast_5_pref_travel",
|
|
"NPast_5_pers_extravert", "NPast_5_pers_critical", "NPast_5_pers_dependable", "NPast_5_pers_anxious", "NPast_5_pers_complex",
|
|
"NPast_5_val_obey", "NPast_5_val_trad", "NPast_5_val_opinion", "NPast_5_val_performance", "NPast_5_val_justice"
|
|
)], na.rm = TRUE)
|
|
|
|
# Set 2: NPast_10_mean (15 variables)
|
|
data$NPast_10_mean <- rowMeans(data[, c(
|
|
"NPast_10_pref_read", "NPast_10_pref_music", "NPast_10_pref_TV", "NPast_10_pref_nap", "NPast_10_pref_travel",
|
|
"NPast_10_pers_extravert", "NPast_10_pers_critical", "NPast_10_pers_dependable", "NPast_10_pers_anxious", "NPast_10_pers_complex",
|
|
"NPast_10_val_obey", "NPast_10_val_trad", "NPast_10_val_opinion", "NPast_10_val_performance", "NPast_10_val_justice"
|
|
)], na.rm = TRUE)
|
|
|
|
# Set 3: NFut_5_mean (15 variables)
|
|
data$NFut_5_mean <- rowMeans(data[, c(
|
|
"NFut_5_pref_read", "NFut_5_pref_music", "NFut_5_pref_TV", "NFut_5_pref_nap", "NFut_5_pref_travel",
|
|
"NFut_5_pers_extravert", "NFut_5_pers_critical", "NFut_5_pers_dependable", "NFut_5_pers_anxious", "NFut_5_pers_complex",
|
|
"NFut_5_val_obey", "NFut_5_val_trad", "NFut_5_val_opinion", "NFut_5_val_performance", "NFut_5_val_justice"
|
|
)], na.rm = TRUE)
|
|
|
|
# Set 4: NFut_10_mean (15 variables)
|
|
data$NFut_10_mean <- rowMeans(data[, c(
|
|
"NFut_10_pref_read", "NFut_10_pref_music", "NFut_10_pref_TV", "NFut_10_pref_nap", "NFut_10_pref_travel",
|
|
"NFut_10_pers_extravert", "NFut_10_pers_critical", "NFut_10_pers_dependable", "NFut_10_pers_anxious", "NFut_10_pers_complex",
|
|
"NFut_10_val_obey", "NFut_10_val_trad", "NFut_10_val_opinion", "NFut_10_val_performance", "NFut_10_val_justice"
|
|
)], na.rm = TRUE)
|
|
|
|
# Set 5: X5.10past_mean (15 variables)
|
|
data$X5.10past_mean <- rowMeans(data[, c(
|
|
"X5.10past_pref_read", "X5.10past_pref_music", "X5.10past_pref_TV", "X5.10past_pref_nap", "X5.10past_pref_travel",
|
|
"X5.10past_pers_extravert", "X5.10past_pers_critical", "X5.10past_pers_dependable", "X5.10past_pers_anxious", "X5.10past_pers_complex",
|
|
"X5.10past_val_obey", "X5.10past_val_trad", "X5.10past_val_opinion", "X5.10past_val_performance", "X5.10past_val_justice"
|
|
)], na.rm = TRUE)
|
|
|
|
# Set 6: X5.10fut_mean (15 variables)
|
|
data$X5.10fut_mean <- rowMeans(data[, c(
|
|
"X5.10fut_pref_read", "X5.10fut_pref_music", "X5.10fut_pref_TV", "X5.10fut_pref_nap", "X5.10fut_pref_travel",
|
|
"X5.10fut_pers_extravert", "X5.10fut_pers_critical", "X5.10fut_pers_dependable", "X5.10fut_pers_anxious", "X5.10fut_pers_complex",
|
|
"X5.10fut_val_obey", "X5.10fut_val_trad", "X5.10fut_val_opinion", "X5.10fut_val_performance", "X5.10fut_val_justice"
|
|
)], na.rm = TRUE)
|
|
|
|
# Set 7: NPast_global_mean (30 variables - NPast_5 + NPast_10)
|
|
data$NPast_global_mean <- rowMeans(data[, c(
|
|
"NPast_5_pref_read", "NPast_5_pref_music", "NPast_5_pref_TV", "NPast_5_pref_nap", "NPast_5_pref_travel",
|
|
"NPast_5_pers_extravert", "NPast_5_pers_critical", "NPast_5_pers_dependable", "NPast_5_pers_anxious", "NPast_5_pers_complex",
|
|
"NPast_5_val_obey", "NPast_5_val_trad", "NPast_5_val_opinion", "NPast_5_val_performance", "NPast_5_val_justice",
|
|
"NPast_10_pref_read", "NPast_10_pref_music", "NPast_10_pref_TV", "NPast_10_pref_nap", "NPast_10_pref_travel",
|
|
"NPast_10_pers_extravert", "NPast_10_pers_critical", "NPast_10_pers_dependable", "NPast_10_pers_anxious", "NPast_10_pers_complex",
|
|
"NPast_10_val_obey", "NPast_10_val_trad", "NPast_10_val_opinion", "NPast_10_val_performance", "NPast_10_val_justice"
|
|
)], na.rm = TRUE)
|
|
|
|
# Set 8: NFut_global_mean (30 variables - NFut_5 + NFut_10)
|
|
data$NFut_global_mean <- rowMeans(data[, c(
|
|
"NFut_5_pref_read", "NFut_5_pref_music", "NFut_5_pref_TV", "NFut_5_pref_nap", "NFut_5_pref_travel",
|
|
"NFut_5_pers_extravert", "NFut_5_pers_critical", "NFut_5_pers_dependable", "NFut_5_pers_anxious", "NFut_5_pers_complex",
|
|
"NFut_5_val_obey", "NFut_5_val_trad", "NFut_5_val_opinion", "NFut_5_val_performance", "NFut_5_val_justice",
|
|
"NFut_10_pref_read", "NFut_10_pref_music", "NFut_10_pref_TV", "NFut_10_pref_nap", "NFut_10_pref_travel",
|
|
"NFut_10_pers_extravert", "NFut_10_pers_critical", "NFut_10_pers_dependable", "NFut_10_pers_anxious", "NFut_10_pers_complex",
|
|
"NFut_10_val_obey", "NFut_10_val_trad", "NFut_10_val_opinion", "NFut_10_val_performance", "NFut_10_val_justice"
|
|
)], na.rm = TRUE)
|
|
|
|
# Set 9: X5.10_global_mean (30 variables - X5.10past + X5.10fut)
|
|
data$X5.10_global_mean <- rowMeans(data[, c(
|
|
"X5.10past_pref_read", "X5.10past_pref_music", "X5.10past_pref_TV", "X5.10past_pref_nap", "X5.10past_pref_travel",
|
|
"X5.10past_pers_extravert", "X5.10past_pers_critical", "X5.10past_pers_dependable", "X5.10past_pers_anxious", "X5.10past_pers_complex",
|
|
"X5.10past_val_obey", "X5.10past_val_trad", "X5.10past_val_opinion", "X5.10past_val_performance", "X5.10past_val_justice",
|
|
"X5.10fut_pref_read", "X5.10fut_pref_music", "X5.10fut_pref_TV", "X5.10fut_pref_nap", "X5.10fut_pref_travel",
|
|
"X5.10fut_pers_extravert", "X5.10fut_pers_critical", "X5.10fut_pers_dependable", "X5.10fut_pers_anxious", "X5.10fut_pers_complex",
|
|
"X5.10fut_val_obey", "X5.10fut_val_trad", "X5.10fut_val_opinion", "X5.10fut_val_performance", "X5.10fut_val_justice"
|
|
)], na.rm = TRUE)
|
|
|
|
# Set 10: N5_global_mean (30 variables - NPast_5 + NFut_5)
|
|
data$N5_global_mean <- rowMeans(data[, c(
|
|
"NPast_5_pref_read", "NPast_5_pref_music", "NPast_5_pref_TV", "NPast_5_pref_nap", "NPast_5_pref_travel",
|
|
"NPast_5_pers_extravert", "NPast_5_pers_critical", "NPast_5_pers_dependable", "NPast_5_pers_anxious", "NPast_5_pers_complex",
|
|
"NPast_5_val_obey", "NPast_5_val_trad", "NPast_5_val_opinion", "NPast_5_val_performance", "NPast_5_val_justice",
|
|
"NFut_5_pref_read", "NFut_5_pref_music", "NFut_5_pref_TV", "NFut_5_pref_nap", "NFut_5_pref_travel",
|
|
"NFut_5_pers_extravert", "NFut_5_pers_critical", "NFut_5_pers_dependable", "NFut_5_pers_anxious", "NFut_5_pers_complex",
|
|
"NFut_5_val_obey", "NFut_5_val_trad", "NFut_5_val_opinion", "NFut_5_val_performance", "NFut_5_val_justice"
|
|
)], na.rm = TRUE)
|
|
|
|
# Set 11: N10_global_mean (30 variables - NPast_10 + NFut_10)
|
|
data$N10_global_mean <- rowMeans(data[, c(
|
|
"NPast_10_pref_read", "NPast_10_pref_music", "NPast_10_pref_TV", "NPast_10_pref_nap", "NPast_10_pref_travel",
|
|
"NPast_10_pers_extravert", "NPast_10_pers_critical", "NPast_10_pers_dependable", "NPast_10_pers_anxious", "NPast_10_pers_complex",
|
|
"NPast_10_val_obey", "NPast_10_val_trad", "NPast_10_val_opinion", "NPast_10_val_performance", "NPast_10_val_justice",
|
|
"NFut_10_pref_read", "NFut_10_pref_music", "NFut_10_pref_TV", "NFut_10_pref_nap", "NFut_10_pref_travel",
|
|
"NFut_10_pers_extravert", "NFut_10_pers_critical", "NFut_10_pers_dependable", "NFut_10_pers_anxious", "NFut_10_pers_complex",
|
|
"NFut_10_val_obey", "NFut_10_val_trad", "NFut_10_val_opinion", "NFut_10_val_performance", "NFut_10_val_justice"
|
|
)], na.rm = TRUE)
|
|
|
|
# Save the data
|
|
write.csv(data, "eohi2.csv", row.names = FALSE)
|
|
|
|
# ===== QA CODE: Check first 5 rows =====
|
|
cat("\n=== QUALITY ASSURANCE: Checking calculations for first 5 rows ===\n\n")
|
|
|
|
for (i in 1:min(5, nrow(data))) {
|
|
cat("--- Row", i, "---\n")
|
|
|
|
# Set 1: NPast_5_mean
|
|
calc1 <- mean(as.numeric(data[i, c(
|
|
"NPast_5_pref_read", "NPast_5_pref_music", "NPast_5_pref_TV", "NPast_5_pref_nap", "NPast_5_pref_travel",
|
|
"NPast_5_pers_extravert", "NPast_5_pers_critical", "NPast_5_pers_dependable", "NPast_5_pers_anxious", "NPast_5_pers_complex",
|
|
"NPast_5_val_obey", "NPast_5_val_trad", "NPast_5_val_opinion", "NPast_5_val_performance", "NPast_5_val_justice"
|
|
)]), na.rm = TRUE)
|
|
cat("NPast_5_mean: Calculated =", calc1, "| Stored =", data$NPast_5_mean[i],
|
|
"| Match:", isTRUE(all.equal(calc1, data$NPast_5_mean[i])), "\n")
|
|
|
|
# Set 2: NPast_10_mean
|
|
calc2 <- mean(as.numeric(data[i, c(
|
|
"NPast_10_pref_read", "NPast_10_pref_music", "NPast_10_pref_TV", "NPast_10_pref_nap", "NPast_10_pref_travel",
|
|
"NPast_10_pers_extravert", "NPast_10_pers_critical", "NPast_10_pers_dependable", "NPast_10_pers_anxious", "NPast_10_pers_complex",
|
|
"NPast_10_val_obey", "NPast_10_val_trad", "NPast_10_val_opinion", "NPast_10_val_performance", "NPast_10_val_justice"
|
|
)]), na.rm = TRUE)
|
|
cat("NPast_10_mean: Calculated =", calc2, "| Stored =", data$NPast_10_mean[i],
|
|
"| Match:", isTRUE(all.equal(calc2, data$NPast_10_mean[i])), "\n")
|
|
|
|
# Set 3: NFut_5_mean
|
|
calc3 <- mean(as.numeric(data[i, c(
|
|
"NFut_5_pref_read", "NFut_5_pref_music", "NFut_5_pref_TV", "NFut_5_pref_nap", "NFut_5_pref_travel",
|
|
"NFut_5_pers_extravert", "NFut_5_pers_critical", "NFut_5_pers_dependable", "NFut_5_pers_anxious", "NFut_5_pers_complex",
|
|
"NFut_5_val_obey", "NFut_5_val_trad", "NFut_5_val_opinion", "NFut_5_val_performance", "NFut_5_val_justice"
|
|
)]), na.rm = TRUE)
|
|
cat("NFut_5_mean: Calculated =", calc3, "| Stored =", data$NFut_5_mean[i],
|
|
"| Match:", isTRUE(all.equal(calc3, data$NFut_5_mean[i])), "\n")
|
|
|
|
# Set 4: NFut_10_mean
|
|
calc4 <- mean(as.numeric(data[i, c(
|
|
"NFut_10_pref_read", "NFut_10_pref_music", "NFut_10_pref_TV", "NFut_10_pref_nap", "NFut_10_pref_travel",
|
|
"NFut_10_pers_extravert", "NFut_10_pers_critical", "NFut_10_pers_dependable", "NFut_10_pers_anxious", "NFut_10_pers_complex",
|
|
"NFut_10_val_obey", "NFut_10_val_trad", "NFut_10_val_opinion", "NFut_10_val_performance", "NFut_10_val_justice"
|
|
)]), na.rm = TRUE)
|
|
cat("NFut_10_mean: Calculated =", calc4, "| Stored =", data$NFut_10_mean[i],
|
|
"| Match:", isTRUE(all.equal(calc4, data$NFut_10_mean[i])), "\n")
|
|
|
|
# Set 5: X5.10past_mean
|
|
calc5 <- mean(as.numeric(data[i, c(
|
|
"X5.10past_pref_read", "X5.10past_pref_music", "X5.10past_pref_TV", "X5.10past_pref_nap", "X5.10past_pref_travel",
|
|
"X5.10past_pers_extravert", "X5.10past_pers_critical", "X5.10past_pers_dependable", "X5.10past_pers_anxious", "X5.10past_pers_complex",
|
|
"X5.10past_val_obey", "X5.10past_val_trad", "X5.10past_val_opinion", "X5.10past_val_performance", "X5.10past_val_justice"
|
|
)]), na.rm = TRUE)
|
|
cat("X5.10past_mean: Calculated =", calc5, "| Stored =", data$X5.10past_mean[i],
|
|
"| Match:", isTRUE(all.equal(calc5, data$X5.10past_mean[i])), "\n")
|
|
|
|
# Set 6: X5.10fut_mean
|
|
calc6 <- mean(as.numeric(data[i, c(
|
|
"X5.10fut_pref_read", "X5.10fut_pref_music", "X5.10fut_pref_TV", "X5.10fut_pref_nap", "X5.10fut_pref_travel",
|
|
"X5.10fut_pers_extravert", "X5.10fut_pers_critical", "X5.10fut_pers_dependable", "X5.10fut_pers_anxious", "X5.10fut_pers_complex",
|
|
"X5.10fut_val_obey", "X5.10fut_val_trad", "X5.10fut_val_opinion", "X5.10fut_val_performance", "X5.10fut_val_justice"
|
|
)]), na.rm = TRUE)
|
|
cat("X5.10fut_mean: Calculated =", calc6, "| Stored =", data$X5.10fut_mean[i],
|
|
"| Match:", isTRUE(all.equal(calc6, data$X5.10fut_mean[i])), "\n")
|
|
|
|
# Set 7: NPast_global_mean
|
|
calc7 <- mean(as.numeric(data[i, c(
|
|
"NPast_5_pref_read", "NPast_5_pref_music", "NPast_5_pref_TV", "NPast_5_pref_nap", "NPast_5_pref_travel",
|
|
"NPast_5_pers_extravert", "NPast_5_pers_critical", "NPast_5_pers_dependable", "NPast_5_pers_anxious", "NPast_5_pers_complex",
|
|
"NPast_5_val_obey", "NPast_5_val_trad", "NPast_5_val_opinion", "NPast_5_val_performance", "NPast_5_val_justice",
|
|
"NPast_10_pref_read", "NPast_10_pref_music", "NPast_10_pref_TV", "NPast_10_pref_nap", "NPast_10_pref_travel",
|
|
"NPast_10_pers_extravert", "NPast_10_pers_critical", "NPast_10_pers_dependable", "NPast_10_pers_anxious", "NPast_10_pers_complex",
|
|
"NPast_10_val_obey", "NPast_10_val_trad", "NPast_10_val_opinion", "NPast_10_val_performance", "NPast_10_val_justice"
|
|
)]), na.rm = TRUE)
|
|
cat("NPast_global_mean: Calculated =", calc7, "| Stored =", data$NPast_global_mean[i],
|
|
"| Match:", isTRUE(all.equal(calc7, data$NPast_global_mean[i])), "\n")
|
|
|
|
# Set 8: NFut_global_mean
|
|
calc8 <- mean(as.numeric(data[i, c(
|
|
"NFut_5_pref_read", "NFut_5_pref_music", "NFut_5_pref_TV", "NFut_5_pref_nap", "NFut_5_pref_travel",
|
|
"NFut_5_pers_extravert", "NFut_5_pers_critical", "NFut_5_pers_dependable", "NFut_5_pers_anxious", "NFut_5_pers_complex",
|
|
"NFut_5_val_obey", "NFut_5_val_trad", "NFut_5_val_opinion", "NFut_5_val_performance", "NFut_5_val_justice",
|
|
"NFut_10_pref_read", "NFut_10_pref_music", "NFut_10_pref_TV", "NFut_10_pref_nap", "NFut_10_pref_travel",
|
|
"NFut_10_pers_extravert", "NFut_10_pers_critical", "NFut_10_pers_dependable", "NFut_10_pers_anxious", "NFut_10_pers_complex",
|
|
"NFut_10_val_obey", "NFut_10_val_trad", "NFut_10_val_opinion", "NFut_10_val_performance", "NFut_10_val_justice"
|
|
)]), na.rm = TRUE)
|
|
cat("NFut_global_mean: Calculated =", calc8, "| Stored =", data$NFut_global_mean[i],
|
|
"| Match:", isTRUE(all.equal(calc8, data$NFut_global_mean[i])), "\n")
|
|
|
|
# Set 9: X5.10_global_mean
|
|
calc9 <- mean(as.numeric(data[i, c(
|
|
"X5.10past_pref_read", "X5.10past_pref_music", "X5.10past_pref_TV", "X5.10past_pref_nap", "X5.10past_pref_travel",
|
|
"X5.10past_pers_extravert", "X5.10past_pers_critical", "X5.10past_pers_dependable", "X5.10past_pers_anxious", "X5.10past_pers_complex",
|
|
"X5.10past_val_obey", "X5.10past_val_trad", "X5.10past_val_opinion", "X5.10past_val_performance", "X5.10past_val_justice",
|
|
"X5.10fut_pref_read", "X5.10fut_pref_music", "X5.10fut_pref_TV", "X5.10fut_pref_nap", "X5.10fut_pref_travel",
|
|
"X5.10fut_pers_extravert", "X5.10fut_pers_critical", "X5.10fut_pers_dependable", "X5.10fut_pers_anxious", "X5.10fut_pers_complex",
|
|
"X5.10fut_val_obey", "X5.10fut_val_trad", "X5.10fut_val_opinion", "X5.10fut_val_performance", "X5.10fut_val_justice"
|
|
)]), na.rm = TRUE)
|
|
cat("X5.10_global_mean: Calculated =", calc9, "| Stored =", data$X5.10_global_mean[i],
|
|
"| Match:", isTRUE(all.equal(calc9, data$X5.10_global_mean[i])), "\n")
|
|
|
|
# Set 10: N5_global_mean
|
|
calc10 <- mean(as.numeric(data[i, c(
|
|
"NPast_5_pref_read", "NPast_5_pref_music", "NPast_5_pref_TV", "NPast_5_pref_nap", "NPast_5_pref_travel",
|
|
"NPast_5_pers_extravert", "NPast_5_pers_critical", "NPast_5_pers_dependable", "NPast_5_pers_anxious", "NPast_5_pers_complex",
|
|
"NPast_5_val_obey", "NPast_5_val_trad", "NPast_5_val_opinion", "NPast_5_val_performance", "NPast_5_val_justice",
|
|
"NFut_5_pref_read", "NFut_5_pref_music", "NFut_5_pref_TV", "NFut_5_pref_nap", "NFut_5_pref_travel",
|
|
"NFut_5_pers_extravert", "NFut_5_pers_critical", "NFut_5_pers_dependable", "NFut_5_pers_anxious", "NFut_5_pers_complex",
|
|
"NFut_5_val_obey", "NFut_5_val_trad", "NFut_5_val_opinion", "NFut_5_val_performance", "NFut_5_val_justice"
|
|
)]), na.rm = TRUE)
|
|
cat("N5_global_mean: Calculated =", calc10, "| Stored =", data$N5_global_mean[i],
|
|
"| Match:", isTRUE(all.equal(calc10, data$N5_global_mean[i])), "\n")
|
|
|
|
# Set 11: N10_global_mean
|
|
calc11 <- mean(as.numeric(data[i, c(
|
|
"NPast_10_pref_read", "NPast_10_pref_music", "NPast_10_pref_TV", "NPast_10_pref_nap", "NPast_10_pref_travel",
|
|
"NPast_10_pers_extravert", "NPast_10_pers_critical", "NPast_10_pers_dependable", "NPast_10_pers_anxious", "NPast_10_pers_complex",
|
|
"NPast_10_val_obey", "NPast_10_val_trad", "NPast_10_val_opinion", "NPast_10_val_performance", "NPast_10_val_justice",
|
|
"NFut_10_pref_read", "NFut_10_pref_music", "NFut_10_pref_TV", "NFut_10_pref_nap", "NFut_10_pref_travel",
|
|
"NFut_10_pers_extravert", "NFut_10_pers_critical", "NFut_10_pers_dependable", "NFut_10_pers_anxious", "NFut_10_pers_complex",
|
|
"NFut_10_val_obey", "NFut_10_val_trad", "NFut_10_val_opinion", "NFut_10_val_performance", "NFut_10_val_justice"
|
|
)]), na.rm = TRUE)
|
|
cat("N10_global_mean: Calculated =", calc11, "| Stored =", data$N10_global_mean[i],
|
|
"| Match:", isTRUE(all.equal(calc11, data$N10_global_mean[i])), "\n\n")
|
|
}
|
|
|
|
cat("=== QA CHECK COMPLETE ===\n")
|