# Chapter 9 Equating Tests. Part 2: Practice

In this session, we will learn about

- practical considerations in equating tests

- checking item invariance across different tests

- writing user-defined functions in R.

## 9.1 Differences between Theory and Practice

In theory, the concept of equating is simple: there needs to be something in common between two tests, either by common items or common persons. One needs to align the two tests. While there are different methods to place two tests on the same scale, all the methods should produce the same results, *provided* that the data fit the underlying mathematical model.

In practice, however, the data rarely fit the model. An important assumption in equating tests is that the common items are “invariant” across the two tests. That is, an item has the same difficulty when it is placed in both Test 1 and Test 2. If the difficulty of an item changes when it is placed in different tests, then that item is essentially a different item, and it cannot be used to equate two tests.

There are many reasons for why an item may have different difficulties when placed in two different tests. We will look at two particular factors: item position effect and differential item functioning.

## 9.2 Item Position Effect

It has been observed that the position of the placement of an item in a test affects the item’s difficulty. An item placed at the beginning of a test appears to be easier than the same item placed at the end of a test. We will call this the fatigue effect. This effect has been observed in the PISA tests. In PISA 2003, test items were placed according to a rotated test booklet design. Each test booklet was divided into four sections. Each item appeared in four test booklets, in each of the four sections. The test booklets were randomly distributed to students, so it could be assumed that the average ability of students taking each booklet was the same across all booklets.

The following shows five PISA 2003 mathematics items, and the percentages correct when the items were placed in each of the four sections of a test.

RoomView | Bricks | Walking | CubePainting | GrowingUp | |
---|---|---|---|---|---|

pos1 | 72.9 | 43.9 | 38.1 | 61.6 | 65.2 |

pos2 | 75.6 | 41.1 | 37.1 | 60.6 | 62.8 |

pos3 | 70.8 | 35.8 | 33.1 | 59.9 | 60.2 |

pos4 | 67.2 | 30.1 | 30.2 | 49.3 | 50.4 |

Reading down the columns of Table 9.1, you can see that the percentage correct generally decreases from position 1 to position 4. The percentage correct was the lowest when an item was placed at the end of the test (position 4). Graphically, we can see this trend in Figure 9.1.

The implication of item position effect is that if one item is placed at the beginning of one test and at the end of another test, then the item cannot be regarded as the same item because their difficulties are different, even though the wording of the item has not changed. The presence of item position effect threatens the equating process.

## 9.3 Differential Item Functioning

Differential item functioning (typically abbreviated as DIF) is present when the probability of success on an item differs for two groups of people, even when we control for ability measures. For example, in mathematics, girls have been found to outperform boys on *number* items, while boys outperform girls on *spatial* items, even when the average abilities for boys and girls are the same. Thus if we have many spatial items as common items linking two tests, the result of the equating may be distorted. Differential item functioning may occur because of geolocations, gender, SES, curriculum and many other factors.

## 9.4 Minimise Violations of Item Invariance Assumptions

There are several ways to mitigate threats to equating due to model violations:

- Use a large number of common items.

- Check for item invariance and remove common items that are not invariant.

- Use a balanced rotated test design for the placement of test items.

With regards to the number of common items required for equating, it is difficult to put a figure to it. We can say that more than 30 common items are needed, judging from our experience.

## 9.5 Checking for Item Invariance

The following shows a procedure for checking for item invariance.

### 9.5.1 Separately scale each test

Using the data sets N1.csv, N2.csv and N1N2Specs.docx that we used in Section 8.6. Scale each test separately and obtain item parameters for each test.

```
rm(list=ls())
# Make sure you change the path to the data set in the two commands below.
<- read.csv("C:\\G_MWU\\ARC\\PhilippinesFiles\\N1.csv",
N1 stringsAsFactors = FALSE, colClasses = rep("character", 50))
<- read.csv("C:\\G_MWU\\ARC\\PhilippinesFiles\\N2.csv",
N2 stringsAsFactors = FALSE, colClasses = rep("character", 50))
<- "32213211431123114141111143411111211312111111323121"
key1 <- "11143411111211312111111323121414324231413131111242"
key2
<- unlist(strsplit(key1,""))
key1 <- unlist(strsplit(key2,""))
key2
library(CTT)
<- score(N1,key1,output.scored = TRUE)
s1 <- score(N2,key2,output.scored = TRUE)
s2
<- s1$scored
resp1 <- s2$scored
resp2
library(TAM)
<- tam.jml(resp1)
mod1 <- tam.jml(resp2)
mod2
#Check item statistics
<- tam.ctt(resp1,mod1$WLE)
tctt1 <- tam.ctt(resp2,mod1$WLE) tctt2
```

