rasch.di: Rasch di

Usage Arguments Examples

Usage

1
rasch.di(ri, axis = 8, param = "beta", jitter = F)

Arguments

ri
axis
param
jitter

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
##---- 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, axis = 8, param = "beta", jitter = F) 
{
    ri[, param] <- round(ri[, param] * axis)/axis
    ri <- ri[order(ri[, param]), ]
    t3 <- tapply(ri[, param], ri[, param], length)
    f1 <- NULL
    for (i in 1:length(t3)) {
        f1 <- c(f1, seq(1, t3[i]) + runif(1) * jitter)
    }
    ri$f1 <- f1
    ri$param <- ri[, param]
    rownames(ri) <- paste("Q", sub("cau", "", rownames(ri)), 
        sep = ".")
    return(ri[, c("param", "f1")])
  }

gvdovandzung/thongke documentation built on May 23, 2020, 12:35 a.m.