tfun: Utility function

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

Usage

tfun(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 <- NULL
    if (is.character(x)) 
        ret <- "it's character"
    else {
        if (is.numeric(x)) {
            if (is.null(dim(x))) {
                if (length(x) != 4) 
                  ret <- diag(4)[x, ]
                else ret <- rbind(x)
            }
        }
    }
    ret
  }

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