Find common items between the two tests.

```
# Find common items between N1 and N2
<- mod1$item1$xsi.label %in% mod2$item1$xsi.label
common1 <- mod1$item1[common1, ]
link1 <- match(link1$xsi.label,mod2$item1$xsi.label)
common2 <- mod2$item1[common2, ] link2
```

Variables **link1** and **link2** only contain the common items. Plot the item parameters for both tests to see the extent of agreement.

`plot(link1$xsi,link2$xsi, main="Parameters of Test 1 and Test 2 Common Items")`

One item, NQ21_1 (the first link item), appears to be a clear outlier in this set. It is by far the easiest item, and the standard error will tend to be large. Let us remove this item from the common item set.

```
<- link1[-1,] #take away the first link item
link1 <- link2[-1,] #take away the first link item link2
```

We can see in Figure 9.2 that while there is a general positive correlation between the two sets of item parameters, the scales are not the same. Test 1 common item parameters (without the first link item) range between -2.21 and 0.93, while Test 2 parameters range between -3.21 and -0.42.

We will need to compute a shift for the parameters of Test 2 so the two sets of parameters will align with the same mean value.

```
# Adjust Test 2 common items to have the same mean as the mean of Test 1 common items
<- link1$xsi
xsi1 <- link2$xsi
xsi2 <- mean(xsi1) - mean(xsi2)
shift <- xsi2 + shift xsi2.adj
```

The shift is 1.0216.

Place the Test 1 and Test 2 common item parameters in one data frame, and sort the items in order of the (absolute) magnitude of the differences between pairs of item parameters.

```
# Compute the difference between pairs of common item parameters
<- xsi1 - xsi2.adj
diff <- data.frame(xsi1, xsi2, xsi2.adj, diff, link1$se.xsi, link2$se.xsi)
linkset colnames(linkset) <- c("xsi1","xsi2","xsi2.adj","diff", "se1", "se2")
rownames(linkset) <- link1$xsi.label
<- linkset[order(abs(diff)),]
linkset library(knitr)
kable(linkset,digits = 3,align="ccccc", caption="Differences in Test 1 and Test 2 Item Parameters ")
```

xsi1 | xsi2 | xsi2.adj | diff | se1 | se2 | |
---|---|---|---|---|---|---|

NQ31 | -1.142 | -2.174 | -1.152 | 0.011 | 0.078 | 0.078 |

NQ21_3 | -0.416 | -1.460 | -0.438 | 0.022 | 0.073 | 0.066 |

NQ36_2 | -2.214 | -3.206 | -2.184 | -0.030 | 0.098 | 0.112 |

NQ32_1 | 0.551 | -0.430 | 0.592 | -0.041 | 0.074 | 0.057 |

NQ36_3 | -0.488 | -1.460 | -0.438 | -0.050 | 0.073 | 0.066 |

NQ33 | -0.059 | -0.932 | 0.089 | -0.148 | 0.072 | 0.060 |

NQ24 | -0.395 | -1.568 | -0.546 | 0.151 | 0.072 | 0.067 |

NQ22_2 | -0.785 | -1.959 | -0.937 | 0.152 | 0.074 | 0.074 |

NQ29 | 0.242 | -0.946 | 0.075 | 0.167 | 0.072 | 0.060 |

NQ37 | 0.022 | -0.814 | 0.207 | -0.185 | 0.072 | 0.059 |

NQ23_1 | -0.856 | -2.086 | -1.064 | 0.208 | 0.075 | 0.076 |

NQ26_1 | -1.025 | -2.267 | -1.245 | 0.220 | 0.077 | 0.081 |

NQ25_2 | -1.527 | -2.305 | -1.284 | -0.243 | 0.083 | 0.081 |

NQ38 | -0.069 | -0.807 | 0.214 | -0.283 | 0.072 | 0.059 |

NQ23_2 | 0.206 | -0.497 | 0.525 | -0.319 | 0.072 | 0.057 |

NQ25_3 | -1.054 | -2.413 | -1.391 | 0.338 | 0.077 | 0.084 |

NQ22_1 | -1.541 | -2.922 | -1.900 | 0.359 | 0.083 | 0.100 |

NQ30 | -0.796 | -1.456 | -0.434 | -0.362 | 0.075 | 0.066 |

NQ21_2 | -2.158 | -2.817 | -1.796 | -0.362 | 0.097 | 0.097 |

NQ36_1 | -1.130 | -2.582 | -1.560 | 0.430 | 0.078 | 0.089 |

NQ32_2 | -1.454 | -2.922 | -1.900 | 0.446 | 0.082 | 0.100 |

