eadelC: Murray...

Usage Arguments Examples

View source: R/Scale.R

Usage

1
eadelC(mt, s, t, x, y, m, u)

Arguments

mt
s
t
x
y
m
u

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
##---- 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 (mt, s, t, x, y, m, u) 
{
    if (mt >= mpfrthr) {
        pbn <- mt * mpfrpbn
        s <- mpfr(s, precBits = pbn)
        t <- mpfr(t, precBits = pbn)
        x <- mpfr(x, precBits = pbn)
        y <- mpfr(y, precBits = pbn)
        m <- mpfr(m, precBits = pbn)
        u <- mpfr(u, precBits = pbn)
        c(s1 = eadelR(mt, s, t, x, y, m, u), s2 = eadelR(mt + 
            1, s, t, x, y, m, u))
    }
    else {
        eadel_pair_cpp(mt, s, t, x, y, m, u)
    }
  }

mpoll/scale documentation built on Dec. 9, 2019, 7:15 a.m.