Publications by Szymon Sacher
FB:Misinfo Cleaning
Loading R library The purpose of this document is to clean the raw FB Misinformation Chatfuel data. The raw Chatfuel dataset was last pulled on 02/06/2024 and processed by the anonymization script. The anonymized version of dataset contains the variable analytic_id as the unique identifier for each respondent. We started with 159,484 observati...
15547 sym Python (33866 sym/54 pcs) 19 tbl
FB:Misinfo Summary Statistics
The purpose of this document is provide a description and summary statistics for each variable. Variables are categorized as continuous or categorical variables. The dataset used in the clean version already excluded respondents who are not in Phase 1 or Phase 2 and those who actually repeated the chatbot. The raw data for was downloaded from C...
2123 sym R (13769 sym/16 pcs) 7 tbl
Document
Problem Set 0 Author Author Name Published September 7, 2023 Section 1 Yo tha bomb Section 2...
116 sym
Stimuli Pilot Analysis
1 Load and clean data new_path = "Qualitrics/FB Misinfo Stimuli Pilot_July 31, 2023_16.34.sav" #old_path = "Qualitrics/FB Misinfo Stimuli Pilot_July 27, 2023_18.29.sav" #old_data = read_sav(old_path) |> mutate(old_data = TRUE) #new_data = read_sav(new_path) |> mutate(new_data = TRUE) #dt = merge(old_data, new_data, all = TRUE) |> # mutat...
3774 sym R (23896 sym/27 pcs) 39 img 11 tbl
Stimuli Pilot Analysis
1 Load and clean data new_path = "Qualitrics/FB Misinfo Stimuli Pilot_July 31, 2023_16.34.sav" #old_path = "Qualitrics/FB Misinfo Stimuli Pilot_July 27, 2023_18.29.sav" #old_data = read_sav(old_path) |> mutate(old_data = TRUE) #new_data = read_sav(new_path) |> mutate(new_data = TRUE) #dt = merge(old_data, new_data, all = TRUE) |> # mutat...
3774 sym R (23947 sym/27 pcs) 39 img 11 tbl
Stimuli Pilot 3
1 Load and clean data # Load data data = read_sav("Qualitrics/FB Misinfo Stimuli Pilot_July 27, 2023_18.29.sav") |> rename(ProlificID = Q109) |> filter(Finished == 1, !is.na(ProlificID)) |> filter( !(ResponseId %in% c("R_1hFLVlyOvoORO7X", "R_3erVa4BDzEtxiWS")) ) cat("Number of finished participants:", data |> nrow...
1415 sym R (17208 sym/19 pcs) 35 img 9 tbl
Stimuli Pilot 3
1 Load and clean data read_sav("Qualitrics/FB Misinfo Stimuli Pilot_July 27, 2023_18.29.sav") |> filter(Q109 == "616fecdd127553593aac3134") # Load data data = read_sav("Qualitrics/FB Misinfo Stimuli Pilot_July 27, 2023_18.29.sav") |> rename(ProlificID = Q109) |> filter(Finished == 1, !is.na(ProlificID)) |> filter( !(Resp...
3410 sym R (20417 sym/24 pcs) 39 img 9 tbl