Nothing
`residuals.ppar` <-
function(object,...)
# computes standardized residuals
# for object of class "ppar" (from person.parameter)
{
result <- itemfit(object)$st.res
result
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.