Ldiff.old: Older version of Ldiff

Usage Arguments Examples

View source: R/wald.R

Usage

1
Ldiff.old(fit, pat, levnames = c(reflevel, substring(rownames(L), cut + 1)), reflevel = "<ref>", cut = nchar(pat))

Arguments

fit
pat
levnames
reflevel
cut

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
##---- 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 (fit, pat, levnames = c(reflevel, substring(rownames(L), 
    cut + 1)), reflevel = "<ref>", cut = nchar(pat)) 
{
    L <- Lmat(fit, pat)
    nam <- rownames(L)
    n <- nrow(L)
    if (n < 2) 
        return(L)
    plus <- unlist(apply(rbind(2:n), 2, seq, n))
    minus <- rep(1:(n - 1), (n - 1):1)
    Lp <- L[plus, ]
    Lm <- L[minus, ]
    Lret <- rbind(L, Lp - Lm)
    rn <- paste(levnames[c(1:n, plus) + 1], levnames[c(rep(0, 
        n), minus) + 1], sep = " - ")
    rownames(Lret) <- rn
    Lret
  }

gmonette/spida documentation built on May 14, 2017, 1 p.m.