OptPos:

In rhooahn/sample-code: What the package does (short line)

Usage

OptPos(o = Opt(), Pos = c("Long", "Short"), Prem = 0)

Arguments

o
Pos
Prem

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 (o = Opt(), Pos = c("Long", "Short"), Prem = 0) 
{
    stopifnot(is.Opt(o))
    Pos = match.arg(Pos)
    p = list(Name = Pos)
    p$Long = (Pos == "Long")
    p$Short = (Pos == "Short")
    p$Other = !(p$Long || p$Short)
    p$SignLS = (2 * p$Long - 1) * (if (p$Other) 
        NA
    else 1)
    o$Pos = p
    o$Prem = Prem
    class(o) = c(class(o), "OptPos")
    return(o)
  }

rhooahn/sample-code documentation built on May 27, 2019, 7:40 a.m.