R/WLErel_exclude_missings.R

In TAM: Test Analysis Modules

## File Name: WLErel_exclude_missings.R
## File Version: 0.02

WLErel_exclude_missings <- function(theta, error, w)
{
    ind <- which( ! is.na(theta) )
    theta <- theta[ind]
    error <- error[ind]
    w <- w[ind]
    #--- OUTPUT
    res <- list( theta=theta, error=error, w=w)
    return(res)
}