1  | 
Z | 
|
abhat.v | 
|
t | 
|
level | 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20  | ##---- 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 (Z, abhat.v, t, level) 
{
    oab.v = sort(abhat.v)
    B = length(abhat.v)
    ranklowBp = round(B * level/2)
    if (ranklowBp == 0) {
        ranklowBp = 1
    }
    Bpl = oab.v[ranklowBp]
    Bph = oab.v[round(B * (1 - level/2))]
    BP = c(Bpl, Bph)
    pstar = mean(oab.v > 0)
    pv = 2 * min(c(pstar, 1 - pstar))
    list(BP, pv)
  }
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.