本コードは, 「アンへドニア(anhedonia)と遅延割引: Lempert & Pizzagalli (2010)の追試」で用いられているSHAPSの内的整合性の検討を行うためのコードである 。匿名化処理後のSHAPSに関するデータ("data_shaps.csv")を読み込み, クロンバックのα係数の算出を行う。なお,SHAPSの内的整合性の検討のみを目的しているため,"data_shaps.csv"とメインの解析で用いた"data_anonymized.csv"は対応づけられてはいない。
library(psych)
dat2 <- read.csv("../data/data_shaps.csv", header = T)
psych::alpha(dat2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.