NQ34 | -0.929 | -1.464 | -0.443 | -0.486 | 0.076 | 0.066 |

NQ26_2 | -0.946 | -2.470 | -1.448 | 0.503 | 0.076 | 0.086 |

NQ27 | 0.073 | -0.417 | 0.605 | -0.532 | 0.072 | 0.057 |

NQ28 | -1.124 | -1.559 | -0.537 | -0.587 | 0.078 | 0.067 |

NQ35 | 0.930 | -0.777 | 0.245 | 0.685 | 0.077 | 0.059 |

NQ39 | 0.742 | -0.989 | 0.033 | 0.709 | 0.075 | 0.060 |

NQ25_1 | -1.447 | -1.695 | -0.673 | -0.774 | 0.082 | 0.069 |

In Table 9.2, it can be seen that several common items have very different item difficulty measures in Test 1 and Test 2. For example, the difference in item parameter estimates for **Item NQ25_1** and for **Item NQ39** is larger than 0.7 logit. These items are clearly not suitable as common items for equating purposes.

It is clearer if we plot the item estimates with a confidence band, and examine the items visually. To calculate the confidence band, we will use the formulation in **Rating Scale Analysis** (Wright and Masters 1982), p115-116.

First, for each item, we compute the average of the two item estimates for the two tests, say, \(d.=(xsi_1 + xsi.adj_2)/2\). Then, we compute the standard error of this average, \(s=\frac{1}{2}sqrt(s_1^2+s_2^2)\) where \(s_1\) and \(s_2\) are the standard errors of the two item parameter estimates respectively. For the 95% confidence band, we compute \(p_1=d.-2\times s\) and \(p_2=d.+2\times s\). Graphically, we use the points \((p_2, p_1)\) for the lower bound of the confidence band, and the points \((p_1, p_2)\) for the upper bound, for all the items. The following R code shows this procedure, where we create an R function to do this plotting.

```
<- function(linkset){
plotLinkset <- (linkset$xsi1 + linkset$xsi2.adj)/2
d <- (1/2)*sqrt(linkset$se1^2 + linkset$se2^2)
s <- d - 2*s
p1 <- d + 2*s
p2
plot(linkset$xsi1, linkset$xsi2.adj)
lines(p1[order(p1)],p2[order(p1)])
lines(p2[order(p1)],p1[order(p1)])
text(linkset$xsi1,linkset$xsi2.adj,labels=rownames(linkset),cex=0.4,pos=3)
}plotLinkset(linkset)
```

From Figure 9.3 and Table 9.2, we may need to remove some items as common items, as some items do not seem to have invariance property when placed in two different tests. However, it is not an exact science to decide on the list of items to remove, and there is no standard procedure to follow. Generally, this is a trial-and-error process. Perhaps it will be best if several researchers independently make selections of common items and compare notes afterwards.

When selecting (or removing) common items, there are a few things to keep in mind.

- The higher the number of common items, the more reliable the equating process will be. Sure, one can choose two common items, and they will fall perfectly on one line with no outliers. But the problem is that any pair of items will lead to vastly different equating shift, so we won’t know which pair is the best. When there are many common items, the impact of an outlier will be less significant.

- When some common item are removed, the mean values of the remaining set will change, so an item that was an outlier may fall within the confidence band. Generally, the sequence of removing common items will have an impact on which items become outliers. As an example, we remove items **NQ25_1**, **NQ28**, **NQ34**, **NQ30**. We will write a function for re-calculating the shift and the adjusted Test 2 item parameters after removing some common items.

```
<- function(remItems, linkset){
rePlotLink <- linkset[!rownames(linkset) %in% remItems, ]
linkset2 <- mean(linkset2$xsi1) - mean(linkset2$xsi2)
shift <- linkset2$xsi2 + shift
xsi2.adj <- linkset2$xsi1 - xsi2.adj
diff $xsi2.adj <- xsi2.adj
linkset2$diff <- diff
linkset2plotLinkset(linkset2)
return(list(Linkset=linkset2, shift=shift))
}<- c("NQ25_1","NQ28","NQ34","NQ30")
remItems <- rePlotLink(remItems, linkset) newLink
```

`kable(newLink$Linkset,digits = 3,align="ccccc", caption="Differences in Test 1 and Test 2 Item Parameters ")`

xsi1 | xsi2 | xsi2.adj | diff | se1 | se2 | |
---|---|---|---|---|---|---|

NQ31 | -1.142 | -2.174 | -1.060 | -0.081 | 0.078 | 0.078 |

NQ21_3 | -0.416 | -1.460 | -0.346 | -0.070 | 0.073 | 0.066 |

NQ36_2 | -2.214 | -3.206 | -2.092 | -0.122 | 0.098 | 0.112 |

