barredToActual: Purely used in actualPosition

Description Usage Arguments Author(s) References Examples

Description

See above

Usage

1
barredToActual(vectorL, boundaryVec, barred)

Arguments

vectorL
boundaryVec
barred

Author(s)

Jordan Morris

References

no references

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
##---- 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 (vectorL, boundaryVec, barred) 
{
    size <- nrow(barred)
    dim <- ncol(barred)
    actual <- matrix(nrow = size, ncol = dim)
    for (i in 1:size) {
        for (j in 1:dim) {
            actual[i, j] <- boundaryVec[2 * j - 1] + (boundaryVec[2 * 
                j] - boundaryVec[2 * j - 1])/(vectorL[j] - 1) * 
                (barred[i, j] - 1)
        }
    }
    return(actual)
  }

MaskJointDensity documentation built on May 2, 2019, 8:28 a.m.