Dataset of the initial validation of Questionnaire for the Self-assessment of University Service-learning Experiences (QaSLu)

[ben-domingue]

https://dataverse.harvard.edu/dataset.xhtml?persistentId=doi:10.7910/DVN/LUUDQC

[KingArthur0205]

working on this

[KingArthur0205]

Data: QaSLu_lopez_2024.csv

Code:

# Paper: 
# Data: https://dataverse.harvard.edu/dataset.xhtml?persistentId=doi:10.7910/DVN/LUUDQC
library(haven)
library(dplyr)
library(tidyr)
library(readxl)

Participants_df <- read_xlsx("Qaslu.xlsx")

Participants_df <- Participants_df |>
  select(starts_with("Item"))

Participants_df <- Participants_df %>%
  mutate(id = row_number() )

Participants_df <- pivot_longer(Participants_df, 
                                cols = -id, 
                                names_to = "item", 
                                values_to = "resp")

save(Participants_df, file="QaSLu_lopez_2024.Rdata")
write.csv(Participants_df, "QaSLu_lopez_2024.csv", row.names=FALSE)