<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><title>R: Computing subscores using Haberman's method based on observed...</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" type="text/css" href="R.css" />
</head><body>

<table width="100%" summary="page for subscore.s"><tr><td>subscore.s</td><td style="text-align: right;">R Documentation</td></tr></table>

<h2>Computing subscores using Haberman's method based on observed subscores.</h2>

<h3>Description</h3>

<p>This function estimate true subscores based on observed subscores, 
using the method introduced by Haberman (2008) &lt;doi:10.3102/1076998607302636&gt;.
</p>


<h3>Usage</h3>

<pre>
subscore.s(test.data)
</pre>


<h3>Arguments</h3>

<table summary="R argblock">
<tr valign="top"><td><code>test.data</code></td>
<td>
<p>A list that contains item responses of all subtests and 
the entire test, which can be obtained using function 'data.prep'.</p>
</td></tr>
</table>


<h3>Value</h3>

<table summary="R valueblock">
<tr valign="top"><td><code>summary</code></td>
<td>
<p>Summary of obtained subscores (e.g., mean, sd).</p>
</td></tr>
<tr valign="top"><td><code>PRMSE</code></td>
<td>
<p>PRMSEs of obtained subscores (for Haberman's methods only).</p>
</td></tr>
<tr valign="top"><td><code>subscore.original</code></td>
<td>
<p>Original subscores and total score.</p>
</td></tr>
<tr valign="top"><td><code>subscore.s</code></td>
<td>
<p>Subscores that are estimated based on the observed subscore.</p>
</td></tr>
</table>


<h3>References</h3>


<p>Haberman, S. J. (2008). 
&quot;When can subscores have value?.&quot;
Journal of Educational and Behavioral Statistics, 33(2), 204-229. doi:10.3102/1076998607302636.

</p>


<h3>Examples</h3>

<pre>
# Transferring scored response data to the required list format
test.data&lt;-data.prep(scored.data,c(3,15,15,20),
                     c("Algebra","Geometry","Measurement", "Math"))
  
# Estimate true subscores using Haberman's method based on observed subscores     
subscore.s(test.data) 
       
subscore.s(test.data)$summary
subscore.s(test.data)$Correlation
subscore.s(test.data)$Disattenuated.correlation
subscore.s(test.data)$PRMSE
subscore.s(test.data)$subscore.s
</pre>


</body></html>
