Displaying 1 result from an estimated 1 matches for "scored2".
Did you mean:
scored
2009 Mar 10
3
reliability, scale scores in the psych package
...,] 8.75 3.142857
>
> #This does not do what I expected. Mean interest scores are higher than score of the highest item.
> key.list2 <- list(silence=1:4, interest=c(5,6,-7,-8,9,10,11))
> keys2 <- make.keys(length(names(Data.score)), key.list2, item.labels=names(Data.score))
> scored2 <- score.items(keys2, Data.score, missing=FALSE, totals=FALSE)
> scored2$scores
silence interest
[1,] 35.25 14.71429
[2,] 36.50 15.28571
[3,] 9.25 15.42857
[4,] 2.75 15.85714
[5,] 5.50 13.57143
[6,] 15.50 17.42857
[7,] 10.25 16.42857
[8,] 8.75 14.14286
[9,]...