## File Name: data.recode.sirt.R
## File Version: 0.01
#*** utility function for recoding a raw dataset
data.recode.sirt <- function( data.raw, keys )
{
item.stat <- keys
V <- ncol(data.raw)
data.scored <- matrix( 0, nrow(data.raw), ncol(data.raw) )
colnames(data.scored) <- colnames(data.raw )
for (vv in 1:V){
data.scored[,vv] <- 1* ( paste(data.raw[,vv])==
paste(item.stat[ item.stat$item==colnames(data.raw)[vv], 'key' ]) )
data.scored[ paste( data.raw[,vv] )=='NA', vv ] <- NA
}
return(data.scored)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.