##########################
# EXAMPLE 1: Linking item parameters of the PISA study
data(data.pisaPars)
pars <- data.pisaPars
# linking the tow studies with the Rasch model
mod <- equating.rasch(x=pars[,c("item","study1")] ,
y=pars[,c("item","study2")])
## Mean.Mean Haebara Stocking.Lord
## 1 0.08828 0.08896269 0.09292838
Run the code above in your browser using DataLab