title: Error in keys[abs(list.i), i] <- sign(list.i) in scoreItems
body: <p>I recently received this error when running the scoreItems function from the psych package in R:</p>
  
  <pre><code>Error in keys[abs(list.i), i] &lt;- sign(list.i) : 
    number of items to replace is not a multiple of replacement length
  </code></pre>
  
  <p>This is my reproducible example:</p>
  
  <pre><code>mykey &lt;- data.frame(scale1 = c(0,1,1), scale2 = c(1,1,0)) 
  mydata &lt;- data.frame(item1 = c(1,1,2,3,5), item2 = c(5,5,5,4,3), 
       item3 = 1:5) 
  test &lt;- scoreItems(mykey, mydata) # throws error
  </code></pre>
  
  <p>I was getting the error when running code where I used to get no error. I had upgraded to version 1.6.12 of the package.</p>
  
  <p>What causes the error?</p>