The detection of episodic memory in others biases social choice.

1. ############################################################################################
2. ##### Analyses paper "The detection of episodic memory in others biases social choice", ####
3. ##### Ciaramelli et al., 2026. ####
4. ##### Script by Debora Stendardi ####
5. ############################################################################################
7. library(pacman)
8. pacman::p_load(tidyr, psych, readxl, tidyverse, lmerTest, car, reformulas, sjPlot, lme4, misty,
9. rmcorr, ggplot2, lavaan, ggrepel, lsa, ngram, LSAfun, stringr, stopwords, car) # load necessary packages
11. setwd("D:/Work/Utili/Altro/Detection_episodic_memory/06_07_2025/Open_Access") # Put your working directory
13. # Read data
14. my_data <- read_excel("English_Data_Models.xlsx") # Read data
16. # Reshaping from wide to long
17. df <- gather(my_data, key = "Variable", value = "Value",
18. Storia_1_EPI_Beauty:Storia_10_SEM_Anxious_Relaxed)
19. df <- separate(df, col=Variable, into=c('Story', 'N_Story', 'Type', 'Var', 'add'), sep='_') # Gives warnings (normal:
20. # subjects perform different trials, balanced design)
22. df <- df %>% unite("Variable", Var:add, remove = TRUE)
23. df$Variable <- sub("_NA", "", df$Variable, fixed=TRUE)
25. df <- spread(df, Variable, Value)
26. df <- df[order(df$subject_number),]
27. df <- subset(df, select = -(Story))
29. df <- df %>%
30. mutate_at(c(7:17), as.numeric)
32. # Prepare dataframe
33. df$Type <- recode_factor(df$Type, "EPI" = "Episodic",
34. "SEM" = "Semantic")
35. # Standardize variables
36. df$subject_number <- as.factor(df$subject_number)
37. df_scaled <- as.data.frame(scale(df[, 7:17]))
38. df <- cbind(df[, 1:6], df_scaled)
40. # Separate Beauty and Closeness dataframes
41. Beauty <- df[df$Condition == "B", ]
42. Closeness <- df[df$Condition == "V", ]
44. ################################################################################
45. # Mixed effect models
46. ################################################################################
48. # Repeated measure correlations:
49. rmcorr(participant = subject_number, measure1 = Projection, measure2 =
50. Emotion , dataset = df)
51. rmcorr(participant = subject_number, measure1 = Detailedness, measure2 =
52. Emotion , dataset = df)
53. rmcorr(participant = subject_number, measure1 = Projection, measure2 =
54. Detailedness , dataset = df)
56. # 0.59, 0.27, 0.37
58. ## Closeness
60. model1 <- lmer(Closeness ~ Anxious_Relaxed + Detailedness + Projection + Emotion + Perceived_Memory +
61. (1 + Anxious_Relaxed+ Detailedness + Projection + Emotion + Perceived_Memory|subject_number),
62. data = Closeness, REML = TRUE, control = lmerControl(optimizer = "nloptwrap"))
64. model2 <- lmer(Closeness ~ Anxious_Relaxed + Detailedness + Projection + Emotion + Perceived_Memory +
65. (1 + Anxious_Relaxed + Detailedness + Projection + Emotion + Perceived_Memory|subject_number)+
66. (1 + Anxious_Relaxed + Detailedness + Projection + Emotion+ Perceived_Memory|N_Story),
67. data = Closeness, REML = TRUE, control = lmerControl(optimizer = "nloptwrap"))
69. BIC(model1, model2)
70. summary(model1)
71. Anova(model1)
72. sjPlot::tab_model(model1)
73. vif(model1) # Problematic if close to 5 or 10
74. multilevel.r2(model1, print = "RS")
76. ## Beauty
78. model1 <- lmer(Beauty ~ Anxious_Relaxed + Detailedness + Projection + Emotion + Perceived_Memory +
79. (1 + Anxious_Relaxed+ Detailedness + Projection + Emotion + Perceived_Memory|subject_number),
80. data = Beauty, REML = TRUE, control = lmerControl(optimizer = "nloptwrap"))
82. model2 <- lmer(Beauty ~ Anxious_Relaxed + Detailedness + Projection + Emotion + Perceived_Memory +
83. (1 + Anxious_Relaxed + Detailedness + Projection + Emotion + Perceived_Memory|subject_number)+
84. (1 + Anxious_Relaxed + Detailedness + Projection + Emotion + Perceived_Memory|N_Story),
85. data = Beauty, REML = TRUE, control = lmerControl(optimizer = "nloptwrap"))
87. BIC(model1, model2)
88. summary(model1)
89. Anova(model1)
90. sjPlot::tab_model(model1)
91. vif(model1)
92. multilevel.r2(model1, print = "RS")
94. ## Perceived memory
97. model1 <- lmer(Perceived_Memory ~ Anxious_Relaxed + Detailedness + Projection + Emotion +
98. (1 + Anxious_Relaxed + Detailedness + Projection + Emotion|subject_number),
99. data = df, REML = TRUE, control = lmerControl(optimizer = "nloptwrap"))
101. model2 <- lmer(Perceived_Memory ~ Anxious_Relaxed + Detailedness + Projection + Emotion +
102. (1 + Anxious_Relaxed + Detailedness + Projection + Emotion|subject_number)+
103. (1 + Anxious_Relaxed + Detailedness + Projection + Emotion|N_Story),
104. data = df, REML = TRUE, control = lmerControl(optimizer = "nloptwrap"))
106. BIC(model1, model2)
108. summary(model1)
109. Anova(model1)
110. sjPlot::tab_model(model1)
111. vif(model1) # Problematic if close to 5 or 10
112. multilevel.r2(model1, print = "RS")
116. ###################################################################
117. ## Correlation between linguistic features and Beauty/Closeness/Perceived memory ##
118. ###################################################################
120. # Concreteness
121. # You can read it from the csv file, or, if you want to replicate the csv,
122. # first run the Python script Concreteness.py (which gives it as output)
124. ## Semantic Coherence and Number of distinct ideas (Informational richness) are calculated directly here
126. load("itwac_cbow.rda")
128. texts <- c(
129. "Premetto che io non ero uno che a scuola copiava. Una volta però, era la simulazione per la prova di Fisica della maturità, nascosi un biglietto tra la calcolatrice e la sua custodia per poter, all’occorrenza, dare una sbirciatina. Stavamo facendo il compito. La classe aveva tre blocchi di banchi, due laterali e uno centrale. Io ero al primo banco di una delle file laterali, quella vicino alle finestre. Mi sembra ancora di vedere le cartine geografiche alle pareti e l’orologio rosso che guardavo in continuazione, sperando di avere il tempo di finire. Il professore inizia a girare tra i banchi e a controllare i miei compagni. Inizia dalla parte opposta al mio banco, quindi controlla la fila laterale vicino alla porta della classe, partendo dai primi banchi arrivando agli ultimi, costeggiando la parete in fondo all'aula. Salta la fila centrale, che era vuota. Riparte con i controlli dagli ultimi banchi della mia fila continuando ad avanzare. Arrivato a me dice che conoscendomi non mi avrebbe nemmeno controllato, ma visto che stava controllando tutti… E così fui beccato!",
130. "Premetto che io non ero uno che a scuola copiava. Frequentavo il liceo scientifico Copernico, che si trova in una bella zona di Bologna. All’esame di maturità avrei dovuto portare anche Inglese, con tutta la poesia di T.S. Eliot, e anche una rassegna degli scritti dissacranti di Charles Bukowski, e Geografia Astronomica, che trattava dei pianeti del sistema solare, la gravità che è presente su questi, ed il loro clima. Per la simulazione della prova di Fisica nascosi un biglietto tra la calcolatrice e la sua custodia per poter, all’occorrenza, dare una sbirciatina. La calcolatrice era di marca Casio, una di quelle marche storiche che fanno calcolatrici da sempre, e le formule che avevo inserito erano soprattutto quelle della termodinamica, che avevamo trattato anche l’anno precedente. Il professore di Fisica, che prima di insegnare al nostro liceo aveva insegnato per 5 anni nella scuola proprio davanti alla nostra, nella stessa via, inizia a controllare i miei compagni e arrivato a me dice che conoscendomi non mi avrebbe nemmeno controllato, ma visto che stava controllando tutti… E così fui beccato!",
131. "Avevo iniziato da pochi giorni a fare la baby-sitter per due bambini, Claudio di quattro anni e Ilaria di sette. Un pomeriggio eravamo nella loro cameretta, io giocavo sul letto con Claudio mentre Ilaria era sul tappetino circondata da giocattoli. Il piccolo era particolarmente vivace, e Ilaria, stufa di pettinare una bambola, aveva iniziato a stuzzicarlo. Ad un certo punto decidono di giocare a prendi-prendi: lui scappava dalla cameretta al soggiorno e lei lo inseguiva. Io non ero felice dell'idea perchè quel tragitto era pericoloso, pieno di spigoli, con una colonna in marmo da schivare. Poi c’erano dei vasi particolari, composti da bicchierini coi bordi aguzzi sparsi per terra proprio vicino alla colonna. Ero ancora seduta sul lettino della bimba e avevo preso in braccio il piccolo che mi arricciava i capelli mentre cercavo di distrarlo e di tranquillizzarlo. Ad un certo punto arriva la bambina e Claudio parte all'impazzata e sbatte sullo spigolo della colonna. Non piange subito, ma dopo qualche minuto. Lo porto in bagno e tampono la ferita. C’erano queste mattonelle a scacchi bianchi e neri del bagno che si macchiavano di rosso. Non avrei dovuto allentare la presa.",
132. "Avevo iniziato da pochi giorni a fare la baby-sitter per due bambini, Claudio di quattro anni e Ilaria di sette. La casa è davvero interessante. I genitori sono architetti, lui lavora per il comune, ed ha costruito il nuovo palazzo del comune che sembra una torre di cristallo, e lei si occupa di arredamento. Per esempio la mamma dei bambini ha inventato una sedia particolare che mentre ci stai seduto sopra ti massaggia il collo attraverso dei sensori meccanici. Il piccolo era particolarmente vivace, e la sorella aveva iniziato a stuzzicarlo. Ad un certo punto decidono di giocare a prendi-prendi: lui scappava dalla cameretta al soggiorno e lei lo inseguiva. Io non ero felice dell'idea perchè quel tragitto era pericoloso. I bambini infatti di solito prendono molta velocità facendo questi giochi, per cui se il pavimento è scivoloso non riescono a controllarsi. Ero seduta sul lettino della bimba e avevo preso in braccio il piccolo cercando di distrarlo e di tranquillizzarlo. Ad un certo punto arriva la bambina, e il fratello parte all'impazzata e sbatte sullo spigolo della colonna. Si mette a piangere. Lo porto in bagno e tampono la ferita. Il pavimento era macchiato di rosso. Non avrei dovuto allentare la presa.",
133. "L'avevo conosciuta ad una festa di studenti universitari. Mi aveva detto che dovevamo rivederci assolutamente, e io ci speravo. Non l’ho più sentita da allora. L’altro giorno stavo andando a lezione con la mia bici rossa e scarcassata e sono entrato in Piazza Santo Stefano. I sassi che pavimentano la piazza hanno iniziato a far tremare la mia bici. Ho girato lo sguardo verso l’alto e l’ho vista, seduta al primo tavolino sulla sinistra, apparecchiato con una tovaglietta verde, uno dei primi tavolini che si incontrano prima ancora di entrare nella vera e propria piazza. Anche lei mi ha visto subito. Davanti a lei vedo di spalle un ragazzo, con un cappello di lana a righe. Stanno parlando, potrebbero essere una coppia. Tutto questo lo penso mentre sfilo ad un metro da loro in bici, ma quel minuto sembra un’ora. Lei infatti fa una cosa che non mi aspettavo. Mi ha visto ma fa finta di non vedermi. Rallento un po’ e faccio un ciao ampio ma silenzioso con il braccio. Nulla, lei non mi guarda. Vado via, e mi sembra impossibile quello che mi è successo.",
134. "L’avevo conosciuta ad una festa di studenti, lei studiava Giurisprudenza. A quella festa aveva una giacca grigia e dei jeans un po’ stretti. Era insieme ad un altro studente di Giurisprudenza suo amico, David. Abbiamo passato tutta la serata a chiacchierare. Mi aveva detto che dovevamo rivederci assolutamente, e io ci speravo. Non l’ho più sentita da allora. L’altro giorno stavo andando a lezione in bici passando per Piazza Santo Stefano. Piazza Santo Stefano è detta anche Piazza delle Sette Chiese, è bellissima, e spesso viene utilizzata per manifestazioni culturali e concerti, ed è anche il soggetto della canzone 'Piazza Santo Stefano' del cantante Cesare Cremonini. Un bel posto davvero. Ho girato lo sguardo e l’ho vista seduta ad un tavolino. Anche lei mi ha visto. Davanti a lei vedo di spalle un ragazzo. Stanno parlando, potrebbero essere una coppia. Lei fa una cosa che non mi aspettavo. Mi ha visto ma fa finta di non vedermi. Allora rallento un po’ e faccio un ciao con il braccio. Nulla, lei non mi guarda. Vado via, e mi sembra impossibile quello che mi è successo.",
135. "Quell'esame non me lo scorderò mai. Si teneva nella stanza di ricevimento del professore. Arrivato il mio turno entrai nella stanza e mi sedetti. La stanza era minuscola, il professore era seduto dietro la scrivania grigio chiara, ordinata e asettica. Sopra c'erano solo il pc, mouse, smartphone e portapenne. Nient'altro. Segnò il mio nome su una piccola agenda marrone. Portava occhiali da vista con lenti ovali, senza montatura. Iniziò a interrogarmi. Man mano segnava sull'agenda ogni domanda fatta, le parole d'inchiostro nero proseguivano in frasi lineari lungo le pagine bianche dell'agenda. Al dito anulare portava una spessa fede di oro giallo. Il professore non sembrava soddisfatto delle mie risposte. Dalla finestra vidi che era iniziato a piovere, le gocce bagnavano i vasi di fiori sul davanzale. Mi chiese se avevo capito l'ultima domanda. Risposi di si e mi chiese di rispiegarglielo ancora. Stavo ancora parlando quando mi fermò. Fui bocciata.",
136. "Quell'esame non me lo scorderò mai. L'Economia dello sviluppo è una branca dell'economia che analizza gli squilibri fra economie industrializzate ed economie 'arretrate' o 'in via di sviluppo' e nasce dapprima come branca dell'Economia politica, sviluppandosi in seguito come nucleo disciplinare a sé. L'esame si teneva nella stanza di ricevimento del professore. Arrivato il mio turno entrai nella stanza e mi sedetti. In facoltà si diceva che il professore si era sposato di recente. Lui e la giovane moglie avevano fatto une bella festa al mare, molti dei professori del dipartimento erano stati invitati. Il professore segnò il mio nome su un’agenda e iniziò a interrogarmi. Man mano segnava sull'agenda ogni domanda fatta. Il professore non sembrava soddisfatto delle mie risposte. Dalla finestra vidi che era iniziato a piovere. Mi chiese se avevo capito l'ultima domanda. Risposi di si e mi chiese di rispiegarglielo ancora. Stavo ancora parlando quando mi fermò. Fui bocciata.",
137. "Ero a cena con il mio amico Claudio per festeggiare il mio compleanno. Essendo i primi di giugno faceva molto caldo, portavo una camicia di cotone leggera e dei pantaloni di lino. In queste occasioni di festa tra noi vige la regola paga il festeggiato così prenotai un tavolo in un Irish pub. Appena entrati un cameriere ci indicò dove accomodarci, l'ambiente un po' rustico rendeva l'atmosfera accogliente e familiare. Alcuni dei tavoli erano delle botti di legno con delle seggiole intorno. Quei tavoli con sopra le tovagliette a quadri verdi e bianchi erano un chiaro richiamo all’Irlanda. Al centro del tavolo c'era un cestino con delle arachidi in guscio molto invitanti. Trascorremmo una piacevole serata tra amici, mi ricordo il sapore della birra artigianale e il chiasso che arrivava dal tavolo accanto al nostro. Ad un certo punto il cameriere portò il conto. Allungai la mano nella tasca dei pantaloni per prendere il portafogli, ma la mano tastò a vuoto. Realizzai di aver scordato il portafogli a casa. Con imbarazzo dovetti chiedere a lui di pagare.",
138. "Da diversi anni per festeggiare il mio compleanno andavo a cena con il mio amico Claudio. I miei genitori insistevano ogni volta per fare una grande festa ma ormai per me andare a cena con Claudio era una sorta di rituale. In queste occasioni di festa tra noi vige la regola paga il festeggiato così prenotai un tavolo in un Irish pub. Da sempre amo il clima chiassoso da pub. Me l'aveva consigliato mia cugina che è una patita di hamburger e birre artigianali. Da quando è tornata dalla vacanza studio a Dublino non fa altro che parlare di quanto le manchino i compagni del corso e la Guinnes. Appena entrati un cameriere ci indicò dove accomodarci, sul tavolo c'era un cestino con delle arachidi in guscio. Mi fecero ricordare di quando da bambino mio padre me le faceva comprare per gli animali dello zoo. Trascorremmo una piacevole serata tra amici. Quando il cameriere portò il conto realizzai di aver scordato il portafogli a casa. Con imbarazzo dovetti chiedere a lui di pagare.",
139. "Era l'estate di due anni fa a Mikonos. Avevo appuntamento con le mie compagne di viaggio per l'aperitivo in un celebre beach bar. Con il cinquantino giallo banana affittato sull'isola giunsi a destinazione. Varcata la soglia venni travolta da corpi sudati e bottiglie di vino sollevate al ritmo di musica house. Dietro il grande bancone si agitavano tre esperti barman che maneggiavano con cura bottiglie, bicchieri e shaker, servendo i drink con giochi di movimenti acrobatici. Per ballare e avere la possibilità di muoversi tanti ragazzi salivano sui tavoli di legno e sulle panche. Dopo alcuni secondi di stordimento vidi le mie amiche ballare sopra un tavolo. Con una bottiglia di birra stretta fra le dita superai la selva di braccia e gambe e riuscii a raggiungerle. Salii con loro sul tavolo e iniziai a muovermi, mi resi subito conto che lo spazio per ballare era troppo poco. Presa dal ritmo continuai a dimenarmi, ma feci un movimento sbagliato e mi ritrovai a terra. Mi slogai la caviglia. La vacanza all'insegna del divertimento finì prima di iniziare.",
140. "Quell'estate andai a Mikonos. Considerata da tutti l’Ibiza greca, è sicuramente l’isola più famosa e più costosa non solo delle Cicladi ma di tutta la Grecia, forse più costosa anche della stessa Ibiza. La meta perfetta per divertirsi un po' tra locali notturni alla moda e feste trasgressive. Avevo appuntamento con le mie compagne di viaggio in un celebre beach bar. Eravamo partite senza prenotare nessun appartamento, gli amici che già c'erano stati in vacanza ci avevano detto che una volta arrivate in aeroporto la gente del posto ci avrebbe fatto diverse proposte e sarebbe stato a noi contrattare per il miglior prezzo. Con il cinquantino affittato sull'isola giunsi a destinazione. Dopo alcuni secondi di stordimento vidi le mie amiche ballare sopra un tavolo. Superai gli altri e riuscii a raggiungerle. Salii con loro sul tavolo e mi resi conto che lo spazio per ballare era troppo poco. Mi misi a ballare, ma feci un movimento sbagliato e mi ritrovai a terra. Mi slogai la caviglia. La vacanza all'insegna del divertimento finì prima di iniziare.",
141. "Era la mattina della partenza per Barcellona. Il trolley verde già chiuso con lucchetto, i soldi contanti nascosti per bene e il biglietto aereo riposto insieme al documento in una tasca della giacca a vento a portata di mano. Avevo appuntamento con il mio compagno di viaggio alla stazione vicino casa, dove avremmo dovuto prendere il treno per arrivare in aeroporto. Puntualissimi ci incontriamo e senza perdere tempo ci dirigiamo verso i binari. C’era il tipico odore di brioche del bar della stazione. Su un cartello Trenitalia vedo scritto treno per Fiumicino al binario1. Tempo 30 secondi e il treno passa. Una volta seduti iniziammo a chiacchierare. Mi resi conto troppo tardi di aver preso il treno sbagliato, per cui scendemmo di fretta e cercammo un taxi per l’aereoporto. In aereoporto c'era un via vai di gente, turisti, bambini, e una delegazione di politici Italiani fra cui riconobbi qualcuno. Mancavano 20 minuti alla chiusura dell'imbarco. Passammo in fretta e furia i controlli e ci precipitammo al gate. Lo avevano chiuso da appena cinque minuti. Perdemmo il volo.",
142. "Era arrivato il giorno della partenza, dovevo andare a Barcellona. Vado spesso a Barcellona, per cui l’itinerario era chiaro. Tra le prime cose da visitare c'era sempre stata la basilica della Sagrada Familia. E’ importante sapere che, anche se non è visitabile, al suo interno c’è la tomba del suo architetto, Antoni Gaudí, il più grande esponente del modernismo catalano. Avevo appuntamento con il mio compagno di viaggio alla stazione vicino casa, dove avremmo dovuto prendere il treno per arrivare in aeroporto. Una volta seduti sul treno iniziammo a chiacchierare. Viaggiare è una delle esperienze più belle e importanti che possiamo fare, a tutte le età. Avere un compagno di viaggio poi si rivela un ottimo modo per dimezzare le spese, dalla camera d’albergo al noleggio della macchina e a tutto il resto. Mi resi conto troppo tardi di aver preso il treno sbagliato per cui, scendemmo di fretta e cercammo un taxi. Arrivati in aereoporto mancavano 20 minuti alla chiusura dell'imbarco. Ci precipitammo al gate. Lo avevano chiuso da appena cinque minuti. Perdemmo il volo.",
143. "Giovedì scorso ero a casa di un mio amico, Andrea. I genitori mi hanno invitato a restare a cena. Hanno una sala da pranzo abbastanza grande, a destra c'è un pianoforte nero a muro mentre la parete a sinistra è quasi interamente coperta da un enorme quadro olio su tela raffigurante delle gheishe giapponesi. Al centro c'è un moderno tavolo rettangolare. Aiutai il padre ed Andrea ad apparecchiare la tavola. Mettemmo una larga tovaglia viola. Mentre Andrea sistemava i tovaglioli la madre mi invitò ad avvicinarmi a lei, e su quella tovaglia viola iniziò a posizionare una serie di foto di Andrea da piccolo, poi Andrea adolescente vestito da judo... Mi ricordo bene il volto emozionato di questa signora raffinata e truccata con cura, illuminato ulteriormente dal colore della tovaglia. Era molto promettente Andrea mi dice. Io confermo, e lei continua: Strano che vi frequentiate, siete così diversi! A proposito, ma è vero che nemmeno vai a correre?. A cena quasi non parlai.",
144. "Ero a casa di un mio amico, Andrea. Ci siamo conosciuti a lezione e spesso passiamo i pomeriggi insieme. Di norma preferisco studiare da sola ma con lui riesco a studiare bene e velocemente. Ripassare insieme serve anche a confrontarsi sui diversi temi trattati e la ripetizione mi aiuta molto nell'esposizione orale. I genitori mi hanno invitato a restare a cena. Aiutai il padre e Andrea ad apparecchiare la tavola. Mentre Andrea sistemava i tovaglioli la madre mi invitò ad avvicinarmi a lei, e a mostrarmi una serie di foto di lui da piccolo. È strano come le persone si leghino tanto alle foto. Mi fece pensare a mia nonna, con tutte le sue foto e cartoline. In una foto il mio amico era raffigurato da adolescente, vestito da judo. “Era molto promettente Andreaˮ mi dice. Io confermo, e lei continua: Strano che vi frequentiate, siete così diversi! A proposito, ma è vero che nemmeno vai a correre?. A cena quasi non parlai.",
145. "Quella mattina presi il mio zaino pieno di libri, le chiavi della Fiat 500 rossa e mi avviai al parcheggio. Dovevo andare a lezione. L'auto era parcheggiata in una traversa molto affollata ed era incastrata tra una Audi davanti e una Mini cooper dietro. Prima di partire sistemai bene lo specchietto retrovisore dal quale pendeva l'Ambre Magique. Mi concentrai per un attimo sull’interno della macchina. Era pieno di oggetti lasciati lì da tempo. C’erano i libri dell’esame che avevo appena sostenuto, il tappo lungo di una bottiglia di vino, le castagne raccolte la sera prima. Il colore degli interni della macchina, bordò, era proprio dello stesso colore del mio maglione. Finalmente sembravo nella giusta posizione per uscire. Iniziai la manovra per immettermi sulla strada quando un motorino nero uscito da non so dove, mi passò accanto scontrandosi con lo specchietto della mia auto. Lo distrusse.",
146. "Quella mattina, invece di prendere l'autobus come faccio di solito andai a lezione con la macchina. Solitamente la prendeva mia sorella, che lavorava in una città scomoda da raggiungere in autobus. Presi il mio zaino, le chiavi della macchina e mi avviai al parcheggio. L'auto era parcheggiata non lontano da casa. Da un po' di tempo i miei genitori erano alla ricerca di un box da affittare. Mia madre si lamentava spesso delle ore passate a cercare un parcheggio libero. Prima di partire sistemai bene lo specchietto retrovisore come avevo imparato durante le lezioni di guida. L'istruttore me l'aveva ripetuto talmente tante volte che era riuscito a farlo diventare un comportamento automatico. Finalmente sembravo nella giusta posizione per uscire. Iniziai la manovra per immettermi sulla strada quando un motorino uscito da non so dove mi passò accanto scontrandosi con lo specchietto della mia auto. Lo distrusse.",
147. "Io e Giulio eravamo amici da tempo ma lui mi piaceva. La scorsa settimana ho trovato il coraggio di invitarlo fuori per un cinema e lui ha risposto con entusiasmo. Ci siamo visti all'entrata del cinema. Dopo una breve fila abbiamo mostrato il badge universitario alla signorina alla cassa e preso i biglietti. La sala era piccola e i posti perfetti: centrali e abbastanza avanti. Ci siamo sistemati su quelle comode poltrone rosse vellutate. Al mio fianco un gruppo di ragazzini faceva chiasso con un cesto gigante di popcorn. A fine primo tempo è passato il bibitaro e abbiamo preso due cornetti algida. Finiti i gelati abbiamo appallottolato le carte e le abbiamo cacciate nel portabibite affianco alle poltrone. Stavo per dirgli che il film e la serata erano davvero piacevoli nonostante i ragazzini quando lui mi ha detto: “Era da tanto che volevo chiederti...mi presenteresti Emanuela, la ragazza che viene in palestra con te?ˮ. E io che credevo fosse l’uomo della mia vita...",
148. "Io e Giulio eravamo amici da tempo ma lui mi piaceva. Frequentavamo la stessa classe dalla prima elementare. Avevo trovato il coraggio di invitarlo fuori per un cinema e lui aveva risposto con entusiasmo. Il grande schermo mi ha sempre appassionato, non capisco le persone che preferiscono guardare i film a casa. I film al cinema assumono tutto un altro sapore! A fine primo tempo è passato il bibitaro e abbiamo preso due cornetti algida. Purtroppo le Bomboniere (quei sei bon bon con cuore di vaniglia ricoperti di cioccolato fondente) erano terminate. Il film era bello. Si trattava di una commedia “indieˮ, ovvero prodotta senza l 'intervento di una grande casa di produzione. Stavo per dirgli che il film e la serata erano davvero piacevoli nonostante il chiasso fatto da alcuni ragazzini quando lui mi ha detto: “Era da tanto che volevo chiederti...mi presenteresti Emanuela, la ragazza che viene in palestra con te?ˮ. E io che credevo fosse l‘uomo della mia vita..."
149. )
150. coherence_values <- sapply(texts, function(t) {
151. coherence(t, split=".", tvectors=itwac)$global
152. })
153. coherence_values <- as.vector(coherence_values)
155. # Read concreteness scores
156. Concreteness <- read.csv("concreteness_output.csv", header=TRUE, sep=";") # Pay attention to the separator
158. ##### Number of distinct ideas (Informational richness)
159. # The number of distinct ideas is the number of propositions divided by the number of words.
160. # The number of propositions is almost identical to the total number of verbs
161. # (excluding all forms of do, have and be), adjectives, adverbs, prepositions, and
162. # subordinating conjunctions (but not nouns or coordinating conjunctions).
163. # (Covington et al., 2007; Does ketamine mimic aspects of schizophrenic speech?)
165. # It is obtained by applying POS tagging first, so you can read the file directly (as done here), or
166. # you can run the python script POS_Tagging first. Note that POS tagging is done on
167. # original (italian) stories
169. POS <- read.csv("pos_counts_per_story_output.csv", header=TRUE, sep=";") # Pay attention to the separator
172. Features <- left_join(POS, Concreteness)
174. # Calculate number of distinct ideas (index of informational density)
175. Features$propositions <- rowSums(Features[, c("VERB", "SCONJ", "ADV", "ADP", "ADJ")])
176. Features$distinct_ideas <- Features$propositions/Features$total_words
177. Features <- cbind(Features, coherence_values)
179. # Now take average values of stories ratings (beauty and closeness)
180. end <- dim(my_data)[2] # Find end of dataframe
182. my_data <- my_data %>%
183. mutate_at(c(4:end), as.numeric)
185. data_long <- my_data %>%
186. pivot_longer(
187. cols = starts_with("Storia_"),
188. names_to = c("Storia", "Versione", "Item"),
189. names_pattern = "Storia_(\\d+)_(EPI|SEM)_(.+)",
190. values_to = "Value"
191. )
193. stories_avg <- data_long %>%
194. group_by(Storia, Versione, Item) %>%
195. summarise(Media = mean(Value, na.rm = TRUE), .groups = "drop") %>%
196. pivot_wider(names_from = Item, values_from = Media)
198. stories_avg$Storia <- as.numeric(stories_avg$Storia)
199. stories_avg <- stories_avg[order(stories_avg$Storia),]
201. stories_avg$text_id <- c(0:19) # Identify stories with the same index as in the feature dataframe
203. Final_df <- left_join(stories_avg, Features, by = "text_id")
206. ##### Do epi and sem stories differ for linguistic features?
208. t.test(x = Final_df$avg_concreteness[Final_df$Versione=="EPI"], # Episodic are more concrete
209. y = Final_df$avg_concreteness[Final_df$Versione=="SEM"], paired = TRUE)
211. t.test(x = Final_df$distinct_ideas[Final_df$Versione=="EPI"],
212. y = Final_df$distinct_ideas[Final_df$Versione=="SEM"], paired = TRUE)
214. t.test(x = Final_df$coherence_values[Final_df$Versione=="EPI"],
215. y = Final_df$coherence_values[Final_df$Versione=="SEM"], paired = TRUE)
218. ################################
219. # Pos-Tagging:
221. fit <- lm(Beauty ~ VERB + PRON + ADV + AUX +
222. ADP + NOUN + DET + PROPN + ADJ, data = Final_df)
223. summary(fit)
225. fit <- lm(Closeness ~ VERB + PRON + ADV + AUX + ADP + NOUN + DET + PROPN + ADJ, data = Final_df)
226. summary(fit)
229. fit <- lm(Perceived_Memory ~ VERB + PRON + ADV + AUX + ADP + NOUN + DET + PROPN + ADJ, data = Final_df)
230. summary(fit)
232. ######
234. # Correlation with other linguistic features
235. cor.test(Final_df$Beauty, Final_df$distinct_ideas)
236. cor.test(Final_df$Beauty, Final_df$coherence_values)
237. cor.test(Final_df$Beauty, Final_df$avg_concreteness)
239. cor.test(Final_df$Closeness, Final_df$distinct_ideas)
240. cor.test(Final_df$Closeness, Final_df$coherence_values)
241. cor.test(Final_df$Closeness, Final_df$avg_concreteness) # Significant correlation (r = 0.6)
243. cor.test(Final_df$Perceived_Memory, Final_df$distinct_ideas)
244. cor.test(Final_df$Perceived_Memory, Final_df$coherence_values)
245. cor.test(Final_df$Perceived_Memory, Final_df$avg_concreteness) # Significant correlation (r = 0.48)
246. #####

Analysis_Detection_Episodic_Memory.R, no license · at the source