# pacchetti
library(tidyverse)
library(likert)

# dati
data(pisaitems)
 
# selezioniamo una sola scala come esempio
items24 <- pisaitems %>% 
  select_at(vars(starts_with("ST24Q")))
 
# nomi degli items, per leggibilità
names(items24) <- c(ST24Q01="only if I have to",
                    ST24Q02="one of my favorite hobbies",
                    ST24Q03="like talking about b",
                    ST24Q04="hard to finish b",
                    ST24Q05="happy receving b as a present.",
                    ST24Q06="a waste of time",
                    ST24Q07="enjoy bookstore",
                    ST24Q08="to get information",
                    ST24Q09="cannot sit still and read",
                    ST24Q10="like express opinions about b",
                    ST24Q11="like exchange b")