NQ32_1 | 0.551 | -0.430 | 0.684 | -0.133 | 0.074 | 0.057 |

NQ36_3 | -0.488 | -1.460 | -0.346 | -0.142 | 0.073 | 0.066 |

NQ33 | -0.059 | -0.932 | 0.181 | -0.240 | 0.072 | 0.060 |

NQ24 | -0.395 | -1.568 | -0.454 | 0.059 | 0.072 | 0.067 |

NQ22_2 | -0.785 | -1.959 | -0.845 | 0.060 | 0.074 | 0.074 |

NQ29 | 0.242 | -0.946 | 0.167 | 0.075 | 0.072 | 0.060 |

NQ37 | 0.022 | -0.814 | 0.299 | -0.277 | 0.072 | 0.059 |

NQ23_1 | -0.856 | -2.086 | -0.972 | 0.116 | 0.075 | 0.076 |

NQ26_1 | -1.025 | -2.267 | -1.153 | 0.128 | 0.077 | 0.081 |

NQ25_2 | -1.527 | -2.305 | -1.192 | -0.335 | 0.083 | 0.081 |

NQ38 | -0.069 | -0.807 | 0.306 | -0.375 | 0.072 | 0.059 |

NQ23_2 | 0.206 | -0.497 | 0.617 | -0.411 | 0.072 | 0.057 |

NQ25_3 | -1.054 | -2.413 | -1.299 | 0.245 | 0.077 | 0.084 |

NQ22_1 | -1.541 | -2.922 | -1.808 | 0.267 | 0.083 | 0.100 |

NQ21_2 | -2.158 | -2.817 | -1.704 | -0.454 | 0.097 | 0.097 |

NQ36_1 | -1.130 | -2.582 | -1.468 | 0.338 | 0.078 | 0.089 |

NQ32_2 | -1.454 | -2.922 | -1.808 | 0.354 | 0.082 | 0.100 |

NQ26_2 | -0.946 | -2.470 | -1.356 | 0.411 | 0.076 | 0.086 |

NQ27 | 0.073 | -0.417 | 0.697 | -0.624 | 0.072 | 0.057 |

NQ35 | 0.930 | -0.777 | 0.337 | 0.593 | 0.077 | 0.059 |

NQ39 | 0.742 | -0.989 | 0.125 | 0.617 | 0.075 | 0.060 |

The shift constant is 1.1136.

## 9.6 Equating Shift Error

The following two graphs show two scenarios of the alignment of equating item parameters.If the common item parameters for two tests are very close, as shown in the left-hand plot in Figure (9.4), it will not matter which subset of common items we choose, we are likely to obtain the same equating shift. In contrast, if the common item parameters are different from each other as shown in the right-hand plot of Figure (9.4), then a random subset of the common items will likely produce very different equating shift. The equating error relates to the magnitude of the differences between the two sets of item parameters. While there are several different methods for calculating the equating error, we will use the standard error of the variable “diff” as the equating error. In our example, if we use the set of common items in Table 9.2, the standard error of the values in the column “diff” is 0.0732 . The equating error provides the degree of confidence when we place the new test on the scale of the old test. An equating error of 0.0732 means that the shift value can be in a range of 1.0216 ± 0.1464 (95% confidence interval). To put the magnitude into perspective, roughly, 0.5 logit is around one year of growth in primary schools.

## 9.7 Anchoring Method

The Anchoring Method is more restrictive than the Shift Method, since all common items are fixed at specific values. There are situations where one would want to fix item parameters, for example, when pre-calibrated items should stay at their previously calibrated parameter values.

To use the anchoring method, a 2-column matrix needs to be set up where the first column has the item number, and the second column has the values for anchoring. The following R code will anchor Test 2 common items at Test 1 parameter values for the common items in Table 9.2.

```
<- which(mod2$item1$xsi.label %in% rownames(linkset))
CP2 <- match(mod2$item1$xsi.label[CP2],mod1$item1$xsi.label)
CP1 <- cbind(CP2, mod1$xsi[CP1])
fix <- tam.jml(resp2,xsi.fixed = fix) mod2_a
```

## 9.8 Homework

Use the data sets in Section 8.7, test1.csv and test2.csv, for this homework. These two files contain common items, as shown by common item names in the files. The files contain scored item responses. Carry out separate IRT estimations for the two tests. Produce a table containing: the item parameters from each calibration, the adjusted item parameters for Test 2 so the mean value equals the mean value of the Test 1 common items, the standard errors for the item parameters. Plot the Test 1 common item parameters with the adjusted Test 2 item parameters, with confidence band.

### References

*Rating Scale Analysis*. Book. Mesa Press Chicago.