na.pad.lme: Add NAs - lme

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

Usage

na.pad.lme(x, obj)

Arguments

x
obj

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, obj) 
{
    ind <- rep(NA, nrow(x$data))
    names(ind) <- rn <- rownames(x$data)
    ind.part <- 1:nrow(x$resid)
    names(ind.part) <- rownames(x$resid)
    ind[names(ind.part)] <- ind.part
    if (!is.null(dim(obj))) 
        ret <- obj[ind, ]
    else ret <- obj[ind]
    names(ret) <- rn
    ret
  }

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