1 | rasch.plot(ri, rs, axis = 6, scale = 0.5)
|
ri |
|
rs |
|
axis |
|
scale |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (ri, rs, axis = 6, scale = 0.5)
{
t1 <- rbind(rasch.di(ri, axis = axis), rasch.ds(rs, axis = axis,
scale = scale))
plot(t1$f1, t1$param, type = "n", xaxt = "n", xlab = "",
ylab = "")
abline(v = 0, lty = 2)
abline(h = min(rasch.ds(rs)$param), col = "red")
abline(h = max(rasch.ds(rs)$param), col = "red")
text(t1$f1, t1$param, labels = rownames(t1), cex = 0.6)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.