select.first: Find the first non-missing element of a vector and check...

In gmonette/spida15: Collection of miscellaneous functions for mixed models etc. prepared for SPIDA 2009+ (development version)

Description

Find the first non-missing element of a vector and check whether there are other inconsistent non-missing values

Usage

select.first(x, ...)

Arguments

x
...

Examples

##---- 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 (x, ...) 
{
    ret <- unique(x[!is.na(x)])
    if (length(ret) > 1 && is.character(ret) && ("" %in% ret)) 
        ret <- ret[ret != ""]
    if (length(ret) > 1) {
        cat("\n\n============= Multiple values in select.first ==========\n")
        for (i in 1:length(ret)) cat("\nValue", i, ": <<", ret[i], 
            ">>\n")
    }
    ret[1]
  }

gmonette/spida15 documentation built on May 17, 2019, 7:26 a.m.