## File Name: sirt_probs_to_logit.R
## File Version: 0.02
sirt_probs_to_logit <- function(y)
{
K <- length(y)
y_logit <- log( y[-K] / y[K] )
return(y_logit)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.