はじめに

本コードは, 「アンへドニア(anhedonia)と遅延割引: Lempert & Pizzagalli (2010)の追試」で用いられているSHAPSの内的整合性の検討を行うためのコードである 。匿名化処理後のSHAPSに関するデータ("data_shaps.csv")を読み込み, クロンバックのα係数の算出を行う。なお,SHAPSの内的整合性の検討のみを目的しているため,"data_shaps.csv"とメインの解析で用いた"data_anonymized.csv"は対応づけられてはいない。

使用するRパッケージ

library(psych)

データの読み込み

dat2 <- read.csv("../data/data_shaps.csv", header = T)

SHAPSのクロンバックのα係数を算出する

psych::alpha(dat2)


ykunisato/somatori_kunisato_2019_replication_study documentation built on Nov. 5, 2019, 1:20 p.m.