```
# NOT RUN {
sdi <- c(1.4, 1.2, 1.3, 1.4)
sda <- 2
rxxi <- c(.6, .7, .75, .8)
rxxa <- c(.9, .95, .8, .9)
item_ki <- c(12, 12, 12, NA)
item_ka <- NULL
n <- c(200, 200, 200, 200)
meani <- c(2, 1, 2, 3)
sr <- c(.5, .6, .7, .4)
rxya_est <- .5
## Estimate u from standard deviations only:
estimate_u(sdi = sdi, sda = sda)
## Estimate u from incumbent standard deviations and the
## mixture standard deviation:
estimate_u(sdi = sdi, sda = "mixture", meani = meani, n = n)
## Estimate u from reliability information:
estimate_u(rxxi = rxxi, rxxa = rxxa)
## Estimate u from both standard deviations and reliabilities:
estimate_u(sdi = sdi, sda = sda, rxxi = rxxi, rxxa = rxxa,
item_ki = item_ki, item_ka = item_ka, n = n,
meani = meani, sr = sr, rxya_est = rxya_est)
estimate_u(sdi = sdi, sda = "average", rxxi = rxxi, rxxa = "average",
item_ki = item_ki, item_ka = item_ka, n = n, meani = meani)
## Estimate u from selection ratios as direct range restriction:
estimate_u(sr = sr)
## Estimate u from selection ratios as indirect range restriction:
estimate_u(sr = sr, rxya_est = rxya_est)
# }
```

Run the code above in your browser using DataLab