MaskJointDensity (version 1.0)

barredToActual: Purely used in actualPosition

Description

See above

Usage

barredToActual(vectorL, boundaryVec, barred)

Arguments

vectorL

boundaryVec

barred

References

no references

Examples

# NOT RUN {
##---- 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)
  }
# }