From bd7ed42aa506fbc5be37dee17a4554145470a032 Mon Sep 17 00:00:00 2001
From: KingArthur0205 <gpan20020205@gmail.com>
Date: Mon, 25 Nov 2024 23:31:19 +0000
Subject: [PATCH] PPSRS_Caliciuri_2024.r

---
 data/PPSRS_Caliciuri_2024.r | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 data/PPSRS_Caliciuri_2024.r

diff --git a/data/PPSRS_Caliciuri_2024.r b/data/PPSRS_Caliciuri_2024.r
new file mode 100644
index 0000000..e329699
--- /dev/null
+++ b/data/PPSRS_Caliciuri_2024.r
@@ -0,0 +1,15 @@
+# Poster: https://www.researchgate.net/profile/Rossella-Caliciuri/publication/382182050_Psychometric_Properties_of_the_Scientific_Reasoning_Scale/links/6690f2a1b15ba55907539c5a/Psychometric-Properties-of-the-Scientific-Reasoning-Scale.pdf 
+# Data: https://osf.io/jk9dp/
+library(haven)
+library(dplyr)
+library(tidyr)
+library(openxlsx)
+
+df <- read_sav("3. CFA&IRT_SRS (n=337).sav")
+df <- df |>
+  select(ID, starts_with("SRS")) |>
+  rename(id=ID)
+df <- pivot_longer(df, cols=-id, names_to = "item", values_to="resp")
+
+save(df, file="PPSRS_Caliciuri_2024.Rdata")
+write.csv(df, "PPSRS_Caliciuri_2024.csv", row.names=FALSE)
\ No newline at end of file