From 2236474d5dab2b3211c98e113f562232f0f1b463 Mon Sep 17 00:00:00 2001 From: KingArthur0205 Date: Wed, 27 Nov 2024 14:00:49 +0000 Subject: [PATCH] SCS_Suh_2023.r --- data/SCS_Suh_2023.r | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/data/SCS_Suh_2023.r b/data/SCS_Suh_2023.r index 5bc189b..daa303d 100644 --- a/data/SCS_Suh_2023.r +++ b/data/SCS_Suh_2023.r @@ -16,7 +16,7 @@ korea_df <- korea_df |> ea_scs <- ea_df |> select(id, starts_with("SCS"), -starts_with("SCS_Short")) ea_scs <- pivot_longer(ea_scs, cols=-id, names_to="item", values_to="resp") -ea_scs$group <- "NA" +ea_scs$group <- "US" korea_scs <- korea_df |> select(id, starts_with("SCS")) @@ -43,7 +43,7 @@ ea_bfne <- ea_df |> ea_bfne[ea_bfne == 999] <- NA ea_bfne <- pivot_longer(ea_bfne, cols=-id, names_to="item", values_to="resp") ea_bfne <- ea_bfne[!is.na(ea_bfne$resp),] -ea_bfne$group <- "NA" +ea_bfne$group <- "US" korea_bfne <- korea_df |> select(id, starts_with("BFNE"), -BFNE) @@ -55,5 +55,5 @@ korea_bfne$group <- "Korea" bfne_df <- rbind(korea_bfne, ea_bfne) -save(ea_siaps, file="SCS_Suh_2023_BFNE.Rdata") -write.csv(ea_siaps, "SCS_Suh_2023_BFNE.csv", row.names=FALSE) \ No newline at end of file +save(bfne_df, file="SCS_Suh_2023_BFNE.Rdata") +write.csv(bfne_df, "SCS_Suh_2023_BFNE.csv", row.names=FALSE) \ No newline at end of file